首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB6 简单的正则表达式,该怎么处理

2012-02-16 
VB6 简单的正则表达式数据:http://www.baidu.comhttp://bbs.csdn.netftp://ldong.netwww.163.comldong.net

VB6 简单的正则表达式
数据:

http://www.baidu.com
http://bbs.csdn.net
ftp://ldong.net
www.163.com
ldong.net

用正则表达式得到域名 如 baidu csdn ldong 
我用的简单的是
 (?:\.)(.)+\.

得到的结果却是
.baidu.
.csdn.
.163.


有两个问题:
1.最后一个ldong.net匹配不到
2.结果中前后都多了一个点,我不需要.

[解决办法]

VBScript code
Option ExplicitDim datadata = "http://www.baidu.com " & vbcrlf & _       "http://bbs.csdn.net " & vbcrlf & _       "ftp://ldong.net " & vbcrlf & _       "www.163.com " & vbcrlf & _       "ldong.net "Dim regSet reg = CreateObject("vbscript.regexp")reg.global = Truereg.ignorecase = Truereg.pattern = "(.+\.)?([^/.\r\n]+)\."Dim matchesSet matches = reg.execute(data)Dim matchFor Each match In matches    Call MsgBox(match.submatches(1))Next 

热点排行