vb 字符串与关键字文本替换

Question

只要字符串包含关键字就替换

如，有一个txt文本，里面有许多关键字，每行一个，格式如
苹果
西瓜
香蕉
.......
text1.text 输入字符串“苹果苹果的香蕉是很好西瓜西瓜西瓜啊啊”
在text2.text显示 存在存在的存在是很好存在存在存在啊啊
写出实现该功能的代码，谢谢

Answer 1

把关键字按换行符分割成一个数组，再循环替换。

dim kk as string,s as string,i as long
kk=split(txt.text,vbcrlf) '分割关键字
s=text1.text

for i=0 to ubound(kk) '循环替换每一个关键字
s=replace(s,kk(i),"换成什么内容在这里写")
next i
text2.text=s '显示出来

Answer 2

text2.text=replace(text1.text,"苹果","存在") 就一个函数

追问

不是啊，关键字文本有几万个的，你那个只能替换苹果这个关键字。

追答

Private Sub Form_Load()
Dim a(1 To 2) As String, b(1 To 2) As String
Dim StrT As String
a(1) = "苹果": a(2) = "香蕉"
b(1) = "存在": b(2) = "哈哈"
StrT = "苹果苹果的香蕉是很好西瓜西瓜西瓜啊啊"
For i = 1 To 2
StrT = Replace(StrT, a(i), b(i))
Next
MsgBox StrT
End Sub

Answer 3

留个QQ我传你做好的代码