中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-09-25 06:26

共 47,813 主题排行 / 349,918 发帖 / 今日 1 篇 / 48,274 会员排行

DOS批处理 & 脚本技术（批处理室） » vbs 如何将 "[]" 及 "[]"内的字符置空?

可打印版本　934 / 2

第1楼　huzixuan	发表于 2007-05-05 10:25
高级用户　发帖 219　积分 537　来自芜湖
vbs 如何将 "[]" 及 "[]"内的字符置空? 12 1 2 应该得到 12 1 2 请大家帮帮看,有什么好算法?想了半天头都大了但写错了 set ws = createobject("wscript.shell") set fso = createobject("scripting.filesystemobject") set file = fso.opentextfile("test.txt",1) str = file.readall '读文本 num = len(str) '文本字符数 for i = 1 to num str1 = instr(str,"") '返回 "]" 出现的位置 str2 = str2-str1+1 num1 = str2 - str1 +2 delstr=mid(str,str1,str2) '提取 "" 字符串 flag = string(num1,"") '将这个字符串替换成指定长度的 "" 号。 next str = replace(str,"","") '然后替换掉 msgbox str 谢 slore 兄 [ Last edited by huzixuan on 2007-5-5 at 10:56 AM* ]

第2楼　slore	发表于 2007-05-05 10:54
铂金会员　发帖 2,478　积分 5,212
'Dim ws Dim fso, file, Str, num, i 'Set ws = CreateObject("wscript.shell") Set fso = CreateObject("scripting.filesystemobject") Set file = fso.OpenTextFile("test.txt", 1) Str = file.ReadAll '读文本 num = Len(Str) '文本字符数 For i = 1 To num Do X = Mid(Str, i, 1) If X = "" Then i = InStr(i, Str, "]") + 1: X = Mid(Str, i, 1) Loop Until X <> "" OutStr = OutStr & X Next MsgBox OutStr Set file = Nothing Set fso = Nothing

第3楼　huzixuan	发表于 2007-05-05 10:56
高级用户　发帖 219　积分 537　来自芜湖
测试去啦.呵呵!!

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