当前位置: 网学 > 编程文档 > VB > 正文

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

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式


山东济宁食品进出口公司
唐成斌
---- 目前流行的软件一般在“编辑”菜单中都有“查找”、“查找”下一个功能,这个功能看起来复杂,实际上实现起来是很简单的,下面介绍实现方法。
---- 实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置,这个函数需要的的参数是起始位置、主体字符串、要查找的字符串。“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。举

---- 例说明如下:

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

---- 程序调试环境:中文VB5.0,中文WIN95。 

  • 上一篇资讯: VB读写ini文件
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号