vbs:- MsgBox GetStrCount("<ABBR>", _
- CreateObject("Scripting.FileSystemObject").OpenTextFile("test.xml").ReadAll())
-
-
-
- Function GetStrCount(patrn, strng)
- Dim regEx ' 创建变量。
- Set regEx = New RegExp ' 创建正则表达式。
- regEx.Pattern = patrn ' 设置模式。
- regEx.IgnoreCase = True ' 设置是否区分大小写。
- regEx.Global = True ' 设置全程匹配。
- GetStrCount = regEx.Execute(strng).Count
- End Function
复制代码
|