标题: vbs 如何将 "[]" 及 "[]"内的字符置空?
[打印本页]
作者: huzixuan
时间: 2007-5-5 10:25
标题: vbs 如何将 "[]" 及 "[]"内的字符置空?
应该得到
请大家帮帮看,有什么好算法?想了半天头都大了
但写错了
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
测试去啦.呵呵!!