Question

vb课设文本文件的查找替换的基本原理

vb课设文本文件的查找替换的基本原理

Answer 1

　1、可以使用文本框的SelLength、SelStart、SelText 属性及字符串查找函数InStr()来实现。

　　2、工具：vb6。

　　3、具体实现代码如下：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit

Private Sub Command1_Click()
Dim Search, Where ' 声明变量。
' 获取需要查找的字符串。
Search = Text1.Text
Where = InStr(Text3.Text, Search) ' 在文本中查找字符串。
If Where Then ' 如果找到，
Text3.SetFocus
Text3.SelStart = Where - 1 ' 设置选定的起始位置并
Text3.SelLength = Len(Search) ' 设置选定的长度。
Else
MsgBox "String not found." ' 给出通知。
End If

End Sub

Private Sub Command2_Click()
If Text3.SelText <> "" Then
Text3.SelText = Text2.Text
End If

End Sub