[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
vbs:
  1. MsgBox GetStrCount("<ABBR>", _
  2. CreateObject("Scripting.FileSystemObject").OpenTextFile("test.xml").ReadAll())
  3. Function GetStrCount(patrn, strng)
  4.    Dim regEx  ' 创建变量。
  5.    Set regEx = New RegExp   ' 创建正则表达式。
  6.    regEx.Pattern = patrn   ' 设置模式。
  7.    regEx.IgnoreCase = True   ' 设置是否区分大小写。
  8.    regEx.Global = True   ' 设置全程匹配。
  9.    GetStrCount = regEx.Execute(strng).Count
  10. End Function
复制代码

TOP

返回列表