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 ]
