最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp提取內(nèi)容中的手機(jī)號碼,qq,網(wǎng)址的正則代碼

 更新時(shí)間:2011年09月19日 20:48:50   作者:  
有時(shí)候需要獲取頁面源代碼中的手機(jī)號碼,qq,網(wǎng)址,一般情況下都是用正則表達(dá)式實(shí)現(xiàn)的,需要的朋友可以參考下。
常用的正則匹配表達(dá)式

正則表達(dá)式--驗(yàn)證手機(jī)號碼:13[0-9]{9}
實(shí)現(xiàn)手機(jī)號前帶86或是+86的情況:^((\+86)|(86))?(13)\d{9}$
電話號碼與手機(jī)號碼同時(shí)驗(yàn)證:(^(\d{3,4}-)?\d{7,8})$|(13[0-9]{9})
提取信息中的網(wǎng)絡(luò)鏈接:(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+)
提取信息中的中國手機(jī)號碼:(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}
提取信息中的整數(shù):\d+
提取信息中的浮點(diǎn)數(shù)(即小數(shù)):(-?\d*)\.?\d+
提取信息中的任何數(shù)字 :(-?\d*)(\.\d+)?
提取信息中的中文字符串:[\u4e00-\u9fa5]*
提取信息中的雙字節(jié)字符串 (漢字):[^\x00-\xff]*

用到的函數(shù)(第一個(gè)參數(shù)為正則表達(dá)式,第二個(gè)為字符串):
復(fù)制代碼 代碼如下:

Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True ' 設(shè)置全局可用性。
Set Matches = regEx.Execute(strng) ' 執(zhí)行搜索。
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

相關(guān)文章

最新評論

太仆寺旗| 涡阳县| 定边县| 丽江市| 潜江市| 同德县| 离岛区| 祁东县| 台南市| 桐乡市| 望奎县| 西充县| 桐城市| 柯坪县| 舒城县| 玛多县| 淮北市| 武山县| 三都| 琼海市| 吴川市| 志丹县| 诏安县| 贺州市| 芦溪县| 关岭| 柳江县| 定州市| 双柏县| 蒲江县| 福安市| 石柱| 嘉峪关市| 木兰县| 福清市| 商丘市| 青铜峡市| 宁海县| 江门市| 栾城县| 恭城|