华域联盟 vbs VBS创建正则表达式对象的两种方法

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

原文来自:
http://demon.tw/programming/vbs-regexp-object.html
您可能感兴趣的文章:

本文由 华域联盟 原创撰写:华域联盟 » VBS创建正则表达式对象的两种方法

转载请保留出处和原文链接:https://www.cnhackhy.com/16248.htm

本文来自网络,不代表华域联盟立场,转载请注明出处。

作者: sterben

发表回复

联系我们

联系我们

2551209778

在线咨询: QQ交谈

邮箱: [email protected]

工作时间:周一至周五,9:00-17:30,节假日休息

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部