Board logo

标题: vbs 如何将 "[]" 及 "[]"内的字符置空? [打印本页]

作者: huzixuan     时间: 2007-5-5 10:25    标题: vbs 如何将 "[]" 及 "[]"内的字符置空?

CODE:  [Copy to clipboard]
1[a]2 [1]
[b]1 [']
2[c]
应该得到
CODE:  [Copy to clipboard]
12
1
2
请大家帮帮看,有什么好算法?想了半天头都大了

但写错了
CODE:  [Copy to clipboard]
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 =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 ]
作者: slore     时间: 2007-5-5 10:54
'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
作者: huzixuan     时间: 2007-5-5 10:56
测试去啦.呵呵!!




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5