批处理如何提取每行的数字部分，没有数字就写成123456

vkqo

批处理如何提取每行的数字部分，没有数字就写成123456
a文本
gogo0913
great003
great521
gs021872
guijun
linlin
提取出来后的b文本应该是
0913
003
521
021872
123456
123456

弄了好几天，搞不定啊

xxpinqz

1. 
   
2. @echo off
   
3. ::逐字比对，效率很低。
   
4. for /f "delims=" %%a in (a.txt) do (
   
5.   set "str=%%a"
   
6.   setlocal enabledelayedexpansion
   
7.   echo %%a|findstr "[0-9]">nul&&(call :loop&echo !result!)||echo 123456
   
8.   endlocal
   
9. )
   
10. pause&exit /b
    
11. :loop
    
12. set "chr=%str:~0,1%"
    
13. echo %chr%|findstr "[0-9]">nul&&set result=%result%%chr%
    
14. set "str=%str:~1%"
    
15. if "%str%"=="" goto :eof
    
16. goto loop
    

复制代码

BAT-VBS

1. gawk "{if($0~/[0-9]/)gsub(/[^0-9]/,"");else $0=123456;print}" a.txt > b.txt

复制代码

CrLf

使用第三方工具 sed 的话很容易：

1. sed "s/[^0-9]//g;s/^$/12345/" a.txt>b.txt

复制代码