|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『楼 主』:
vbs 如何将 "[]" 及 "[]"内的字符置空?
1[a]2 [1]
[b]1 [']
2[c] 应该得到
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 =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 ]
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
 2007-5-5 10:25 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
 『第
2 楼』:
'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
|
|
|
2007-5-5 10:54 |
|
|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『第
3 楼』:
测试去啦.呵呵!!
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
|
2007-5-5 10:56 |
|
|
