Access爱好者--
所属分类: 字符处理 作者: esmile 更新日期:2003-11-18 9:28:25 阅读次数:439

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


实现查找功能的关键在于使用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中输入要查找的字符串,单击 “查找”按钮和“查找下一个”按钮进行验证。



--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链