VB 技巧 - VB中如何实现文本查找功能-Instr函数使用技巧

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

  实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法:

   InStr([start, ]string1, string2[, compare])

  这个函数需要的的参数是起始位置、主体字符串、要查找的字符串;Compare是可选参数。指定字符串比较。此compare参数是可以省略的,也可以是 0, 1或 2。指定0(缺省)做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置,则使用下面的语句就可以实现:

   pos=InStr(1,"abcdefg","cd")

  则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现,而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。

  下面举例说明:

  放置一个文本框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中输入要查找的字符串,单击 “查找”按钮和“查找下一个”按钮进行验证。

 

Copyright 2000-2015 Gogusoft Software Co.,Ltd
 
 
长春市勾股软件有限责任公司
销售电话:043188833276(长春) 0755-32978958 (深圳)
电子信箱:销售sales@gogusoft.com 技术 tech@gogusoft.com 招聘 job@gogusoft.com
公司地址:长春市绿园区长白公路7777号 邮编:130012