快捷導(dǎo)航

VBS創(chuàng)建正則表達(dá)式對(duì)象的兩種方法

更新時(shí)間：2012年01月08日 19:13:00 作者：

貌似我看過的 VBScript 書籍沒有一本介紹過這種寫法，當(dāng)然，書上沒寫的東西還有很多

一直以來，我都是用 New RegExp 來創(chuàng)建正則表達(dá)式對(duì)象的：
Set regex = New RegExp然而最新才發(fā)現(xiàn) VBS 的正則表達(dá)式對(duì)象也可以這樣創(chuàng)建：
Set regex = CreateObject("VBScript.RegExp")貌似我看過的 VBScript 書籍沒有一本介紹過這種寫法，當(dāng)然，書上沒寫的東西還有很多。

既然提到了正則表達(dá)式，那么就順便說一下，VBS 的正則表達(dá)式對(duì)象是支持 MultiLine 模式的，對(duì)象有一個(gè) MultiLine 屬性。運(yùn)行 Visual C++ 自帶的 OLE View，左邊樹展開 Type Libraries，找到 Microsoft VBScript Regular Expressions 5.5，可以看到該 COM 對(duì)象的屬性和方法：

復(fù)制代碼代碼如下:

 
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 的自動(dòng)完成功能中也沒有提示 MultiLine 屬性，甚至微軟官方的參考手冊(cè)上也沒有。

最后舉個(gè)簡(jiǎn)單的例子，假如你想把文本中的空行刪除，可以用下面的代碼：

復(fù)制代碼代碼如下:

 
'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, "") 
'相當(dāng)于JavaScript中的 str = str.replace(/^\s*\n/gm, "") 
fso.OpenTextFile("demon.txt", 2).Write str 

原文來自：http://demon.tw/programming/vbs-regexp-object.html

您可能感興趣的文章: