本帖最后由 mick00034 于 2014-8-13 23:58 编辑
回复 4# CrLf - Set fso = CreateObject("Scripting.FileSystemObject")
- txt = fso.OpenTextFile("1.txt",1,false,-1).ReadAll
- Set re = New RegExp
-
- re.Pattern = "1\d{10}|83\d{6}"
-
- re.IgnoreCase = True
- re.Global = True
- For Each m in re.Execute(txt)
- s = s & m & vbCrLf
- Next
- fso.OpenTextFile("2.txt",2,true).Write s
复制代码 如上述代码,可以提取手机号码和座机,只是座机前面要额外加,如027的话,有修改方法吗? 今天太晚了,希望您有时间的时候,看一下,,,,谢谢 |