<script language="vbscript">
Dim Text, regEx, RetStrText = "##用 户 名## wanglin##用 户 名## 张平" ' 定义字符串。Set regEx = New RegExp
regEx.Pattern = "##用 户 名##\t([^#]*)" '模式
regEx.IgnoreCase = False '忽略大小写
regEx.Global = True '全局替换
Set Matches = regEx.Execute(Text)For Each Match in Matches ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
msgbox RetStr
Next</script>
Dim Text, regEx, RetStrText = "##用 户 名## wanglin##用 户 名## 张平" ' 定义字符串。Set regEx = New RegExp
regEx.Pattern = "##用 户 名##\t([^#]*)" '模式
regEx.IgnoreCase = False '忽略大小写
regEx.Global = True '全局替换
Set Matches = regEx.Execute(Text)For Each Match in Matches ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
msgbox RetStr
Next</script>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货