poter

回复 1# wh1234567


bat，把源代码保存为1.txt，然后用这个批处理，我只帮你筛了11位的手机号

@echo off
setlocal enableDelayedExpansion
for /f "tokens=*" %%i in ('findstr "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]" 

1.txt') do (
	for %%j in ("%%i") do (
		set str=%%j&set str=!str:~0,11!
		if not "!str!"=="code&sky" echo !str!>>2.txt
	)
)
复制代码

这是vbs，也是筛选11为手机号，但不能筛出重复的手机号

option explicit
dim a, b, c, d, e, e1
set a = createobject("scripting.filesystemobject")
set b = a.opentextfile("1.txt")
set c = func1(b.readall)
for each d in c
	e = e & d.value & vbnewline
next
sub1 e

function func1(str)
dim aa, bb
set aa = new regexp
aa.pattern = "\d{11}"
aa.global = true
set func1 = aa.execute(str)
end function

sub sub1(str)
dim aaa, bbb
set aaa = createobject("scripting.filesystemobject")
set bbb = aaa.createtextfile("2.txt")
bbb.write str
end sub
复制代码