[求助]批处理能实现替换回车换行符吗？

netwinxp

把下面的红字存为delcrlf.vbs
on error resume next
if Wscript.Arguments.count<>2 then
wscript.echo "参数有误 用:cscript delcrlf.vbs 源文件 目标文件"
wscript.quit
end if
Set fso=CreateObject("Scripting.FileSystemObject")
Set file1=fso.openTextFile(Wscript.Arguments(0))
str=file1.readall
str1=vbCrLf&"*"
str2=vbTab&vbTab&vbTab&"*"
str=replace(str,str1,str2) 把回车替换
wscript.echo str
Set file1=fso.CreateTextFile(Wscript.Arguments(1), True)
file1.Write(str)

在本地执行cscript delcrlf.vbs 源文本文件 目标文本文件。
不敢保证后面的整齐，如果替换成三个TAB键好像可以。
回车换行是vbCrLF，TAB好像是vbTab——不太记得了。不行就换成
str1=Chr(13)&Chr(10)&"*"
str2=Chr(9)&Chr(9)&"*"
你自己调试一下。:)

[ 本帖最后由 netwinxp 于 2007-7-22 02:10 PM 编辑 ]

netwinxp

Administrator                        *Administrators
Guest                        *Guests
SUPPORT_388945a0                        *HelpServicesGroup
wuyou                        *Users

下面是批处理(连以前的)代码:
for /f "tokens=2" %%i in ('findstr /i "user group" 1.txt') do echo %%i>>3.txt
cscript delcrlf.vbs 3.txt 2.txt

[ 本帖最后由 netwinxp 于 2007-7-21 06:49 AM 编辑 ]

netwinxp

把回车替换这部分去掉......:L

[ 本帖最后由 netwinxp 于 2007-7-21 06:15 PM 编辑 ]

netwinxp

还是楼上的好用，对得很齐:victory:

mackyliu

还是namejm老师强

netwinxp

分单双行处理，确实好方法，学习ing