cutebe

@ECHO OFF
FOR /L %%A IN (0 1 8)DO SET _%%A=1
(FOR /F "DELIMS=" %%F IN (123.TXT)DO (
　FOR %%M IN (%%F)DO CALL :CN "%%M"
))>B.TXT
GOTO :EOF

:CN NUM
SET FLAG=&SET N=
SET "NUM=%~1"
SET "STR=%NUM%FEDCBA9876543210"
SET/aLEN=0x%STR:~15,1%
IF %LEN%==13 (
　FOR /L %%C IN (0 1 12)DO CALL :ISNUM "%%NUM:~%%C,1%%"
)
IF NOT DEFINED FLAG (
　IF "%N%"=="52" ECHO=%NUM% %N%
　IF "%N%"=="39" ECHO=%NUM% %N%
)
GOTO :EOF

:ISNUM NUM
IF DEFINED _%~1 (SET/aN+=%~1)ELSE SET FLAG=1
复制代码

apang

@echo off
(for /f "delims=" %%a in (1.txt) do (
  for %%b in (%%a) do (
    set "str=%%b"
    setlocal enabledelayedexpansion
    if not "!str:~12,1!"=="" if "!str:~13!"=="" set a=$!str!
    if defined a for /l %%c in (0 1 8) do set a=!a:%%c=!
    if "!a!"=="$" (
      for /l %%c in (0 1 12) do set/a sum+=!str:~%%c,1!
      for %%c in (52 39) do if "%%c"=="!sum!" echo,!str! !sum!
    )
    endlocal    
  )
))>Result.txt
复制代码

terse

@echo off&setlocal enabledelayedexpansion
set _52=i&set _39=i
for /f "delims=" %%i in (123.txt) do (
    for %%j in (%%i) do (
        set str=%%j#
        if "!str:~13!"=="#" for /l %%k in (0 1 8) do set str=!str:%%k=!
        if !str! == # (
           set sum=&set str=%%j&for /l %%k in (0 1 12) do set/a "sum+=!str:~%%k,1!"
           if defined _!sum! echo,%%j !sum!
        )
    )
)
pause
复制代码

poter

兄弟们写得太复杂，我来个简单的

@echo off
setlocal enableDelayedExpansion
for /f "tokens=*" %%i in ('findstr "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-

9][0-9][0-9]" 123.txt') do (
	for %%j in (%%i) do (
		set str=%%j&set count1=
		if not "!str:~12!"=="" set /a count1+=1
		if !str:~12! GEQ 0 set /a count1+=1
		if !str:~12! LEQ 9 set /a count1+=1
		if !count1!==3 echo %%j>>new.txt
	)
)
复制代码

poter

再来个vbs版的

option explicit
dim class1, class2, class3, class4, str1, str2
set class1 = createobject("scripting.filesystemobject")
set class2 = class1.opentextfile("123.txt")
set class4 = class1.createtextfile("new.txt", 2)
do until class2.atendofstream
	str1 = class2.readall
	for each str2 in func1(str1)
		class4.writeline str2
	next
loop

function func1(str)
set class3 = new regexp
class3.pattern = "\d{13}"
class3.global = true
set func1 = class3.execute(str)
end function
复制代码