我想问下怎么个去掉回车,就是说有个文件txt内容为
aaa
111
bbb
222
去掉回车变为aaa111bbb222
aaa
111
bbb
222
去掉回车变为aaa111bbb222
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS疑难解答 & 问题讨论 （解答室） » 回车的问题
查看 757 回复 4
楼 主
回车的问题
发表于 2008-03-27 20:21 · 中国 上海 奉贤区 电信
第 2 楼
发表于 2008-03-27 22:57 · 中国 江苏 苏州 电信
@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (1.txt) do set var=!var!%%i
echo %var%>2.txt
for /f "tokens=*" %%i in (1.txt) do set var=!var!%%i
echo %var%>2.txt
第 3 楼
发表于 2008-03-28 00:36 · 中国 湖北 武汉 电信
(for /f "delims=" %a in (a.txt) do @set/p=%a<nul)>b.txt
第 4 楼
发表于 2008-03-28 00:36 · 中国 湖北 武汉 电信
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 楼
发表于 2008-03-28 00:53 · 中国 香港 腾讯云
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 ]
论坛跳转: