[文本处理] 【已解决】批处理如何识别并提取文本中存在的11位手机号？

taofan712

寒蝉凄13切，对长亭晚，13311111111骤雨初歇。
都门帐饮无绪，留恋处舟催发。执手相看[color=Red]1355555
7777[/color]泪眼，竟无语凝噎。念15去135去千里烟波，
暮霭沉1314沉楚天阔。  多情自古12580伤离别，
更那堪冷落清秋节。今宵酒醒何处?136杨柳岸晓风10010残月。
1372222此444去经年，应是良辰好景虚设。
便纵10086有千种风情，更与何人说? 13788889999
复制代码

——————————————————
假设有类似文本，请问如何批处理自动识别其中的手机号码，并提取出来？

terse

回复 18# CrLf
此类匹配不了哦

...13088889999qrweqr1391511412413088889999...

CrLf

回复 17# terse


    用这个好像会省事些：

findstr /r "\<1[3-58][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\>"
复制代码

terse

@echo off
set /an=Len=0
for /f "delims=" %%i in ('findstr /r "1[3-58][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]"^<1.txt') do (
    set "s=%%i"
    set "str=%%i"
    setlocal enabledelayedexpansion
    for %%j in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
        if "!s:~%%j!" neq "" set /a Len+=%%j & set "s=!s:~%%j!"
    )
    for /l %%j in (0,1,!len!) do (
        set t=!str:~%%j,1!
        if !t! leq 9 (
           if !t! geq 0 (
              set /a n+=1
              set num=!num!!t!
           ) else set num=&set "n=0"
        ) else set num=&set "n=0"
        if !n! equ 11 (
           echo;!num!
           set num=&set "n=0"
        )
    )
    endlocal
)
pause
复制代码

回家路上

JS，存为.bat运行

@set @n=0; /* & echo off & type 1.txt|cscript -nologo -e:jscript "%~f0" & pause & exit/b & rem */
WScript.StdIn.ReadAll()
	.replace(/\s/g, "")
	.replace(/(1[34578]\d{9})/g, function(a,b){
		WScript.Echo(b);
	});
复制代码

codegay

sed awk poweshell之类的应该就一行。

GNU

grep -Pow "\d{11}" "1.txt" > "2.txt"
复制代码

grep.exe 2.22 测试通过
http://bbs.bathome.net/s/tool/index.html?key=grep

codegay

先findstr把有电话号码的行取出来啊。

taofan712

回复 11# 回家路上

谢谢，你冷酷的言语下有火热的心啊，哈哈。我把你和zz100001的代码都保存下来慢慢看。没看完之前不提新问题了。



看了一天多了，到现在才看明白过程是怎样的再次感谢。另外，从这里的代码我突然明白“从上到下一直写到底更适合菜鸟阅读”这句话是错误的……

回家路上

注定goto多次，注定慢... ...

@echo off & setlocal enabledelayedexpansion
:: 逐个字符找【11位，以1[34578]开头】的数字

for /f "delims=" %%i in ('type 1.txt') do (
	call :split "%%i"
)

pause & exit /b

:: ------------------------------------------

:split [line]
if not defined line set line=%~1
set n=!line:~,1!
if not defined n goto :eof
if !n! leq 9 (
	if !n! geq 0 (
		set _num=1
	)
)
if defined _num (
	set "_num="
	set num=!num!!n!
) else set "num="
if "!num!" neq "" if "!num:~10!" neq "" (
	set _legal=
	if "!num:~,1!"=="1" (
		for %%i in (3,4,5,7,8) do (
			if not defined _legal (
				if "!num:~1,1!"=="%%i" set _legal=1
			)
		)
	)
	if defined _legal (
		echo;!num!& set "num="
	) else set num=!num:~1!
)
set line=!line:~1!
if "!line!" neq "" goto :split
goto :eof
复制代码

taofan712

回复 8# zz100001

非常感谢，你的代码完美的解决了我的问题。

