中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-04 05:41

共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » VBS 如何替换字符?

可打印版本　732 / 3

第1楼　huzixuan	发表于 2007-04-19 02:20
高级用户　发帖 219　积分 537　来自芜湖
VBS 如何替换字符? 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

第2楼　estar	发表于 2007-04-19 02:24
中级用户　发帖 103　积分 346
script56.chm 搜索 replace

第3楼　huzixuan	发表于 2007-04-19 02:29
高级用户　发帖 219　积分 537　来自芜湖
谢谢,刚接触 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

第4楼　zhoushijay	发表于 2007-04-19 03:02
高级用户　发帖 375　积分 845
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

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023