【已解决】BAT :如何按照对应关系批量置换数据

思想之翼

D:/数据1/内有若干txt文本，每个文本内有若干行数据，格式为：
91457
12345
欲按如下对应关系，对所有文本内的数据进行批量置换：
0置换为0369
3置换为0369
6置换为0369
9置换为0369
1置换为147
4置换为147
7置换为147
2置换为258
5置换为258
8置换为258
上例数据：
91457
12345
置换后为：
0369/147/147/258/147
147/258/0369/147/258
将置换后的数据写入D:/数据2/  原文本名称不变。
这样的代码如何写？恳望得到帮助。

CrLf

1. @echo off
   
2. dir /b "D:/数据1/*.txt"|mshta "%~f0"
   
3. pause & exit /b
   
4. 
   
5. <script src=http://www.bathome.net/lib/diy/WSH.js></script>
   
6. <script src=http://www.bathome.net/lib/diy/hide.js></script>
   
7. <script src=http://www.bathome.net/lib/diy/Function.js></script>
   
8. 
   
9. <script>
   
10. var list = {
    
11.         0:"0369", 3:"0369", 6:"0369", 9:"0369", 1:"147",
    
12.         4:"147", 7:"147", 2:"258", 5:"258", 8:"258"
    
13. }
    
14. 
    
15. var dir = WScript.StdIn.ReadAll().split(/\r?\n/)
    
16. 
    
17. for(var i in dir){
    
18.         var text = type(dir[i])
    
19.                 .replace(/./g,function(c){
    
20.                         return c in list ? list[c] : c
    
21.                 })
    
22.         createfile(dir[i],1).Write(text)
    
23. }
    
24. </script>

复制代码

思想之翼

回复 2# CrLf

感谢帮助。
经过测试，出错：   无效开关-“数据1”

CrLf

给 D:/数据1/*.txt 加个引号就好了，楼主学习下，以后这种简单的问题可以自己改

思想之翼

回复 4# CrLf

加了引号，还是错了:

CrLf

那说明你的 D:/数据1/ 里没 txt 文件，这不是逗我吗...

思想之翼

回复 6# CrLf

放上测试附件。

cobat

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. pushd d:\&md "数据2"
   
4. for %%a in ("数据1\*.txt") do (
   
5.     (for /f %%b in ('type "%%a"') do (
   
6.         set s=%%b
   
7.         set s=!s:3=0!&set s=!s:6=0!&set s=!s:9=0!
   
8.         set s=!s:4=1!&set s=!s:7=1!
   
9.         set s=!s:5=2!&set s=!s:8=2!
   
10.         set s=!s:0=0369/!&set s=!s:1=147/!&set s=!s:2=258/!
    
11.         echo,!s:~,-1!
    
12.     ))>"数据2\%%~nxa"
    
13. )
    
14. pause

复制代码

慕夜蓝化

1. 
   
2. @echo off&set/a a=-1
   
3. for %%i in (D:\数据1\*.txt) do (
   
4.     (for /f "usebackq delims=" %%a in ("%%i") do (
   
5.         for %%b in (%%a) do (
   
6.             setlocal enabledelayedexpansion
   
7.             set n=%%b&call :split
   
8.             echo,!v:~,-1!&endlocal
   
9.         )
   
10.     )) >%temp%\$
    
11.     move %temp%\$ "%%i"
    
12. )
    
13. pause&exit
    
14.         
    
15.         
    
16.         
    
17. :split
    
18. if not "!n!"=="" (
    
19.     for /l %%a in (0 1 9) do (
    
20.         if "%%a"=="!n:~,1!" (
    
21.             for %%b in (0369 147 258 0369 147 258 0369 147 258 0369) do (
    
22.                 set/a a+=1
    
23.                 if !a! equ %%a set "v=!v!%%b/"
    
24.             )
    
25.         )
    
26.     )
    
27.     set n=!n:~1!&set/a a=-1&goto :split
    
28. )
    
29. goto :eof
    

复制代码

慕夜蓝化

1. 
   
2. @echo off
   
3. call :start 147 258 0369 147 258 0369 147 258 0369
   
4. pause&exit
   
5. :start
   
6. for %%i in (d:\数据\*.txt) do (
   
7. (for /f "usebackq delims=" %%j in ("%%i") do (
   
8.     for %%a in (%%j) do (
   
9.         setlocal enabledelayedexpansion
   
10.         set u=%%a
    
11.         set n=%%afedcba9876543210
    
12.         set/a len=0x!n:~16,1!
    
13.         for /l %%b in (0 1 !len!) do (
    
14.             if not "!u:~%%b,1!"=="0" (
    
15.                 set c=!u:~%%b,1!
    
16.                 call set v=!v!%%%!c!/
    
17.             ) else (
    
18.                 set v=!v!0369/
    
19.             )
    
20.         )
    
21.     echo,!v:~,-1!&endlocal   
    
22.     )
    
23. )) >d:\数据2\%%~nxi
    
24. )
    
25. goto :eof
    

复制代码

CrLf

回复 10# 慕夜蓝化


    可以借鉴下 8 楼思路，比较直接干脆，解决得很漂亮

慕夜蓝化

回复 11# CrLf


    嗯，也写了一下,用的替换的思路。

1. 
   
2. @echo off
   
3. set/a y=147,z=258&set x=0369
   
4. for /l %%a in (0 3 9) do set %%a=x
   
5. for %%a in (1 4 7) do set %%a=y
   
6. for %%a in (2 5 8) do set %%a=z
   
7. for /f "delims=" %%i in (a.txt) do (
   
8.     for %%j in (%%i) do (
   
9.         setlocal enabledelayedexpansion
   
10.         set n=%%j
    
11.         for /l %%a in (0 1 9) do set v=!%%a!&call set n=!n:%%a=%%v%%!
    
12.         for %%a in (x y z) do set u=!%%a!&call set n=!n:%%a=%%u%%/!
    
13.         set/p=!n:~,-1!  <nul&endlocal
    
14.     )
    
15.     echo,
    
16. )
    
17. pause
    

复制代码