有点遗憾，我10年就注册了批处理之家，中途都是偶尔看看，到现在才真正开始对批处理产生浓厚兴趣。
提这个问题更直接的原因也是想从中学习批处理而不是通过其他语言手段得到这个问题的答案。
所以真的特别感谢你写这么长的代码回答我的问题。
谢谢。
——————————
看到现在，终于看懂了，逐字找出连续11位数字，再对比前3位。

taofan712

回复 6# 老刘1号
谢谢老刘
回复 7# B魔方大人
谢谢魔方大人

zz100001

诉我直言，很多人已经不喜欢用批处理了
字符处理不好也不方便
于是给你的一般都是ps或者“混编批处理”（其实就是拿批处理启动其他脚本）
电话号码如何识别你也没有明确的标准
这里就按11位数字来取好了

 @echo off

set fn=a.txt

setlocal enabledelayedexpansion
set PhoneNumbers=
set pn=
set /a nc=0
call :PhoneNumberReader "%fn%"
echo 文件中包含的全部手机号：
echo %PhoneNumbers%
pause
goto :EOF


:PhoneNumberReader
echo %~s1
for /f "delims=" %%a in (%~s1) do (
    call :CharReader %%a
)
call :CheckPhoneNumber
goto :EOF


:CharReader
set l=%*
:CheckNumber
set /a n=!l:~,1! 1>nul 2>&1
if "!n!" equ "!l:~,1!" (
    set pn=!pn!!n!
    set /a nc+=1 1>nul 2>&1
) else (
    call :CheckPhoneNumber *
)
set l=!l:~1!
if "!l!" neq "" goto :CheckNumber
goto :EOF


:CheckPhoneNumber
if !nc! equ 11 (
    for %%a in (134 135 136 137 138 139 150 151 152 158 159 157 182 187 188 147 130 131 132 155 156 185 186 133 153 180 189) do (
        if "%%a" equ "!pn:~,3!" (
            echo 找到一个手机号：!pn!
            set PhoneNumbers=!PhoneNumbers!!pn!%1
            goto :CheckPhoneNumberOver
        )
    )
)
:CheckPhoneNumberOver
set pn=
set /a nc=0 1>nul 2>&1
goto :EOF
复制代码

B魔方大人

bat.

1>1/* :
(@cscript -nologo -e:jscript %0<0.txt)>1.txt&exit
*/
var c = WSH.StdIn.ReadAll().replace(/.\r\n/g).match(/1[34578]\d{9}/g);
WSH.ECHO(c);
复制代码

老刘1号

'&wscript  -nologo -e:vbscript "%~0"
text=_
"寒蝉凄13切，对长亭晚，13311111111骤雨初歇。"&vbcrlf&_
"都门帐饮无绪，留恋处舟催发。执手相看[color=Red]1355555"&vbcrlf&_
"7777[/color]泪眼，竟无语凝噎。念15去135去千里烟波，"&vbcrlf&_
"暮霭沉1314沉楚天阔。  多情自古12580伤离别，"&vbcrlf&_
"更那堪冷落清秋节。今宵酒醒何处?136杨柳岸晓风10010残月。"&vbcrlf&_
"1372222此444去经年，应是良辰好景虚设。"&vbcrlf&_
"便纵10086有千种风情，更与何人说? 13788889999"

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' 建立变量。
   Set regEx = New RegExp   ' 建立正则表达式。
   regEx.Pattern = patrn   ' 设置模式。
   regEx.Global = True   ' 设置全局可用性。
   regEx.IgnoreCase = True   ' 设置是否区分字符大小写。
   Set Matches = regEx.Execute(strng)   ' 执行搜索。
   For Each Match in Matches   ' 遍历匹配集合。
      RetStr = RetStr & Match.Value& vbCRLF
   Next
   RegExpTest = RetStr
End Function
                        MsgBox(RegExpTest("1\d{10}", text))
复制代码

保存为CMD、BAT、VBS、VBE随意