[文本处理] 【已解决】求助：批处理如何分解竖排数据并添加序号？

思想之翼

D:\数据1\中有210个文本，分别命名为001-210，每个文本内数据格式统一.
例如001.txt数据格式：
5679
0588
4415
5966
...
欲将001.txt的数据：
5679分解为56 79
0588分解为05 88
4415分解为44 15
5966分解为59 66
...
然后竖排为：
56
79
05
88
44
15
59
66
...
再添加序号（1000001为起始序号）：
1000001 56
1000002 79
1000003 05
1000004 88
1000005 44
1000006 15
1000007 59
1000008 66
...
导出到D:\数据2\001.txt

同理，D:\数据1\中的文本002-210如上处理后，分别导入D:\数据2\002.txt-210.txt

yhcfsr

没做测试,所以请备份数据.

@echo off&setlocal enabledelayedexpansion
set "sd=D:\数据1"
set "dd=D:\数据2"
for /f "delims=" %%a in ('dir /a-d/s/b *.txt') do (
	set /a "n=1000000"
	(for /f "delims=" %%b in ('type "%%a"') do (
		set "var=%%b"
		set/a n+=1
		set/p"=!n!	"<nul
		echo;!var:~,2!
		set/a n+=1
		set/p"=!n!	"<nul
		echo;!var:~2!
	))>"%dd%\%%~nxa"
)
pause
复制代码

cfwyy77_bat

@echo off
setlocal enabledelayedexpansion

for /f %%a in ('dir /b D:\数据1\*.txt') do (
    set nu=1000001
    (for /f %%i in (D:\数据1\%%a) do (
    set str=%%i
    echo !nu! !str:~0,2!
    set /a nu+=1
    echo !nu! !str:~2,4!
    set /a nu+=1
    ))>D:\数据2\%%a
    )
pause
复制代码