联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
Originally posted by NaturalJ0 at 2006-10-25 11:43 PM:
如果果真如你所说，只有“一个”这样的文件的话，建议你用 WORD 的替换功能。
Originally posted by 9527 at 2006-10-26 12:21 AM:
没有具体的文件和格式是不好判断特殊性的，不好解答........
@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
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
Originally posted by 3742668 at 2006-10-26 01:18 AM:
用bat涉及到特殊字符,相对来说容错以及效率都不是很好,此类问题建议用vbs来解决:
On Error Resume Next
strFileName = WScript.Arguments(0)
strReplace = ...
Originally posted by 3742668 at 2006-10-26 01:18 AM:
用bat涉及到特殊字符,相对来说容错以及效率都不是很好,此类问题建议用vbs来解决:
On Error Resume Next
strFileName = WScript.Arguments(0)
strReplace = ...
Originally posted by hwtan at 2006-10-26 02:14:
非常感谢啊，不过我试了下，弹出“下标越界”的对话框，运行终止。
Originally posted by 3742668 at 2006-10-26 10:57 AM:
开头有没有 On Error Resume Next 这句?
12F的,新同志可以犯老问题,不过老同志就不要犯了,老贴,还得搜老贴.
