标题: 回车的问题 [打印本页]
作者: flyingphf 时间: 2008-3-27 20:21 标题: 回车的问题
我想问下怎么个去掉回车,就是说有个文件txt内容为
aaa
111
bbb
222
去掉回车变为aaa111bbb222
作者: faultcode 时间: 2008-3-27 22:57
@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (1.txt) do set var=!var!%%i
echo %var%>2.txt
作者: ThinKing 时间: 2008-3-28 00:36
(for /f "delims=" %a in (a.txt) do @set/p=%a<nul)>b.txt
作者: ThinKing 时间: 2008-3-28 00:36
| Quote: | |
|
这个貌似不行。。。
sed -ne "H;${x;s/\n//gp}" a.txt|more>b.txt
[ Last edited by ThinKing on 2008-3-28 at 12:43 AM ]作者: abcd 时间: 2008-3-28 00:53
| Quote: | |
|
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
仅支持拖放操作，可多文件。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 ]