@echo off&setlocal enabledelayedexpansion
::因论坛无法处理tab跳格，
::测试时将代码中的 set "tab=#" 中的#号改为tab键即可。。
::注意事项：
::需处理的号码出现 多少号至多少号时
::如 160-162 这种情况下“－”号左右的数字位数必须是一样的
:: 象 198-1234 这样的就会出错。
 
set "wj1=a.txt"
set "wj2=b.txt"
 
set "tab=#"
 
if "%tab%"=="#" (
   echo.&echo  请先将代码中的 set "tab=#" 中的#号改为tab键
   echo.&pause>nul&exit
)
 
set t=%time%
echo.1>nul 3>"%wj2%"
set /p var=<"a.txt"
for /l %%a in (1 1 3) do set "var=!var:*%tab%=!"
set "var=!var:%tab%= !"
for /f "usebackq skip=1 delims=" %%i in ("%wj1%") do (
   for /f "tokens=1-3* delims=%tab%" %%a in ("%%i") do (
      set "sen=%%a"
      set "cen=%%b"
      set "quhao=%%c"
   )
   set str=%%i
   for /l %%a in (1 1 3) do set "str=!str:*%tab%=!"
   for %%z in (%var%) do (
      if not "!str:~0,1!"=="%tab%" (
         for /f "tokens=1 delims=%tab%" %%E in ("!str!") do (
           for %%f in (%%E) do (
              set "num=%%f"
              set "num2=!num:-=!"
              if "!num2!"=="!num!" (set x=1!num! 1 1!num!) else (
                 set "x=1!num:-= 1 1!"
              )
              for /l %%L in (!x!) do (
                 set num3=%%L&set "num3=!num3:~1!"
                 echo %%z!num3! !sen! !cen! !quhao!
       ))))
       set "str=!str:*%tab%=!"
))
 
echo.1>nul 4>con
echo  %t%
echo  %time%
call :time0 "%t%" "%time%" ok
echo %ok%
pause
start "" notepad "%wj2%"
exit
 
:time0  计算批处理运行时间 （封装）
@echo off&setlocal&set /a n=0&rem code 随风 @bbs.bathome.net
for /f "tokens=1-8 delims=.: " %%a in ("%~1:%~2") do (
set /a n+=10%%a%%100*360000+10%%b%%100*6000+10%%c%%100*100+10%%d%%100
set /a n-=10%%e%%100*360000+10%%f%%100*6000+10%%g%%100*100+10%%h%%100)
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=%s% 小时 %f% 分钟 %m% 秒 %n% 毫秒"
endlocal&set "%~3=%ok:-=%"&goto :EOF
复制代码

@echo off
:: 请把TAB字符替换为跳格键
echo.1>nul 3>1.txt
setlocal enabledelayedexpansion
for /f "skip=1 delims=" %%i in (139.txt) do (
    set "str=%%i"
    set "str=!str:TAB=#TAB!"
    set "str=!str:,=，!"
    set num=-4
    for %%j in (!str!) do (
        set /a num+=1
        if !num! lss 0 (
            set address=%%j
            set address=!address:#=!
            set address!num!=!address!
        ) else call :next %%j
    )
)
echo.1>nul 4>con
echo %time%
start notepad.exe 1.txt
pause
exit

:next
set str=%1
set str=%str:，=,%
set str=%str:#=%
for %%i in (%str%) do (
    set var1=%%i
    set var2=!var1:=-!
    if "!var1!"=="!var2!" (
        set var=1!var1!,1,1!var1!
    ) else set var=1!var1:-=,1,1!
    for /l %%i in (!var!) do (
        set str=%%i
        echo 139%num%!str:~1! %address-3% %address-2% %address-1%
    )
)
goto :eof
复制代码

@echo off&setlocal enabledelayedexpansion
set "Tab=#"
if "%Tab%"=="#" (
   echo.&echo  请先将代码中的 set "Tab=#" 中的#号改为Tab键
   echo.&pause>nul&exit
)
set/p str=<139.txt
echo.1>nul 3>139_new.txt
for /f "tokens=3* delims=%Tab%" %%i in ("%str%") do set str=%%j
   for %%i in (%str%) do set/a n+=1&set _!n!=%%i
   for /f "skip=1 tokens=1-3* delims=%Tab%" %%i in (139.txt) do (
   set "str=%%i%Tab%%%j%Tab%%%k"
   set "var=%%l"
   set "str1="&set "m="
   set var=!var:%Tab%=%Tab%#!
   call:next "!var!"
   if not defined str1 echo;%Tab%!str!
)
echo.1>nul 4>con
start notepad "139_new.txt"&exit
:next
for /f "tokens=1* delims=%Tab%" %%i in (%1) do (
       set/a m+=1
       for %%a in (%%i) do (
       if not "%%a"=="#" (
       set str1=%%a
       set str1=!str1:#=!
       set str2=!str1:*-=!
       call set str1=%%str1:-!str2!=%%
       for /l %%b in (1!str1! 1 1!str2!) do (
       set b=%%b
       if %%b lss 10000 (set b=!b:~-3!) else set b=!b:~-4!
       call echo;%%_!m!%%!b!%Tab%!str!
       )))
       if not "%%j"=="" call :next "%%j"
  )
          
复制代码

@echo off&setlocal enabledelayedexpansion
echo 139号段[tab]省份[tab]城市[tab]城市区号>num.xls
for /f "delims=" %%a in (139.txt) do (
    set /a n=-4&set "code="
    set "str=%%a"&set "str=!str:,=#!"
    for %%b in (!str!) do (
        set /a n+=1
        if !n! lss 0 (
           set "code=!code![tab]%%b"
           ) else (
           if "%%b" neq "无" (
              set "var=%%b"&set "var=!var:#= !"
              for %%c in (!var!) do (
                  set "string=%%c"&set "k="
                  if "!string:-=!" neq "!string!" (
                     for /f "tokens=1,2 delims=-" %%d in ("%%c") do (
                         set "a=%%d"&set "b=%%e"
                         if "!a:~,1!" equ "0" set "a=1!a!"&set "k=0"
                         if "!b:~,1!" equ "0" set "b=1!b!"
                         for /l %%f in (!a!,1,!b!) do (
                             set "c=%%f"
                             if defined k set "c=!c:~1!"
                             echo 139!n!!c![tab]!code:~1!>>num.xls 
                         )
                     )
                     ) else (
                     echo 139!n!%%c[tab]!code:~1!>>num.xls
                  )
              )
           )
        )
     )
)
start num.xls
复制代码