当前位置: 源码素材网 » VB教程 » 详情页

VB InStr函数实现文字查找功能

  •   时间:2018-11-06
  • 概述:查找字符串

查找文字,有些Vb新手觉得这个实现起来挺复杂,其实很简单的,下面介绍实现思路:其实实现字符串查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置,该函数需要的参数需要提供:字符串起始位置、字符串主体、要查找的字符串。“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。举个例子说明一下:

Vb查找程序界面部分编写思路:放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,Command1、Command2,其标题分别为“查找”、“查找下一个”。“查找”功能的代码部分:

Option Explicit
'定义目标位置变量
Private TargetPosition As Integer
'编写一个查找函数
Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer
Dim target As String
'获取用户输入的要查找的字符串
target = text2.Text
pos = InStr(start_at, text1.Text, target)
If pos > 0 Then '找到了匹配字符串
TargetPosition = pos
text1.SelStart = TargetPosition - 1
'选中找到的字符串
text1.SelLength = Len(target)
text1.SetFocus
Else '没有找到匹配的字符串
MsgBox "没找到匹配的字符串!"
text1.SetFocus
End If
End Sub

双击“查找”命令按钮后所实现的功能:

Private Sub command1_Click()
'从第一个字符开始查找
FindText 1
End Sub

双击“查找下一个”按钮所实现的功能:

Private Sub command2_Click()
'从当前位置继续查找
FindText TargetPosition + 1
End Sub

编好后编译一下运行程序,在文本框1中输入一些字符串,在文本框2中输入要查找的字符串,单击 “查找”按钮和“查找下一个”按钮测试一下吧,大致的实现思路和代码就是这样地。

    相关内容:

    相关声明:

      若“VB InStr函数实现文字查找功能”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。