@echo off
set "File=a.txt"

for %%a in ("%File%") do set Output=%%~dpna_NotUsed%%~xa

SetLocal EnableDelayedExpansion

(for /f "usebackq tokens=1,3" %%a in ("!File!") do (
    set StateList=%%b
    if "!StateList:3=!" neq "!StateList!" (
        set Num=%%a
        for /l %%n in (0 1 9) do (
            set State=!StateList:~%%n,1!
            if "!State!"=="3" (
                Rem 因为批处理最大只能计算到十位数，为 2147483647，所以取号码的后九位进行计算。
                Rem 避免取出的九位数的第一个数为 0，计算时 0 会丢失，所以在九位数前补一个 1。
                set /a Num_R9 = 1!Num:~-9! + %%n
                echo !Num:~,-9!!Num_R9:~1!
            )
        )
    )
)) > "!Output!"

start "" "!Output!"
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1-11" %%a in (a.txt) do call :ech1 %%k %%a %%b %%c %%d %%e %%f %%g %%h %%i %%j & echo;
goto :eof

:ech1
set str=%1& set /a n=-1
:ech2
for /f "tokens=1*" %%x in ("%*") do (
    set yy=%%y
    if %n% GEQ 0 (
      set str1=!str:~%n%,1!
      if !str1! EQU 3 set/p "=%n%:%%x ,"<nul
      )
     set /a n+=1
     if defined yy call :ech2 %%y
     exit /b 0
    )
复制代码

@echo off&setlocal ENABLEDELAYEDEXPANSION
for /f "skip=1 tokens=1,3" %%a in (b.txt) do (
  set xx=%%a&set x=%%b
  for /l %%i in (0 1 9) do if "!x:~%%i,1!"=="3" (
      set /a #=100!xx:~-2!+%%i-10000,##=!xx:~0,-2!
  if !#! lss 10 set #=0!#!
   echo.!##!!#!
   )
 )>>状态为3.txt
复制代码