Dim regex ' 声明变量 Set regex = New RegExp ' 创建对象 regex.Pattern = ".(?=<TITLE>)" If regex.Test("这是你的测试文本<TITLE>") Then '//这里匹配了一个“本”字 ' 找到 Else ' 未找到 End If
Dim regex, matches, match, found ' 声明变量 Set regex = New RegExp ' 创建对象 regex.Pattern = ".(?=<TITLE>)" Set matches = regex.Execute("这是你的测试文本<TITLE>") For Each match in matches found = match.Value ' 后续操作 '... Next