批处理如何从文本文件中提取13位数字

cutebe

1. @ECHO OFF
   
2. FOR /L %%A IN (0 1 8)DO SET _%%A=1
   
3. (FOR /F "DELIMS=" %%F IN (123.TXT)DO (
   
4. 　FOR %%M IN (%%F)DO CALL :CN "%%M"
   
5. ))>B.TXT
   
6. GOTO :EOF
   
7. 
   
8. :CN NUM
   
9. SET FLAG=&SET N=
   
10. SET "NUM=%~1"
    
11. SET "STR=%NUM%FEDCBA9876543210"
    
12. SET/aLEN=0x%STR:~15,1%
    
13. IF %LEN%==13 (
    
14. 　FOR /L %%C IN (0 1 12)DO CALL :ISNUM "%%NUM:~%%C,1%%"
    
15. )
    
16. IF NOT DEFINED FLAG (
    
17. 　IF "%N%"=="52" ECHO=%NUM% %N%
    
18. 　IF "%N%"=="39" ECHO=%NUM% %N%
    
19. )
    
20. GOTO :EOF
    
21. 
    
22. :ISNUM NUM
    
23. IF DEFINED _%~1 (SET/aN+=%~1)ELSE SET FLAG=1

复制代码

apang

1. @echo off
   
2. (for /f "delims=" %%a in (1.txt) do (
   
3.   for %%b in (%%a) do (
   
4.     set "str=%%b"
   
5.     setlocal enabledelayedexpansion
   
6.     if not "!str:~12,1!"=="" if "!str:~13!"=="" set a=$!str!
   
7.     if defined a for /l %%c in (0 1 8) do set a=!a:%%c=!
   
8.     if "!a!"=="$" (
   
9.       for /l %%c in (0 1 12) do set/a sum+=!str:~%%c,1!
   
10.       for %%c in (52 39) do if "%%c"=="!sum!" echo,!str! !sum!
    
11.     )
    
12.     endlocal   
    
13.   )
    
14. ))>Result.txt

复制代码

terse

1. @echo off&setlocal enabledelayedexpansion
   
2. set _52=i&set _39=i
   
3. for /f "delims=" %%i in (123.txt) do (
   
4.     for %%j in (%%i) do (
   
5.         set str=%%j#
   
6.         if "!str:~13!"=="#" for /l %%k in (0 1 8) do set str=!str:%%k=!
   
7.         if !str! == # (
   
8.            set sum=&set str=%%j&for /l %%k in (0 1 12) do set/a "sum+=!str:~%%k,1!"
   
9.            if defined _!sum! echo,%%j !sum!
   
10.         )
    
11.     )
    
12. )
    
13. pause

复制代码

poter

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

1. @echo off
   
2. setlocal enableDelayedExpansion
   
3. 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-
   
4. 
   
5. 9][0-9][0-9]" 123.txt') do (
   
6.         for %%j in (%%i) do (
   
7.                 set str=%%j&set count1=
   
8.                 if not "!str:~12!"=="" set /a count1+=1
   
9.                 if !str:~12! GEQ 0 set /a count1+=1
   
10.                 if !str:~12! LEQ 9 set /a count1+=1
    
11.                 if !count1!==3 echo %%j>>new.txt
    
12.         )
    
13. )

复制代码

poter

再来个vbs版的

1. option explicit
   
2. dim class1, class2, class3, class4, str1, str2
   
3. set class1 = createobject("scripting.filesystemobject")
   
4. set class2 = class1.opentextfile("123.txt")
   
5. set class4 = class1.createtextfile("new.txt", 2)
   
6. do until class2.atendofstream
   
7.         str1 = class2.readall
   
8.         for each str2 in func1(str1)
   
9.                 class4.writeline str2
   
10.         next
    
11. loop
    
12. 
    
13. function func1(str)
    
14. set class3 = new regexp
    
15. class3.pattern = "\d{13}"
    
16. class3.global = true
    
17. set func1 = class3.execute(str)
    
18. end function

复制代码