如何编写VB中查找功能的代码?以及替换功能

来源：百度知道 编辑：UC知道 时间：2024/06/15 21:19:39
如果用find这个方法应该如何写?object.find(string,start,end,options)
要怎么编呢??

简单的查找，替换差不多的
Dim iFind As Integer
Dim strFind As String
Private Sub Command1_Click()
strFind = InputBox("输入查找字串", , strFind)
iFinding = InStr(iFind, Text1.Text, strFind, vbTextCompare)
If iFinding Then
Text1.SelStart = iFind - 1
Text1.SelLength = Len(strFind)
iFind = iFinding + Len(strFind)
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
iFind = 1
End Sub