VBS创建正则表达式对象的两种方法

标签: , , , , ,

一直以来,我都是用 New RegExp 来创建正则表达式对象的:

Set regex = New RegExp

然而最新才发现 VBS 的正则表达式对象也可以这样创建:

Set regex = CreateObject("VBScript.RegExp")

貌似我看过的 VBScript 书籍没有一本介绍过这种写法,当然,书上没写的东西还有很多。

既然提到了正则表达式,那么就顺便说一下,VBS 的正则表达式对象是支持 MultiLine 模式的,对象有一个 MultiLine 属性。运行 Visual C++ 自带的 OLE View,左边树展开 Type Libraries,找到 Microsoft VBScript Regular Expressions 5.5,可以看到该 COM 对象的属性和方法:

interface IRegExp2 : IDispatch {
    [id(0x00002711), propget]
    HRESULT Pattern([out, retval] BSTR* pPattern);
    [id(0x00002711), propput]
    HRESULT Pattern([in] BSTR pPattern);
    [id(0x00002712), propget]
    HRESULT IgnoreCase([out, retval] VARIANT_BOOL* pIgnoreCase);
    [id(0x00002712), propput]
    HRESULT IgnoreCase([in] VARIANT_BOOL pIgnoreCase);
    [id(0x00002713), propget]
    HRESULT Global([out, retval] VARIANT_BOOL* pGlobal);
    [id(0x00002713), propput]
    HRESULT Global([in] VARIANT_BOOL pGlobal);
    [id(0x00002717), propget]
    HRESULT Multiline([out, retval] VARIANT_BOOL* pMultiline);
    [id(0x00002717), propput]
    HRESULT Multiline([in] VARIANT_BOOL pMultiline);
    [id(0x00002714)]
    HRESULT Execute(
                    [in] BSTR sourceString, 
                    [out, retval] IDispatch** ppMatches);
    [id(0x00002715)]
    HRESULT Test(
                    [in] BSTR sourceString, 
                    [out, retval] VARIANT_BOOL* pMatch);
    [id(0x00002716)]
    HRESULT Replace(
                    [in] BSTR sourceString, 
                    [in] VARIANT replaceVar, 
                    [out, retval] BSTR* pDestString);
};

但是很多书上并没有介绍,VbsEdit 的自动完成功能中也没有提示 MultiLine 属性,甚至微软官方的参考手册上也没有。

最后举个简单的例子,假如你想把文本中的空行删除,可以用下面的代码:

'Author: Demon
'Link: http://demon.tw/programming/vbs-regexp-object.html
'Date: 2011/12/26
Dim fso, regex, str
Set fso = CreateObject("Scripting.FileSystemObject")
Set regex = CreateObject("VBScript.RegExp")
str = fso.OpenTextFile("demon.txt").ReadAll
regex.Global = True
regex.MultiLine = True
regex.Pattern = "^\s*\n"
str = regex.Replace(str, "")
'相当于JavaScript中的 str = str.replace(/^\s*\n/gm, "")
fso.OpenTextFile("demon.txt", 2).Write str

随机文章:

  1. MySQL字符集与排序方式
  2. 从Win32程序的主函数WinMain中获取命令行参数
  3. Windows日期时间与相互转化
  4. 用VBS修改Windows用户密码
  5. 又遇VBS中&H前缀十六进制数的陷阱

9 条评论 发表在“VBS创建正则表达式对象的两种方法”上

  1. 乱码说道:

    看 Demon 此番解说,胜读十年废书。
    每次打开,都会有数不尽的惊喜。

  2. shirne说道:

    MultiLine 属性,你不说我还真没注意,身边的手册都没提到这个属性。
    只有一本Jscript手册中最后讲RegExp时把Jscript与VBScript对比的代码中有写,幸好我一开始就是照着这个写的,
    所以,也没去注意手册中的这一点了。

    • Demon说道:

      我回头看了一下手册,的确在Introduction to Regular Expressions这一章中出现过MultiLine属性。

  3. 雨中风铃说道:

    http://www.yongfa365.com/,这个网站很不错,作者对vbs也很有研究,里面有很多正则表达式的文章。现在把精力都放在c#上了。

    • Demon说道:

      在我还是VBS菜鸟的时候也觉得这个网站不错,但是现在看来,里面代码有很多是错误的。

  4. […] Demon's Blog  »  程序设计  »  VBS正则表达式对象的MultiLine属性 « VBS创建正则表达式对象的两种方法 […]

  5. 冷风一夜说道:

    向博主请教:
    一直奇怪为什么VBS中可以直接使用new RegExp创建正则对象,是因为这是内置在VBS中的语法还是WSH中默认的用法?除了可以直接使用new创建正则对象外,还有什么对象可以直接这样创建呢?
    谢谢

  6. findnew说道:

    http://www.yongfa365.com/

    在我还是VBS菜鸟的时候也觉得这个网站不错,后来我发现里面的代码有一些错误,觉得不过如此,现在我重新觉得这个网站真的很不错

  7. Crow说道:

    的确没见过这个写法…受教了~~
    貌似MultiLine并不是通用的,,低版本的wsh不支持这个选项,,而很多帮助文件都是随低版本发布的…所以…= =b
    为了保证代码尽可能兼容更多的wsh版本…我尽量不去用这个选项..不知道将(\x0d?\x0a){2,}匹配字符替换成$1行不行…

留下回复