Vb快速获取网页源代码，提取其内容。

函数TestRegExp(ByVal myString$，ByVal myPattern$，可选myMark$ = "gimt "，可选myRepString$)

如果myString = " "或myPattern = " "那么

TestRegExp = " "

调试。打印“数据不能为空”

退出功能

如果…就会结束

创建对象。

Dim objRegExp As RegExp

Dim对象匹配作为匹配

Dim列匹配作为匹配集合

Dim RetStr作为字符串

Set objRegExp = New RegExp

常规公式

objRegExp。模式=我的模式

IIf(InStr(myPattern，" s ")& lt；& gt0，""，myPattern)

区分大小写吗？

objRegExp。ignore case = IIf(InStr(LCase $(my mark)，" I ")& gt；0，真，假)

它是全球性的吗？

objRegExp。Global = IIf(InStr(LCase$(myMark)，" g ")& gt；0，真，假)

你想打包吗？

objRegExp。MultiLine = IIf(InStr(LCase $(my mark)，" m ")& gt；0，真，假)

如果objRegExp。然后测试(myString)

If InStr(myMark，" r ")& gt；那么0

调试。打印“替换”

RetStr = objRegExp。Replace(我的字符串，我的字符串)

调试。打印IIf(RetStr <。& gt""，"替换结果" &；Left(RetStr，10)，“找不到可替换的字符”)

其他

调试。打印“搜索”

Set colMatches = objRegExp。执行(myString)'执行搜索。

MsgBox列匹配。数数

对于colMatches的Iterate Matches集合中的每个objMatch。

RetStr = RetStr & ampobjMatch。第一索引

RetStr = RetStr & ampobjMatch。价值与价值。vbCrLf

然后

调试。打印IIf(RetStr <。& gt“，”搜索结果“&；Left(RetStr，10)，“未找到匹配结果”)

如果…就会结束

其他

RetStr = " "

调试。打印“未找到匹配结果，请检查常规公式是否正确”

如果…就会结束

TestRegExp = RetStr

结束功能