标题: [请教]在文本文件中添加换行符 [打印本页]
作者: hwtan 时间: 2006-10-25 23:40 标题: [请教]在文本文件中添加换行符
请教：
有一个文本文件“aa.txt”，我想利用批处理把文件中每行固定的某个字符位置添加一个换行，或者是将固定的字符串“abdcd”替换成换行符，修改后的文件要另存为新的文件。
谢谢！！！！
[ Last edited by namejm on 2006-10-26 at 05:51 AM ]
作者: NaturalJ0 时间: 2006-10-25 23:43
如果果真如你所说，只有“一个”这样的文件的话，建议你用 WORD 的替换功能。
作者: hwtan 时间: 2006-10-25 23:50
| Quote: | |
|
我是要让它自动执行的，因为这个文本文件是隔几分钟内容变一次，所以用不了ｗｏｒｄ替换啊。
作者: 9527 时间: 2006-10-26 00:21
没有具体的文件和格式是不好判断特殊性的，不好解答........
作者: hwtan 时间: 2006-10-26 00:43
| Quote: | |
|
aa.txt 文件：
adfasdfasdf 12342341 asdf99jads
xxaaasdzfvs 1fadfadfd dfasdfdsfaasdfasdfasdf
dfasdfasdfa adfasdfasdadfasdfasdfsdf
。。。。
aa.txt文件是不断在增加的，不过要在每行添加一个换行的位置是不变的，例如都是在第一串字符串后面就换行。
作者: namejm 时间: 2006-10-26 01:15
试试下面的代码：
@echo off
cd.>test.txt
for /f "tokens=1*" %%i in (aa.txt) do (
>>test.txt echo %%i
>>test.txt echo %%j
)
start test.txt
cd.>test.txt
for /f "tokens=1*" %%i in (aa.txt) do (
>>test.txt echo %%i
>>test.txt echo %%j
)
start test.txt
作者: 3742668 时间: 2006-10-26 01:18
用bat涉及到特殊字符,相对来说容错以及效率都不是很好,此类问题建议用vbs来解决:
On Error Resume Next
strFileName = WScript.Arguments(0)
strReplace = WScript.Arguments(1)
If Len(Trim(strFileName)) = 0 Then
Set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
If intRet Then
strFileName = objFile.FileName
Set objFile = Nothing
Else
Set objFile = Nothing
WScript.Quit
End If
End If
If Len(strReplace) = 0 Then
strReplace = InputBox("输入要替换为回车的字符:")
If Len(strReplace) = 0 Then WScript.Quit
End If
Set objFile = CreateObject("Scripting.FileSystemObject")
Set f = objFile.OpenTextFile(strFileName,1)
If Err.Number <> 0 Then WScript.Echo Err.Description :WScript.Quit
strTmp = f.ReadAll
strTmp = Replace(strTmp,strReplace,Chr(13) & Chr(10))
f.Close
Set f = Nothing
Set f= objFile.OpenTextFile(strFileName & ".txt",2,True)
f.Write strTmp
f.Close
Set f = Nothing
Set objfile = Nothing
当然,如果确实想用bat解决也可以跟贴说明.strFileName = WScript.Arguments(0)
strReplace = WScript.Arguments(1)
If Len(Trim(strFileName)) = 0 Then
Set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
If intRet Then
strFileName = objFile.FileName
Set objFile = Nothing
Else
Set objFile = Nothing
WScript.Quit
End If
End If
If Len(strReplace) = 0 Then
strReplace = InputBox("输入要替换为回车的字符:")
If Len(strReplace) = 0 Then WScript.Quit
End If
Set objFile = CreateObject("Scripting.FileSystemObject")
Set f = objFile.OpenTextFile(strFileName,1)
If Err.Number <> 0 Then WScript.Echo Err.Description :WScript.Quit
strTmp = f.ReadAll
strTmp = Replace(strTmp,strReplace,Chr(13) & Chr(10))
f.Close
Set f = Nothing
Set f= objFile.OpenTextFile(strFileName & ".txt",2,True)
f.Write strTmp
f.Close
Set f = Nothing
Set objfile = Nothing
作者: hwtan 时间: 2006-10-26 02:14
| Quote: | |
|
非常感谢啊，不过我试了下，弹出“下标越界”的对话框，运行终止。
作者: hwtan 时间: 2006-10-26 05:18
| Quote: | |
|
非常谢谢！！！！
作者: 无奈何 时间: 2006-10-26 06:39
我一直喜欢向别人推荐 SED ，如果愿意尝试的话可以试一下。
sed "s/abdcd/\n/g" a.txt
sed 下载：http://www.student.northpark.edu/pemente/sed/gsed407x.zip
[ Last edited by 无奈何 on 2006-10-26 at 02:46 PM ]
作者: vkill 时间: 2006-10-26 07:38
sed 确实很好~
作者: lxmxn 时间: 2006-10-26 10:47
恩，版主推荐的这个小工具比较好用，可以轻松解决用批处理比较难解决的字符处理问题。
另外，sed的帮助命令太少，版主可不可以把sed命令的使用技巧和其它的用法介绍介绍啊？
作者: 3742668 时间: 2006-10-26 10:57
| Quote: | |
|
开头有没有 On Error Resume Next 这句?
12F的,新同志可以犯老问题,不过老同志就不要犯了,老贴,还得搜老贴.
作者: hwtan 时间: 2006-10-27 20:34
| Quote: | |
|
开头就是有那句啊，后来我干脆把
“If Err.Number <> 0 Then WScript.Echo Err.Description :WScript.Quit”省略掉了。
版主能否帮忙解决下“下标越界”这问题呢？
作者: wudixin96 时间: 2007-4-6 22:08
高啊。要仔细琢磨琢磨才行。
作者: shanhuhai 时间: 2010-12-31 18:23
留名