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: https://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. 用VBS修改Windows用户密码
2. MSDN 6.0 简体中文完全版下载
3. WMI入门教程：第三部分
4. 批处理技术内幕：序
5. 使用Image Generator (Image Builder)生成OpenWrt固件

这篇文章发布于 2011年12月26日，星期一，23:58，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。