无忧启动论坛

标题: [求助]批处理能实现替换回车换行符吗？ [打印本页]

作者: king8462 时间: 2007-7-20 18:56
提示: 作者被禁止或删除内容自动屏蔽

作者: netwinxp 时间: 2007-7-20 20:42
把下面的红字存为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 时间: 2007-7-21 06:47
标题: 有两个用户名太长了，对不齐@_@，下面是运行结果
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 编辑 ]

作者: king8462 时间: 2007-7-21 16:56
提示: 作者被禁止或删除内容自动屏蔽

作者: netwinxp 时间: 2007-7-21 18:11
把回车替换这部分去掉......:L

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

delcrlf.rar

368 Bytes, 下载次数: 383, 下载积分: 无忧币 -2

脚本

bbb.rar

185 Bytes, 下载次数: 504, 下载积分: 无忧币 -2

批处理

作者: king8462 时间: 2007-7-21 18:25
提示: 作者被禁止或删除内容自动屏蔽

作者: netwinxp 时间: 2007-7-22 07:57
还是楼上的好用，对得很齐:victory:

作者: mackyliu 时间: 2007-7-22 13:44
还是namejm老师强

作者: netwinxp 时间: 2007-7-22 14:09
分单双行处理，确实好方法，学习ing

作者: king8462 时间: 2007-7-25 15:46
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临无忧启动论坛 (http://wuyou.net/)