Originally posted by ThinKing at 2008-3-28 12:36 AM:
这个貌似不行。。。
sed -ne "H;${x;s/\n//gp}" a.txt|more>b.txt
Last edited by ThinKing on 2008-3-28 at 12:43 AM ]
o(∩_∩)o...哈哈,是不行
Dim fso, file, Re, ar, ws
Set re = New RegExp
re.Pattern = "\r\n"
re.IgnoreCase = True
re.Global = True
Set fso = CreateObject("scripting.filesystemobject")
For Each ar in Wscript.Arguments
Set file = fso.OpenTextFile(ar,1)
str = file.ReadAll
file.Close
str = re.Replace(str,"")
Set file = fso.OpenTextFile(ar,2)
file.Write str
file.Close
Next
Set ws = CreateObject("Wscript.Shell")
ws.popup "全部回车换行符已替换!",5,"提示",64
Set ws = Nothing
Set re = Nothing
Set fso = Nothing
仅支持拖放操作,可多文件。
Last edited by abcd on 2008-3-28 at 01:23 AM ]