99热在线精品一区二区三区_国产伦精品一区二区三区女破破_亚洲一区二区三区无码_精品国产欧美日韩另类一区

VBS中怎么創(chuàng)建正則表達(dá)式對(duì)象，相信很多沒有經(jīng)驗(yàn)的人對(duì)此束手無策，為此本文總結(jié)了問題出現(xiàn)的原因和解決方法，通過這篇文章希望你能解決這個(gè)問題。

創(chuàng)新互聯(lián)建站主營(yíng)敘州網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,APP應(yīng)用開發(fā),敘州h5微信平臺(tái)小程序開發(fā)搭建,敘州網(wǎng)站營(yíng)銷推廣歡迎敘州等地區(qū)企業(yè)咨詢

一直以來，我都是用 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: /tupian/20230522/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

看完上述內(nèi)容，你們掌握VBS中怎么創(chuàng)建正則表達(dá)式對(duì)象的方法了嗎？如果還想學(xué)到更多技能或想了解更多相關(guān)內(nèi)容，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝各位的閱讀！

當(dāng)前文章：VBS中怎么創(chuàng)建正則表達(dá)式對(duì)象-創(chuàng)新互聯(lián)
本文URL：http://www.ef60e0e.cn/article/phcic.html