Question

跪求答案啊。VB 文本查找/替换

跪求答案啊。VB 文本查找/替换：有text1,text2,text3 三个文本框和一个command按钮。在text1中输入一些内容，在text2中输入要查找的内容，text3中输入替换成的内容，单击“替换”按钮对text1中与查找内容匹配的文字进行替换操作。（使用selstart,seltext,sellength等）

Answer 1

Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text)
这样就可以的

Answer 2

直接replace不可以吗？ 或者下面的代码 是不用replace实现的！~
但是你说的那三个东西 根本用不上啊！~
Private Sub Command1_Click()
Dim sTemp As String
Dim i As Integer
Dim s As String
Dim sLast As String

sTemp = Text1.Text

For i = 1 To Len(Text1.Text)
s = Mid(sTemp, i, Len(Text2.Text))

If s = Text2.Text Then
s = Text3.Text
End If

sLast = sLast & s
i = i + Len(Text2.Text) - 1

Next

MsgBox sLast
End Sub

追问

能不能用 selstart,seltext,sellength还有剪贴板的。。。。。我们老师要那样的。。。

追答

selstart,seltext,sellength 全部都是选中的内容！~
难道你要做 替换在text1中选中部分？

追问

是的，就是在text1的一大段文字中找某些或者某个字去替换。。。

追答

我去 大哥 你这不浪费我时间吗 不说清楚！~

追问

好吧。。我错了。。。。

追答

Private Sub Command1_Click()
Dim sTemp As String
Dim sLast As String

sTemp = Text1.SelText

sTemp = Replace(sTemp, Text2.Text, Text3.Text)

sLast = Mid(Text1.Text, 1, Text1.SelStart) & sTemp & Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1, Len(Text1.Text))

MsgBox sLast
End Sub