网页素材: 导航菜单选项卡滑动门焦点图图片切换下拉菜单弹出层Tabs链接提示

您的当前位置: 源码爱好者 » 网页制作教程(编程教程) » VB技术教程

VB使用InStr函数实现文本查找功能

  • 标签:查找字符串 更新时间:2014-07-23
  • 现在几乎每一款文本编辑软件,比如词本、Notpad、Editplus都有查找字符串的功能,其实这是最基本的功能,应该具备这功能。有些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中输入要查找的字符串,单击 “查找”按钮和“查找下一个”按钮测试一下吧,大致的实现思路和代码就是这样地。

  • 已读: 次 收藏本文关闭本文打印本文复制链接
处理 SSI 文件时出错