中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS 如何替换字符?

作者:

标题: VBS 如何替换字符?

上一主题 | 下一主题

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『楼主』: VBS 如何替换字符? 使用 LLM 解释/回答一下

a.txt 里有 :

aaaaa
aaaaa

2行字符

用 VBS 如何将 "a" 替换成 "1"
再写进 b.txt ?

我这样写却不行,应该怎么写?



set fso=CreateObject("Scripting.FileSystemObject")

set file=fso.Opentextfile("a.txt")

set fileN=fso.Createtextfile("b.txt")

str=file.readall

a=len(str)

for i=1 to a

a=mid(str,i,1)

if a = "a" then

fileN.write "1"

fileN.close

else

fileN.write a

fileN.close

end if

next

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-4-19 02:20

查看资料发短消息网志

编辑帖子回复引用回复

estar
中级用户

积分 346
发帖 103
注册 2004-4-6
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

script56.chm 搜索 replace

此帖被 +4 点积分

点击查看详情

2007-4-19 02:24

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

谢谢,刚接触 VBS 都不知道有 replace 方法.
不过之前是搜索过的 "替换字符" ,没有搜到.呵呵!

set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.Opentextfile("a.txt")
set fileN=fso.Createtextfile("b.txt")
str=file.readall
strN=replace(str,"a","1")
fileN.write strN
fileN.close

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-4-19 02:29

查看资料发短消息网志

编辑帖子回复引用回复

zhoushijay
高级用户

Autowalk

积分 845
发帖 375
注册 2007-3-3
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

dim q,optxt,crtxt,rdtxt,a
set q=createobject("scripting.filesystemobject")
set optxt=q.opentextfile("a.txt")
set crtxt=q.createtextfile("b.txt")
rdtxt=optxt.readall
a=replace(rdtxt,"a","1")

crtxt.write a

2007-4-19 03:02

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: