apang

回复 5# mick00034


    re.Pattern = "1\d{10}|(027\-)?83\d{6}"
可以匹配027-83123456，也可以匹配83123456

apang

回复 7# mick00034


    稍微变通一下就可以了

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)
    If Left(m, 2) = "83" Then m = "027" & m
    If InStr(s, m) = 0 Then s = s & m & vbCrLf
Next
WScript.Echo s
复制代码

apang

回复 9# mick00034


    重新开贴，给出样本，说清要求