说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
VB中如何实现文本查找功能
目前流行的软件一般在“编辑”菜单中都有“查找”、“查找”下一个功能,这个功能看起来复杂,实际上实现起来是很简单的,下面介绍实现方法。

  实现查找功能的关键在于使用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。



为什么开发者担心将代码公布 【投稿】移动互联网初创团队7大云计算服务实践分享 云计算发展越快,中小IDC发展机遇越好 前富士康CEO程天纵:创客与资本间并无矛盾 【开源专访】Java高效开发框架Nutz:是SSH的轮子?还是新神器? 仿Google Now和Siri?微软WP8.1将推语音助手Cortana NodeJS无所不能:细数10个令人惊讶的NodeJS开源项目 【快讯】18-19日,亚马逊AWS负责人Andy Jassy会在北京说什么,做什么? 数据库未来的5大预测 华为王丰谈华为一体机三大优势 FusionCube SQL Server针对Windows集群加速 浏览器基准测试:IE11成绩惊人 移动开发工具访谈《近匠》第02期:梆梆安全——APP安全之道 罗永浩:ROM创业,锤子科技A轮融资7000万 独立开发者的自白:Objective-C最糟糕的13件事 回顾Google这一年——Android篇 百度手机卫士正式发布 “防吸费”功能全球首创 2013年平板电脑市场竞争回顾 Apple太阳能数据中心进展顺利,但却在税负减免上备受争议 一名开发者的年度回顾 智能手表Pebble明年初推应用商店 开发者今日起可提交应用 够快科技推出企业级云存储服务“够快云库” 项目开发中,质量和速度哪个更重要? 亚马逊AWS落地中国,云计算产业圈集体发力 Node.js 2013年大事记 【开源推荐】ThinkPHP:大道至简,让Web开发更简单 IE11中的WebGL探秘:渲染速度超Chrome 数据驱动智能:百度在计算广告学领域的技术突破 UX设计师和软件开发者,谁将是2014年的老大? 爸爸去哪儿:开发知名题材手游压力山大 多平台同步 谈IE11全新功能 高通副总裁沈劲:移动是产生变革的强大原动力 请问有WINsock编程高手么,帮我看一下下面的程序 紧急招聘PB程序员(成都) 关于产品序列号的问题……想了很久了。 这里有几个问题,能者请进! 请教VC项目开发经验 如何让下载的程序变成免费的? 请问有Pdf到Text的转化的源代码么? 能否让下载的程序变成免费的? 请问怎样才能自动复制文本框中的文本到剪贴板? 是否可用简体中文的VB开发翻体中文的应用程序? 使用JavaMail转发邮件 在servlet中是不是不可以引用其它的类中的函数.(这个类不是派生于HttpServlet) 为什么买书配送的光盘文件在BCB工程中打开后不让修改(打开前已转换为存档文件了)? 请教使用OPEN CLIENT 的一个小问题 索求算法 请问能否将下载的程序变成免费的? 现在学习C#不晚吧,:P 关于VB中控制运行实例的问题 请教关于DBGRid的问题。 请问在Java下如何实现文件压缩?有没有现成的接口或者压缩算法代码?多谢 这里下载C#电子书《C#教程》(中文 希望出版社) 我如何才能删除ORACLE中建立的用户??总是提示用户不存在或SQL第归错误等等!! CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!! 如何用简体中文VB开发翻体中文软件? 高分请教!!!! 一定加分!!!1111111 在打印或打印预览前如何获取报表页数 求助.希望有人帮忙!! 我用ACTIVE REPORT出了问题....相教 请问如何获得硬盘的序列号? 请问各位,有什么好的方法来为用户分配权限,要多少分就给多少? 我有一个www.cnjava.com,有没有人愿意要这个域名? 请问Delphi中关于fropro数据库的软删除问题!急用!谢谢! 当两个表用主键关联时,删除主表的一条记录,关联表对应的记录能不能自动删除(不用代码)? 大家来谈谈各自在制作网页时的css于inc的运用吧 小弟对Java及C#的一点看法-请大家指正! 高手请进,帮我看看这是什么意思?感谢非常 基于组件的三层应用程序怎么打包?200分相赠!!! 如何执行带OUT参数的ORACLE的存储过程 有谁做过矩阵奇异值分解的程序? 讨论:爱需要表白吗? 请教各位大侠:我用TNMStrm控件发送数据时,怎样实现定时连续发送?我现在发送一次成功,紧接着第二次发送就不行了,出现蓝屏. slide中的滚动条,有NM_RELEASEDCAPTURE事件,是响应mouseup,有没有什么事件响应mousedown的? 再送50分,求大家来讨论用存储过程建datawindow时应注意的事情。 我想做一个网页,实现文本分割,发送短消息! 那为老兄知道SCO OPENSERVER下面PHP的安装方法! 在asp中可不可以不用recordset来开发? 是否有好的ASP书籍 哪里有已经破解了的BAS4.5下载? 调用::GetCurrsorPos()和窗体成员函数GetCurrsorPos()得到的位置都不对???? 急:如何用java实现报表打印,给高分 “锁住”文本文件的问题!急!急!急! 数学应用题:某一工程修一条路,第一天修了全长的二十七分之五,补充上面的:第二天修了余下的十一分之三,第三天修了第二天余下的六分之五,第四天修8千米,正好修完.求这条路的总长度 某工程队修一条路,第一天修了20%,第二天修了150米,两天一共修了全长的二分之一,这条路全长多少米? 加工一批零件,甲加工完成需要8小时,乙需要7小时 甲乙工作时间的比是( ) 甲乙工作效率之比是( )3:( )=0.25=16÷( )=( )÷16=20分之( ) 一支工程队要修一条水渠,第一天修了全长的5分之1,第二天修了全长的4分之1,第二天比第一天多修了25千米,这条水渠全长多少米?(注意单位) 工程队修一条路,3天修了全长的9分之2,多少天可以修完? 修一条公路,第一天修了全长的三分之一,第二天修了全长的二分之一,两天共修了全长的几分之几? 修一条路 第一天修了全长的2分之1 第二天修了余下的2分之1,这条路还剩几分之几没有修? 工程队修一条公路,第一天铺了全长的五分之二第二天比第一天少铺三分之一,还剩210米没铺.这条路有多长? 有一条长24千米的公路,第一天修了它的八分之一,第二天修了五分之二千米,两天共修多少千米? 一条路100米,第一天修了这条路的2分之1,第2天修的是第一天的3分之1,还剩这条路的几分之几没有修 某工程队修筑一条马路,第一天修了全长的十分之三,第二天修了全长的五分之二,还剩630米没有修,这条马路全长多少米? 修一段路,第一天修了全长的五分之二,第二天修了全长的四分之一,两天共修了260米,这段路长多少米? 一条路100米,第一天修了全长的二分之一,第二天修了全长的三分之一,还剩这条路的几分之几没修? 市工程队修一条路第一天修了全长的五分之二第二天修了全长的百分之二十五还剩154米没修这条路全长多少米 加工一批零件,王师傅加工26个,占总数的5分之1,剩下零件按7:6分给张、李两位师傅.两位师傅各加工多少(方程和假设) 一段路第一天修了二分之一,第二天修了剩下的二分之一,还剩几分之几没修? 市工程队俢一条路,第一天修了全长的五分之二,第二天修了全长的百分之二十五,还剩154m没修,这条路全长多少m 李师傅加工一批零件,已加工的与未加工的个数比是1:3,再加工400个后,已加工的占总数的2分之1.这批加工的零件有多少个? 一条路一百米,第一天修了二分之一,第二天修了余下的三分之一,还剩这条路的几分之几?只要算式! 工程队修一条路.第一天修了全长的百分之二十五,第二天与第一天所修的比是4:3,还剩500米没有修.这条路 加工一批零件,王师傅加工26个,占总数的五分之一,剩下的零件按7:6分给张,李两位师傅,两位师傅各加工多少个 一段路,第一天修了二分之一,第二天修了二分之一,还剩全长的几分之几 修路队修一条公路,第一天修了全长的四分之一还多1.2千米,第二天修了全长的五分之二少0.8千米,这时还剩6.6千米没修,这条公路全长是多少千米? 李师傅要做350个零件,前三个小时完成了总数的七分之三.照这样的速度,他完成全他完成全部零件需要多少小时? 修一条水渠,第一天修了全长的十五分之二,第二天比第一天多修了全长的20分之3,还剩几分之几没有修? 某工程队,第一天修了600米,第二天修了全长的20%,两天共修了全长的1/2.这条公路全长多少米? 李师傅4分之3小时做6个零件,照这样的速度,他工作2分之5小时,一共可以做多少个 修一条长五分之四米长的水渠,第一天修了全长的三分之一,第二天修了全长的五分之二,还剩几分之几没有修把全长看做单位一来减,还是用五分之四减 某工程队修路,第一天修了三分之一,第二天修了50米,两天共修了全长的百分之50,这条路有多长? 两位师傅共同加工一批零件,张师傅4小时加工了全部的5分之2,李师傅4小时加工了280个.这时剩下未加工一批零件个数与这批零件总数的比是1:4,这批零件共有多少个?注:算式. 修一条水渠,第一天修了全长的十五分之二,第二天修了全长的十分之一,还剩几分之几没有修? 某工程队修路,第一天修全长的百分之25,第二天修一百五十米,两天共修了全长的十分之三,这段公路长多少米求列算式详细回答,有讲解 李师傅要生产一批零件,6天生产了这批零件的十分之三,照这样的速度计算,还要多少天才能完成任务?用比例知识解体 修一条长5分之4米长的水渠,第一天修了全长的3分之1,第2天修了 全长的5分之2还剩几分之几没有修 工程队修路,第一天修了600米,第二天修了全长的20%,两天共修了全长的1/2.公路全长? 李师傅加工一批零件,如果每天做50个,要比计划晚8天完成;如果每天做60个,可早5天完成.这批零件共有多少个? 一条路100米,第一天修了这条路的12%,第二天修了余下的13%,还剩这条路的几分之几没修? 某工程队修路,第一天修了600米,第二天修了全长的20%,两天一共修了全长的二分之一.这条公路全长多少米? 李师傅计划做一批零件,如果他每小时多做10个,可提前1小时完成任务,如果他每小时多做20个,则又提前1小时完成任务,共多少 一条路长100米,第1天修了1/2,第2天修了1/3,还剩这条路的几分之几没修? 一个工程队修一条公路,第一个月修了全长的四分之一,第二个月修了全长的五分之二,第二个月比第一个月多修了12千米,这条公路全长多少千米? 李师傅加工一批零件,如果每天做50个,要比原计划晚8天完成,如果每天做60个,就可以比原计划提前5天完成.问这批零件共有多少个? 工程队修一段160米长的公路,第一天修了全长的1/5第二天修了全长的3/8,还剩全长的几分之几没有修? 一个工程队修一条公路,第一个月修了全长四分之一,第二个月修了全长的五分之二,还剩14千米这条公路全长多少千米? 加工一批零件,张师傅单独6小时完成,李师傅单独做8小时完成,李师傅的工作效率是张师傅工作效率的几分之 工程队修一条长3/4千米的道路,第一天修全长的1/4,第二天修全长的1/3,还剩全长的几分之几没有修完 1.一个工程队修一条公路,第一个月修了全长的四分之一,第二个月修了全长的五分之二,第二个月比第一个月多修十二千米.这条公路长多少千米?2.仓库里有一批货物,运出五分之三后,又运进二 李师傅的工作效率是张师傅的4分之3,加工以批零件谁用的时间短? 工程队修一条公路,第一天修了全长的3分之1,第二天修了80米,还剩86米没有修,这条公路长多少米? 某工程队三个月内修一条全长为12千米的公路,第一个月修了五又三分之一,第二个月修了剩下的五分之二,第三个月修了多少米速度速度 啊 加工同一批零件,王师傅要用10小时,李师傅要用8小时.那么李师傅的工作效率比王师傅高( ).1 20%2 25%3 120% 工程队要修一条长200米得路,修了一段后还剩63米没修.已知的米数占 条路的几分之几 修一条路,第一天修了300米,第二天修了全长的四分之一,两天共修了全长的十八分之五,这条路长多少米? 甲乙两人共同加工一批零件.如果每人按各自一定的工作效率加工,那么4小时完工,如果每人各自都比原计划每小时少做一个零件,那么五小时完工,这批零件一共有多少个? 工程队修一条路已经修了5分之4千米,剩下的是已修的8分之7,这条路长多少千米? 工程队修一条路,第一天修了全长的30%,第二天修了30米,两天共修了全长的50%,这条路全长多少米? 甲乙两人合作一批零件,20天可以完成.甲乙两人工作效率比是5:4.甲,乙每个每天各能完成这批零件的几分之几? 应用题:工程队修一条路,已修了800米,正好占全长的9分之4.这条路全长多 工程队修一条路,第一天修的比全长的1/3少100m,第二天修了300m,两天共修了全长的40%,这条路长多少米? 甲乙二人共同加工800个零件,16天完工,已知甲乙二人的工作效率比是2:3,甲乙二人各做了多少个零件?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn