ASP利用正則表達式判斷手機格式和電話號碼格式方法
<%
Function RegExpTest(patrn, strng)
RetStr ="|"
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True ' 設(shè)置全局可用性。
Set Matches = regEx.Execute(strng) ' 執(zhí)行搜索。
For Each Match in Matches ' 遍歷匹配集合并去重。
MatchValue="|"&Match.Value&"|"
if instr(RetStr,MatchValue)>0 then
RetStr = RetStr
else
RetStr = RetStr & Match.Value & "|"
end if
Next
RegExpTest = RetStr
End Function
str="我的手機號是13888888888，或者13999999999，或者13999999999，訂單號12345678910防偽號123123456789
mobi=RegExpTest("1[3459789][0-9]
",str)
response.write mobi
————————————————
Function RegExpTest(patrn, strng)
RetStr ="|"
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True ' 設(shè)置全局可用性。
Set Matches = regEx.Execute(strng) ' 執(zhí)行搜索。
For Each Match in Matches ' 遍歷匹配集合并去重。
MatchValue="|"&Match.Value&"|"
if instr(RetStr,MatchValue)>0 then
RetStr = RetStr
else
RetStr = RetStr & Match.Value & "|"
end if
Next
RegExpTest = RetStr
End Function
str="我的手機號是13888888888，或者13999999999，或者13999999999，訂單號12345678910防偽號123123456789
mobi=RegExpTest("1[3459789][0-9]
",str)response.write mobi
————————————————
下一篇：石泉車找人！明天（6🈷&
最新評論
0條評論
暫無評論，歡迎您評論。