中国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处理起来就怕一行的长度太大，另外处理特殊字符麻烦。

学习了，谢谢

圣诞节 快乐呀