回车的问题 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

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 ]

第1楼　flyingphf	发表于 2008-03-27 20:21
中级用户　发帖 142　积分 392
回车的问题我想问下怎么个去掉回车,就是说有个文件txt内容为 aaa 111 bbb 222 去掉回车变为aaa111bbb222

第2楼　faultcode	发表于 2008-03-27 22:57
初级用户　发帖 60　积分 120
@echo off&setlocal enabledelayedexpansion for /f "tokens=*" %%i in (1.txt) do set var=!var!%%i echo %var%>2.txt

第3楼　ThinKing	发表于 2008-03-28 00:36
中级用户　发帖 207　积分 471
(for /f "delims=" %a in (a.txt) do @set/p=%a<nul)>b.txt

第4楼　ThinKing	发表于 2008-03-28 00:36
中级用户　发帖 207　积分 471
Originally posted by abcd at 2008-3-28 12:18 AM: sed "s/\n//" a.txt>b.txt 这个貌似不行。。。 sed -ne "H;${x;s/\n//gp}" a.txt\|more>b.txt [ Last edited by ThinKing on 2008-3-28 at 12:43 AM ]

第5楼　abcd	发表于 2008-03-28 00:53
银牌会员　发帖 739　积分 1,436
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 ]