常用的正則匹配運算式
Regex--驗證手機號碼:13[0-9]{9}
實現手機號前帶86或是+86的情況:^((\+86)|(86))?(13)\d{9}$
電話號碼與手機號碼同時驗證:(^(\d{3,4}-)?\d{7,8})$|(13[0-9]{9})
提取資訊中的網路連結:(h|H)(r|R)(e|E)(f|F) *= *('|")?(\w|\\|\/|\.)+('|"| *|>)?
提取資訊中的郵件地址:\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*
提取資訊中的圖片連結:(s|S)(r|R)(c|C) *= *('|")?(\w|\\|\/|\.)+('|"| *|>)?
提取資訊中的IP地址:(\d+)\.(\d+)\.(\d+)\.(\d+)
提取資訊中的中國手機號碼:(86)*0*13\d{9}
提取資訊中的中國固定電話號碼:(\(\d{3,4}\)|\d{3,4}-|\s)?\d{8}
提取資訊中的中國電話號碼(包括移動和固定電話):(\(\d{3,4}\)|\d{3,4}-|\s)?\d{7,14}
提取資訊中的中國郵遞區號:[1-9]{1}(\d+){5}
提取資訊中的中國社會安全號碼碼:\d{18}|\d{15}
提取資訊中的整數:\d+
提取資訊中的浮點數(即小數):(-?\d*)\.?\d+
提取資訊中的任何數字 :(-?\d*)(\.\d+)?
提取資訊中的中文字串:[\u4e00-\u9fa5]*
提取資訊中的雙位元組字元串 (漢字):[^\x00-\xff]*
用到的函數(第一個參數為Regex,第二個為字串): 複製代碼 代碼如下:Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變數。
Set regEx = New RegExp ' 建立Regex。
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
Next
RegExpTest = RetStr
End Function