中国DOS联盟

数字之间是 空格分隔的，其中包括一位数字，两位数字的 数据。
数据中的前2个数据后加一换行，之后的每隔16个数据换行一次
在记事本中是以上那种排列的：
90 44 6 5 6 4 6 4 6 5 5 5 6 4 6 5 6 4 6 16 6 16 6 16 6 16 6 16 6 15 6 16 6 16 6 5 6 16 6 5 6 16 6 4 6 4 6 4 6 5 5 16 6 5 6 16 6 5 6 16 6 16 6 16 6 16

我现在想把记事本中的数据这样排列：
90 44 第一次两个数据换行一次
6 5 6 4 6 4 6 5 5 5 6 4 6 5 6 4 以后的都是16个数据 换行一次
6 16 6 16 6 16 6 16 6 16 6 15 6 16 6 16
6 5 6 16 6 5 6 16 6 4 6 4 6 4 6 5
5 16 6 5 6 16 6 5 6 16 6 16 6 16 6 16

谢谢大家帮忙了

使用sed转换空格为换行sed "s/ /\n/g" a.txt
用for提取文本到b.txt，输出时使用set/p。
同时使用if判断：
1，当行号等于2执行一次echo.。
2，当行号大于2执行：用行号除以16，当余数等于15时，使用一次echo.进行换行。

[ Last edited by Hanyeguxing on 2009-12-24 at 07:42 ]

其实只用FR或者SED之类的就可以完成
fr -ric:"(\d\d \d\d)" -t:"\1\r\n" x.txt
fr -ric:"({\d+ }{16,16})" -t:"\1\r\n" x.txt

先贴上来，一会再测试看行不行。

经过测试，小改一下，可以了
fr -ric:"(\d\d \d\d) " -t:"\1\r\n" x.txt
fr -ric:"((\d+ ){16,16})" -t:"\1\r\n" x.txt

最好使搞成一个批处理或者脚本什么的，直接双击就达到效果，是最方便的，再次麻烦各位大侠了

@echo off SETLOCAL ENABLEDELAYEDEXPANSION set/p a=<a.txt cd.>temp.txt cd.>tmp.txt for %%a in (%a%) do echo %%a>>temp.txt for /f "tokens=1,2 delims=" %%a in ('type temp.txt^|find /v /n "."') do (if %%a==1 set b=%%b set/a c=%%a%%16 if !c!==2 (echo !b! %%b>>tmp.txt set b=) if !c!==3 set b=%%b if %%a gtr 3 (if !c! lss 2 set b=!b! %%b if !c! gtr 3 set b=!b! %%b) ) del temp.txt
自动从a.txt里读入1行 写到tmp.txt里

[ Last edited by 不得不爱 on 2009-12-24 at 20:11 ]

On Error Resume Next Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile1 = oFSO.OpenTextFile("a.txt") Set oFile2 = oFSO.OpenTextFile("b.txt",2,True) Do Until oFile1.AtEndOfLine arr = Split(oFile1.ReadLine,Space(1)) oFile2.WriteLine arr(0) & Space(1) & arr(1) For i = 2 To UBound(arr) - 1 Step 16 str = "" For j = 0 To 15 '这里下标可能越界，所以前面要On Error str = str & arr(i + j) & Space(1) Next oFile2.WriteLine str Next '下面这行前面加个'号可以不显示在b.txt中 oFile2.WriteLine "*****************一行结束************" Loop oFile1.Close oFile2.Close Set oFile1 = Nothing Set oFile2 = Nothing Set oFSO = Nothing
保存为*.vbs到a.txt同目录下，会自动写到b.txt中，注意不要被覆盖了。

@echo off for /f "delims=" %%i in (a.txt) do call :Sub %%i pause goto :eof :Sub set str= set "flag=%~1" if not defined flag goto :eof for /l %%j in (1,1,2) do (call set "str=%%str%%%%~1 " & shift) echo %str% :Loop set str= set "flag=%~1" if not defined flag goto :eof for /l %%j in (1,1,16) do (call set "str=%%str%%%%~1 " & shift) echo %str% goto :Loop
用bat处理起来就怕一行的长度太大，另外处理特殊字符麻烦。

学习了，谢谢

圣诞节 快乐呀