本文介绍了一个使用VBScript进行正则表达式的简单示例，演示了如何在字符串中查找数字序列并获取其位置。通过创建RegExp对象，并设置Pattern属性为'/d+'来匹配数字。
[工程]－[引用] "Microsoft VBScript Regular Expressions"
'本例是要定位字符串s中数字出现的位置
Private Sub Command1_Click()
Dim re As RegExp, s As String, Matchs
s = "http://blog.sina.com.cn/juyonghong/123456.html"
Set re = New RegExp
re.Pattern = "/d+" '数字序列
If re.Test(s) Then '测试是否存在
Set Matchs = re.Execute(s)
Print Matchs(0).FirstIndex '显示位置
End If
End Sub
Private Sub Command1_Click()
Dim re As RegExp, s As String, Matchs
s = "http://blog.sina.com.cn/juyonghong/123456.html"
Set re = New RegExp
re.Pattern = "/d+" '数字序列
If re.Test(s) Then '测试是否存在
Set Matchs = re.Execute(s)
Print Matchs(0).FirstIndex '显示位置
End If
End Sub
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
