@echo off
dir /b "D:/数据1/*.txt"|mshta "%~f0"
pause & exit /b

<script src=http://www.bathome.net/lib/diy/WSH.js></script>
<script src=http://www.bathome.net/lib/diy/hide.js></script>
<script src=http://www.bathome.net/lib/diy/Function.js></script>

<script>
var list = {
	0:"0369", 3:"0369", 6:"0369", 9:"0369", 1:"147",
	4:"147", 7:"147", 2:"258", 5:"258", 8:"258"
}

var dir = WScript.StdIn.ReadAll().split(/\r?\n/)

for(var i in dir){
	var text = type(dir[i])
		.replace(/./g,function(c){
			return c in list ? list[c] : c
		})
	createfile(dir[i],1).Write(text)
}
</script>
复制代码

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

@echo off&set/a a=-1
for %%i in (D:\数据1\*.txt) do (
    (for /f "usebackq delims=" %%a in ("%%i") do (
        for %%b in (%%a) do (
            setlocal enabledelayedexpansion
            set n=%%b&call :split
            echo,!v:~,-1!&endlocal
        )
    )) >%temp%\$
    move %temp%\$ "%%i"
)
pause&exit
        
        
        
:split
if not "!n!"=="" (
    for /l %%a in (0 1 9) do (
        if "%%a"=="!n:~,1!" (
            for %%b in (0369 147 258 0369 147 258 0369 147 258 0369) do (
                set/a a+=1
                if !a! equ %%a set "v=!v!%%b/"
            )
        )
    )
    set n=!n:~1!&set/a a=-1&goto :split
)
goto :eof
复制代码

@echo off
call :start 147 258 0369 147 258 0369 147 258 0369
pause&exit
:start
for %%i in (d:\数据\*.txt) do (
(for /f "usebackq delims=" %%j in ("%%i") do (
    for %%a in (%%j) do (
        setlocal enabledelayedexpansion
        set u=%%a
        set n=%%afedcba9876543210
        set/a len=0x!n:~16,1!
        for /l %%b in (0 1 !len!) do (
            if not "!u:~%%b,1!"=="0" (
                set c=!u:~%%b,1!
                call set v=!v!%%%!c!/
            ) else (
                set v=!v!0369/
            )
        )
    echo,!v:~,-1!&endlocal    
    ) 
)) >d:\数据2\%%~nxi
)
goto :eof
复制代码

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