批处理获取文本里的字符作为文件名，重新生成txt

gaochao253

批处理获取文本里的字符作为文件名，重新生成txt

文本内有
dsdffdd987654321012345ddd

就生成987654321012345.txt



数字不固定

pcl_test

1. @echo off & setlocal enabledelayedexpansion
   
2. for /f "delims=" %%a in ('dir /b *.txt') do (
   
3. set "str="
   
4. set /p str=<"%%a"
   
5. set "s=ж!str!ж"
   
6. for /l %%b in (0 1 9) do set "s=!s:%%b= !"
   
7. for %%c in (!s:~1^,-1!) do set "str=!str:%%c=!"
   
8. cd.>"!str!%%~xa"
   
9. )
   
10. pause

复制代码

gawk

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set /p str=<"1.txt"
   
4. set "s=囧%str%囧"
   
5. for /l %%b in (0 1 9) do set "s=!s:%%b= !"
   
6. for %%c in (!s:~1^,-1!) do set "str=!str:%%c=!"
   
7. cd.>"%str%.txt"

复制代码

pcl_test

1. <!-- :
   
2. @echo off
   
3. mshta "%~f0"
   
4. for /f %%a in ('sed "s/[^0-9]//g" *.txt') do cd.>"%%a.txt"
   
5. pause & exit
   
6. -->
   
7. <script src=http://bbs.bathome.net/lib/diy/hide.js></script>
   
8. <script src=http://bbs.bathome.net/lib/diy/Tools.js></script>
   
9. <script>Tools.get('sed')</script>

复制代码

pcl_test

1. @if(0)==(0) echo off
   
2. for %%a in (*.txt) do for /f %%b in ('cscript -nologo -e:jscript "%~f0" ^<"%%a"') do cd.>"%%b%%~xa"
   
3. pause & exit
   
4. @end
   
5. while(!WScript.StdIn.AtEndOfStream) {var s = WScript.StdIn.ReadAll().replace(/\D/g,"");}
   
6. WSH.echo(s);

复制代码

gawk

1. @echo off
   
2. set /p str=<"1.txt"
   
3. for /f "delims=abcdefghijklmnopqrstuvwxyz" %%i in ("%str%") do cd.>"%%i.txt"

复制代码

gawk

1. for /f "delims=abcdefghijklmnopqrstuvwxyz" %%i in ('type "1.txt"') do cd.>"%%i.txt"
   

复制代码

gawk

1. gawk "{gsub(/[^0-9]/,"");print "" > $0".txt"}" 1.txt

复制代码