Question

VB6.0编程题目 文本查找/替换

运行时。用户在TEXT2中输入查找内容，在TEXT3中输入替换成的内容，单击“替换”按钮对TEXT1中与查找内容比配的文字进行替换操作。提示：1.程序首先在文本框中的第一个字符逐个开始取长度与要查找的字符串长度相等的子字符串，判断是否与要查找的字符串相匹配，如果找到则将开始位置赋值给TEXT1.SelStart，所选取的字符个数Text1.SelLength=Len(Text2)。2.替换文本框中所选中内容操作语句为Text1.selText=Text2.Text。 问题补充：需要完整的程序。

Answer 1

Private Sub Command1_Click()
Dim i As Single
For i = 1 To Len(Text1.Text) - Len(Text2.Text) '之所以是两个的想减，因为如果大于了长度，mid会错
If Mid(Text1.Text, i, Len(Text2.Text)) = Text2.Text Then
Text1.SelStart = i - 1
Text1.SelLength = Len(Text2.Text)
Text1.SelText = Text3.Text
End If
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim i As Long
'Text2.SetFocus
For i = 1 To Len(Text2.Text)
If Mid(Text2.Text, i, Len(Text3.Text)) = Text3.Text Then
Text2.SelStart = i - 1
Text2.SelLength = Len(Text3.Text)
Text2.SelText = Text1.Text
End If
Next
End Sub