Question

vb如何在字符串中查找某个子字符串，并将其删除

如何在字符串中查找某个子字符串，并将其删除
例如:窗体的文本框1中输入任一字符串，单击“查找子串并删除”按钮后，能够从字符串中找到所有的子字符串“abc”，并将这些子字符串删除，然后把结果输出到文本框2中。

该怎么做啊,
用Instr函数和Mid函数吗?可还不会啊

Answer 1

用split函数就搞定了,~~ o(∩_∩)o.... 给你写了个源代码:

在窗体上建立2个text 和一个command 复制下面的代码 运行.然后在text1里面随便输入一堆字符.按command就看到效果了...

Private Sub Command1_Click()
Dim s() As String, sr As String, t As String
sr = InputBox("请输入要删除的字串", "删除")
s = Split(Text1.Text, sr)
For i = 0 To UBound(s)
t = t & s(i)
Next i
Text2.Text = t
MsgBox "共删除了" & UBound(s) + 1 & "个符合的内容"
End Sub

Answer 2

给你举个例子吧：
dim r as string,s as string
r="abcdefg12345"
s="abc"
if instr(r,s)<>0 then'如果S在R中，则将S用""替换。
r=replace(r,s,"")
end if
如果有多处，则需要用DO循环。这样写:
dim r as string,s as string
r="abcdefg12345"
s="abc"
do while instr(r,s)<>0
r=replace(r,s,"")
loop

Answer 3

首先添加两个文本框，然后输入以下代码：

text2.text=replace(text1.text,“你要查找的字符串”,"")‘意思是把你要查找的字符串删掉

Answer 4

Private Sub Command1_Click()
text2.text=replace(text1.text,“abc”,"")
End Sub