标题: 大家好我记事本里的数字想进行换行处理 [打印本页]
作者: jiehi007 时间: 2009-12-23 22:36 标题: 大家好我记事本里的数字想进行换行处理
数字之间是 空格分隔的，其中包括一位数字，两位数字的 数据。
数据中的前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
谢谢大家帮忙了
作者: Hanyeguxing 时间: 2009-12-24 01:12
使用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 ]
作者: yishanju 时间: 2009-12-24 07:35
其实只用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
先贴上来，一会再测试看行不行。
作者: yishanju 时间: 2009-12-24 07:41
经过测试，小改一下，可以了
fr -ric:"(\d\d \d\d) " -t:"\1\r\n" x.txt
fr -ric:"((\d+ ){16,16})" -t:"\1\r\n" x.txt
作者: jiehi007 时间: 2009-12-24 10:05 标题: 谢谢各位帮忙，那些代码怎么使用呀？我不会用那个sed
最好使搞成一个批处理或者脚本什么的，直接双击就达到效果，是最方便的，再次麻烦各位大侠了
作者: 不得不爱 时间: 2009-12-24 19:58
@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里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
[ Last edited by 不得不爱 on 2009-12-24 at 20:11 ]
作者: mountvol 时间: 2009-12-24 20:04
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中，注意不要被覆盖了。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
作者: mountvol 时间: 2009-12-24 20:24
@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处理起来就怕一行的长度太大，另外处理特殊字符麻烦。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
作者: pdanniel66 时间: 2009-12-25 04:29
学习了，谢谢
作者: jiehi007 时间: 2009-12-25 13:54 标题: 测试都通过了，谢谢你们，佩服
圣诞节 快乐呀