VBS教程：VBscript屬性-Pattern 屬性

2020-03-24 18:46:35

字體：大中小

來源：轉載

供稿：網友

Pattern 屬性設置或返回被搜索的html' target='_blank'>正則表達式模式。 object.Pattern [= "searchstring"]參數object必選項。總是一個 RegExp 對象變量。searchstring可選項的。被搜索的正則字符串表達式。它可能包含設置部分表格中的各種正則表達式字符。設置在書寫正則表達式的模式時使用了特殊的字符和序列。下表描述了可以使用的字符和序列，并給出了實例。字符描述/ 將下一個字符標記為特殊字符或字面值。例如"n"與字符"n"匹配。"/n"與換行符匹配。序列"http://"與"/"匹配，"/("與"("匹配。^ 匹配輸入的開始位置。$ 匹配輸入的結尾。* 匹配前一個字符零次或幾次。例如，"zo*"可以匹配"z"、"zoo"。+ 匹配前一個字符一次或多次。例如，"zo+"可以匹配"zoo",但不匹配"z"。? 匹配前一個字符零次或一次。例如，"a?ve?"可以匹配"never"中的"ve"。 .匹配換行符以外的任何字符。 (pattern) 與模式匹配并記住匹配。匹配的子字符串可以從作為結果的 Matches 集合中使用 Item [0]...[n]取得。如果要匹配括號字符(和 )，可使用"/(" 或 "/)"。x|y匹配 x 或 y。例如 "z|food" 可匹配 "z" 或 "food"。"(z|f)oo" 匹配 "zoo" 或 "food"。 {n}n 為非負的整數。匹配恰好n次。例如，"o{2}" 不能與 "Bob 中的 "o" 匹配，但是可以與"foooood"中的前兩個o匹配。{n,} n 為非負的整數。匹配至少n次。例如，"o{2,}"不匹配"Bob"中的"o"，但是匹配"foooood"中所有的o。"o{1,}"等價于"o+"。"o{0,}"等價于"o*"。{n,m} m 和 n 為非負的整數。匹配至少 n 次，至多 m 次。例如，"o{1,3}" 匹配 "fooooood"中前三個o。"o{0,1}"等價于"o?"。[xyz] 一個字符集。與括號中字符的其中之一匹配。例如，"[abc]" 匹配"plain"中的"a"。 [^xyz] 一個否定的字符集。匹配不在此括號中的任何字符。例如，"[^abc]" 可以匹配"plain"中的"p".[a-z] 表示某個范圍內的字符。與指定區間內的任何字符匹配。例如，"[a-z]"匹配"a"與"z"之間的任何一個小寫字母字符。[^m-z] 否定的字符區間。與不在指定區間內的字符匹配。例如，"[m-z]"與不在"m"到"z"之間的任何字符匹配。 /b 與單詞的邊界匹配，即單詞與空格之間的位置。例如，"er/b" 與"never"中的"er"匹配，但是不匹配"verb"中的"er"。 /B 與非單詞邊界匹配。"ea*r/B"與"never early"中的"ear"匹配。 /d 與一個數字字符匹配。等價于[0-9]。 /D 與非數字的字符匹配。等價于[^0-9]。 /f 與分頁符匹配。 /n 與換行符字符匹配。 /r 與回車字符匹配。 /s 與任何白字符匹配，包括空格、制表符、分頁符等。等價于"[ /f/n/r/t/v]"。/S 與任何非空白的字符匹配。等價于"[^ /f/n/r/t/v]"。 /t 與制表符匹配。 /v 與垂直制表符匹配。 /w 與任何單詞字符匹配，包括下劃線。等價于"[A-Za-z0-9_]"。 /W 與任何非單詞字符匹配。等價于"[^A-Za-z0-9_]"。 /num 匹配 num個，其中 num 為一個正整數。引用回到記住的匹配。例如，"(.)/1"匹配兩個連續的相同的字符。 /n匹配 n，其中n 是一個八進制換碼值。八進制換碼值必須是 1, 2 或 3 個數字長。例如，"/11" 和 "/011" 都與一個制表符匹配。"/0011"等價于"/001" 與 "1"。八進制換碼值不得超過 256。否則，只有前兩個字符被視為表達式的一部分。允許在正則表達式中使用ASCII碼。/xn匹配n，其中n是一個十六進制的換碼值。十六進制換碼值必須恰好為兩個數字長。例如，"/x41"匹配"A"。"/x041"等價于"/x04" 和 "1"。允許在正則表達式中使用 ASCII 碼。
說明下面的代碼說明了 Pattern 屬性的用法： Function RegExpTest(patrn, strng) Dim regEx,Match,Matches '建立變量。 Set regEx = New RegExp '建立一般表達式。 regEx.Pattern= patrn '設置模式。 regEx.IgnoreCase = True '設置是否區分大小寫。regEx.Global=True '設置全局可用性。set Matches=regEx.Execute(string) '重復匹配集合 RegExpTest = regEx.Execute(strng) '執行搜索。for each match in matches '重復匹配集合RetStr=RetStr &"Match found at position "RetStr=RetStr&Match.FirstIndex&".Match Value is '"RetStr=RetStr&Match.Value&"'."&vbCRLF NextRegExpTest=RetStrEnd FunctionMsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))html教程

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

上一篇：vbscript ms owc 封裝代碼

下一篇：vbs AD日志開啟腳本nableKerbLog的腳本