无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 9653|回复: 9
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2007-7-20 18:56:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
提示: 作者被禁止或删除 内容自动屏蔽
2#
发表于 2007-7-20 20:42:55 | 只看该作者
把下面的红字存为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 编辑 ]
回复

使用道具 举报

3#
发表于 2007-7-21 06:47:27 | 只看该作者

有两个用户名太长了,对不齐@_@,下面是运行结果

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 编辑 ]
回复

使用道具 举报

4#
 楼主| 发表于 2007-7-21 16:56:16 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

5#
发表于 2007-7-21 18:11:35 | 只看该作者
把回车替换这部分去掉......:L

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

delcrlf.rar

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

脚本

bbb.rar

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

批处理

回复

使用道具 举报

6#
 楼主| 发表于 2007-7-21 18:25:30 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

7#
发表于 2007-7-22 07:57:43 | 只看该作者
还是楼上的好用,对得很齐:victory:
回复

使用道具 举报

8#
发表于 2007-7-22 13:44:31 | 只看该作者
还是namejm老师强
回复

使用道具 举报

9#
发表于 2007-7-22 14:09:21 | 只看该作者
分单双行处理,确实好方法,学习ing
回复

使用道具 举报

10#
 楼主| 发表于 2007-7-25 15:46:45 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-28 16:50

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表