[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
JS,存为.bat运行
  1. @set @n=0; /* & echo off & type 1.txt|cscript -nologo -e:jscript "%~f0" & pause & exit/b & rem */
  2. WScript.StdIn.ReadAll()
  3. .replace(/\s/g, "")
  4. .replace(/(1[34578]\d{9})/g, function(a,b){
  5. WScript.Echo(b);
  6. });
复制代码
1

评分人数

人生是一部书/只有这一页最温暖/读懂它的时候/我们在远方流泪...

TOP

  1. @echo off
  2. set /an=Len=0
  3. 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 (
  4.     set "s=%%i"
  5.     set "str=%%i"
  6.     setlocal enabledelayedexpansion
  7.     for %%j in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
  8.         if "!s:~%%j!" neq "" set /a Len+=%%j & set "s=!s:~%%j!"
  9.     )
  10.     for /l %%j in (0,1,!len!) do (
  11.         set t=!str:~%%j,1!
  12.         if !t! leq 9 (
  13.            if !t! geq 0 (
  14.               set /a n+=1
  15.               set num=!num!!t!
  16.            ) else set num=&set "n=0"
  17.         ) else set num=&set "n=0"
  18.         if !n! equ 11 (
  19.            echo;!num!
  20.            set num=&set "n=0"
  21.         )
  22.     )
  23.     endlocal
  24. )
  25. pause
复制代码
1

评分人数

TOP

回复 17# terse


    用这个好像会省事些:
  1. findstr /r "\<1[3-58][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\>"
复制代码

TOP

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

TOP

返回列表