[已解决]批处理如何提取文本中每行指定位置的字符并重新合并成新的一行？

思想之翼 · 发表于 2012-7-3 19:18:57

本帖最后由 pcl_test 于 2016-12-8 17:43 编辑

有一txt文本记录数据上千条，格式为：
0000001 ABCDEFG
0000002 GBCDEFA
......
若规定ABCDEFG依次排位是1234567，现在要将ABCDEFG按如下指定位置拆分为35个txt，并依次命名为01、02......35，拆分后01.txt文本记录数据格式为：
0000001 ABC
0000002 GBC
......
上述拆分指定的位置依次为：
123
124
125
126
127
134
135
136
137
145
146
147
156
157
167
234
235
236
237
245
246
247
256
257
267
345
346
347
356
357
367
456
457
467
567
恳望大师相助！

yangfengoo · 发表于 2012-7-3 20:30:36

不知所云的说

apang · 发表于 2012-7-3 20:37:54

本帖最后由 apang 于 2012-7-3 21:05 编辑

@echo off
for /f "tokens=1,2 delims= " %%i in (a.txt) do (
set str=%%j&set num=100
setlocal enabledelayedexpansion
for /l %%a in (0 1 6) do (
set/a n1=%%a+1
for /l %%b in (!n1! 1 6) do (
set/a n2=%%b+1
for /l %%c in (!n2! 1 6) do (
set/a num+=1
echo,%%i !str:~%%a,1!!str:~%%b,1!!str:~%%c,1!>>!num:~-2!.txt
)
)
)
endlocal
)

复制代码

思想之翼 · 发表于 2012-7-3 22:21:00

高人！十分感谢！代码简洁，运行速度很快，完美解决问题！谢谢！

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] [已解决]批处理如何提取文本中每行指定位置的字符并重新合并成新的一行？