RegExp

鎖定

Function CheckExp(patrn,strng)
    Dim regEx,Matches　 ' 建立變量
    Set regEx = New RegExp '建立正則表達式
    regEx.Pattern = patrn'設置模式。
    regEx.IgnoreCase = true'設置是否區分字符大小寫
    regEx.Global = True'設置全局可用性。
    Matches = regEx.test(strng) 　'執行搜索。
    CheckExp = matches
End Function

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(strng) ' 執行搜索。
    For Each Match in Matches ' 遍歷匹配集合。
        RetStr = RetStr & "Match found at position "
        RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
        RetStr = RetStr & Match.Value & "'." & vbCRLF
    Next
    RegExpTest = RetStr
End Function

MsgBox RegExpTest("is.","IS1 is2 IS3 is4")

Function RegExpTest(patrn,strng)
    Dim regEx ' 建立變量
    Set regEx = New RegExp ' 建立正則表達式
    regEx.Pattern = patrn ' 設置模式
    regEx.IgnoreCase = True ' 設置是否區分大小寫
    RegExpTest = regEx.Execute(strng) ' 執行搜索
End Function

MsgBox RegExpTest("is.","IS1 is2 IS3 is4")

Function RegExpTest(patrn,strng)
    Dim regEx ' 建立變量。
    Set regEx = New RegExp ' 建立正則表達式
    regEx.Pattern = patrn ' 設置模式。
    regEx.IgnoreCase = True ' 設置是否區分大小寫。
    RegExpTest = regEx.Execute(strng) ' 執行搜索。
End Function

MsgBox RegExpTest("is.","IS1 is2 IS3 is4")

Function RegExpTest(patrn,strng)
    Dim regEx ' 建立變量。
    Set regEx = New RegExp ' 建立正則表達式。
    regEx.Pattern = patrn ' 設置模式。
    regEx.IgnoreCase = False ' 設置區分大小寫。
    regEx.Global = True ' 搜索全部匹配。
    RegExpTest = regEx.Execute(strng) ' 執行搜索。
End Function

MsgBox RegExpTest("is.","IS1 is2 IS3 is4")

Function ReplaceTest(patrn,replStr)
    Dim regEx,str1 ' 建立變量。
    str1 = "The quick brown fox jumped over the lazy dog."
    Set regEx = New RegExp ' 建立正則表達式。
    regEx.Pattern = patrn ' 設置模式。
    regEx.IgnoreCase = True ' 設置是否區分大小寫。
    ReplaceTest = regEx.Replace(str1,replStr) ' 作替換。
End Function

MsgBox ReplaceTest("fox","cat")

Function RegExpTest(patrn,strng)
    Dim regEx,retVal ' 建立變量。
    Set regEx = New RegExp ' 建立正則表達式。
    regEx.Pattern = patrn ' 設置模式。
    regEx.IgnoreCase = False ' 設置是否區分大小寫。
    retVal = regEx.Test(strng) ' 執行搜索測試。
    If retVal Then
        RegExpTest = "找到一個或多個匹配。"
    Else
        RegExpTest = "未找到匹配。"
    End If
End Function

MsgBox RegExpTest("is.","IS1 is2 IS3 is4")

var reg = new RegExp('[a-z]+','img'); // 檢測包含連續字母的字符串
var str = '12345abcde67890FGHIJK_)(*&^%$#@!';
reg.test(str); // 返回true
reg.lastIndex = 0; // 如果繼續使用reg而沒有重新實例化，reg會從上次的匹配項以後查找，故需要重置
matches = [];
while (match = reg.exec(str))
{
    matches.push(match[0]); 
    /* match為一個數組： match[0]為本次匹配到的字符串；
    match[‘input’]為被匹配字符串，即str；
    match[‘index’]為本次匹配到的字符串的位置；
    match[n](n>0）為正則表達式中的第n個子式匹配內容（如果有的話）*/
}
alert(matches.join(',')); 
/* abcde,fghijk
説明：FGHIJK也被匹配了是因為屬性中包含
i：不區分大小寫。 */

var reg = new RegExp("([ftph]+://[a-zA-Z0-9\._-]+)","mg");
str = str.replace(reg,"");
var sentence = "I am a sentence!";
var words = sentence.split(/\s+/); // words=[I,am,a,sentence!]

var patt1 = new RegExp("e"); document.write(patt1.test("The best things in life are free"));
var patt1 = new RegExp("e"); document.write(patt1.test("The best things in life are free"));

var patt1 = new RegExp("e"); document.write(patt1.exec("The best things in life are free"));
var patt1 = new RegExp("e"); document.write(patt1.exec("The best things in life are free"));

var patt1 = new RegExp("e", "g"); do { result = patt1.exec("The best things in life are free"); document.write(result); } while ( result != null )
var patt1 = new RegExp("e", "g"); do { result = patt1.exec("The best things in life are free"); document.write(result); } while ( result != null )

var patt1 = new RegExp("e"); 
document.write(patt1.test("The best things in life are free")); 
patt1.compile("d"); 
document.write(patt1.test("The best things in life are free"));

var patt1 = new RegExp("e"); 
document.write(patt1.test ("The best things in life are free")); 
patt1.compile("d"); 
document.write(patt1.test("The best things in life are free"));