Question

VB中如何实现文本查找功能

Answer 1

---- 实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中最先出现的位置，这个函数需要的的参数是起始位置、主体字符串、要查找的字符串。“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。举---- 例说明如下：---- 界面安排：放置一个文本框TEXT1供用户输入文本或调入文本文件，用来做在其中查找文本的验证，放置另一个文本框TEXT2供用户输入要查找的字符串，放置两个命令按钮，Command1、Command2，其标题分别为“查找”、“查找下一个”。---- 在窗体的总体声明部分写如下代码 ：Option Explicit'定义目标位置变量Private TargetPosition As Integer'编写一个查找函数Private Sub FindText(ByVal start_at As Integer)Dim pos As IntegerDim target As String'获取用户输入的要查找的字符串target = text2.Textpos = InStr(start_at, text1.Text, target)If pos > 0 Then '找到了匹配字符串TargetPosition = postext1.SelStart = TargetPosition - 1'选中找到的字符串text1.SelLength = Len(target)text1.SetFocusElse '没有找到匹配的字符串MsgBox "没找到！