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

回家路上 · 发表于 2017-2-9 17:41:07

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);
});

复制代码

terse · 发表于 2017-2-12 20:39:20

@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

复制代码

CrLf · 发表于 2017-2-12 21:08:24

回复 17# terse

用这个好像会省事些：

复制代码

terse · 发表于 2017-2-12 21:53:48

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

...13088889999qrweqr1391511412413088889999...

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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