VBS創建正則表達式對象的兩種方法

2020-03-24 19:24:24

字體：大中小

來源：轉載

供稿：網友

一直以來，我都是用 New RegExp 來創建html' target='_blank'>正則表達式對象的：
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.htmlhtml教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：純vbs實現zip壓縮與unzip解壓縮函數代碼

下一篇：用vbscript實現在消息框中顯示一個超鏈接