批处理之家 - Powered by Discuz! Board

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

作者: 思想之翼 时间: 2018-6-4 06:05 标题: 【已解决】求助：批处理如何分解竖排数据并添加序号？

本帖最后由思想之翼于 2018-6-4 10:57 编辑

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 时间: 2018-6-4 09:17

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

@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 时间: 2018-6-4 10:31

@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
复制代码

欢迎光临批处理之家 (http://www.bathome.net/)