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

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。



预测:云计算领域的5大变革 CTO俱乐部:移动信息化的创新实践及互联网创业 核心组图曝光:BlackBerry 10明年1月30日发布 “蛐蛐儿”创始人朱连兴:音频二维码的技术实现和应用场景 信恩科技创始人林兴陆:QR Code二维码的前世今生 2012移动开发工具盘点:傻瓜式游戏工具引擎 《福布斯》发布年度“未来之星” 扎克伯格上榜 Cloudera透露Impala发行版新功能及开源计划 Nokia落寞身影下 三星成为全球最大手机厂商 乐视网CTO:智能电视,一个诱人的议题 SeatGeek:Web设计师如何转型iOS开发? IE10支持HTML5标准拖放 IBM IT实践达人赛24强出炉 决赛圈比拼创新实践力 [简讯] Perl迎来25岁生日 软件开发者最重要的四大技能 为什么说惠普、戴尔和IBM在互联网发展中站错队 升级iOS 6还得看Google Maps 2012移动开发工具盘点:16大跨平台游戏引擎 GitHub Web游戏开发竞赛 获奖榜单出炉 Dart里程碑2发布 大幅提升dart2js性能 To Facebook:HTML5不好用?是你不会用! AWS推快照备份服务抵御宕机风险 靠谱吗? 微软品鉴会秀Windows 8电脑 上百款新设备年末上市 甩开外包,雄踞榜首:揭开“宫爆老奶奶”成功的秘密 IBM收购大数据公司StoredIQ 推动大数据传输能力 令人意外:前Windows部门总裁将去哈佛教书 舒迅:产品经理必读的九步法 独家爆料:Facebook移动客户端开发揭秘 一个独立开发者的自白:我如何在一年赚得60万美元 Dropbox收购Snapjoy 意欲打造媒体中心 2012世界“末日”:有经过正确的分析吗?! 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? WinCE.NET 系统上如何拷屏 请问如何选择录音的输入设备? 引用“&”和union有没有区别啊? 本版的“跳楼大放送,今年高程、系分模拟试题及备考指南、考前培训笔记、心得,保证通过率。 (romantic999 ) ”你们打的开吗?我打不开 哪里有 车辆管理系统 的资料 请教:(在程序中)如何判断我的系统是否安装SQL Server数据库。如果安装,如何获取SQL Server的版本信息?谢谢! 小问题 请教 将RS232输入的信息转成键盘输入??? 关于表生成文本文件遇到的事情,急 西北人在外(北京,上海,深圳,广州等)打工的兄弟们进来聊聊。 数组问题 急~!!! 如何获得多选框是否被选中 怎样将2003-3-16的字符串串换成时间值 某林场2004年种的香樟树比松树多2000棵,根据图的统计图,可知柑橘树种了 多少棵. 刷涂料用的滚筒刷子有哪几种类型? 其实在我们的生活中,有着许许多多的爱.同学之间的爱,老师之间的爱,朋友之间的爱...其中,最伟大的就是母爱了,请问母爱都体现在什么地方了?《妈妈,谢谢你》这骗作文怎么写才能得做高分(5 一棵树各年的成长情况用什么统计图是什么统计图 刷涂料用的滚筒刷子有哪几种类型? 什么事情最能体现母爱 下面是林场育苗基地树苗情况统计图.⑴柳树有2500棵,这些树苗的总数是多少棵?杨树占33% 柳树占25% 松树占15% 柏树占10% 槐树占17%⑵松树和柏树分别有多少棵?⑶杨树比槐树多百分之几? 求作文:国庆见闻,不少于500字,求大家了啊啊啊啊啊啊啊啊啊啊,我现在初一,求大家了啊啊啊啊啊啊啊啊 关于母爱的事件 求有关于《我的初一生活》的作文,最好是自己写的 初一五十词短文 谁有 急求 啊啊啊啊啊啊啊 石家庄身边的新变化作文征文要以“身边的新变化”、“身边的新现象”、“身边的文明故事”、“未来的新发展”、“自己的幸福感悟”为主题用文字描述城市的新变化和新发展,以及对幸 一个80人的旅游团去保定白洋淀游玩,请你设计一个租船方案.租船标准:8人快艇 240元4人渔船 100元30人观赏船 450元 黑金鱼开过滤泵肚子上会有气泡 金鱼是新买的 水是没困过的自来水 怎么破? 求石家庄暴雪作文有高人来写一篇石家庄暴雪作文吗? 甲乙两人同时从AB两地相向而行,在离A地300米处第一次相遇,相遇后,两人继续走,走到对方的出发点后立即返回,离B地500米处,两人再次相遇,问第三次相遇离A地多远?(上面写不下了,写在下面.) 过滤泵内置的还是外置的好?为什么? 以变化为主题初二作文 辩论赛四辩总结陈词,规划未来更重要. 一条红领巾的底长是100厘米,高是33厘米,做400条红领巾需要红布多少平方米? 向石灰水中加过量的碳酸钠溶液,反应后溶液ph是碳酸钠ph么我认为不是,毕竟里面还有NAOH,但老师是这样讲的,是老师讲错了么 沉默非金辩论赛的总结词怎么说啊?我是四辩,近期需要啊! 安全帽标R代表什么? 体育通讯稿 小学老师培养应侧重与全科化还是专业化 辩论赛 四辩小结 急求 明天就要比赛了啊T我们是正方,说的是专业化,急求高手指点一二啊.不知道该怎么写四辩的小结啊,还有,我们是正方 如果有很 求伴你成长六年级下第九课假如给我三天光明的全部答案,急!明天要交滴!速度啊大神们!求! NOIP2011普及组的题目会太难吗? 【我的初一生活】作文怎么写.买噶,我要自己写早就写完了,关键是不会写 爸爸的年龄是红红的4倍,红红比爸爸小27岁,爸爸和红红各多少岁?解方程题解方程 dot line report是什么意思 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音具有_________的功能? 让什么让什么作对偶句 例如:让理想与风筝齐飞,让希望与春天同在! finish line dot 5.1怎么样 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能_________? 如何放飞风筝 尊师爱师的故事 人民公园100人以上的团体门票是按原价的五五折优惠的.五年级160人去公园游玩,买门票一共花去528元.每张门票多少元 最能体现出母爱的一件事今天11点前要答案!不需要给我作文 尊师故事我眼豪富火堆四哦扶绥 人民公园的杜鹃花盆数是长春公园的4倍,如果从人民公园搬出188盆杜鹃花放入长春公园则人民公园的杜鹃花盆就比长春公园少25盆,两个公园原来各有杜鹃花多少盆. 位趁东风放纸鸢的上句 Our teather often asks us_(not cut)in line when we're waiting for a bus proteus 原理图绘制问什么它自己会关掉 几句话的字谜是什么 wait in line 的告示牌用英语怎么写?you should keep__________clean.紧急!wait in line意思为排好队 proteus中蓝色小三角形是什么,在哪找? noip2011普及组复赛浙江所有人的成绩 PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1 盘点2009作文(班级)编一个故事(真实) noip2011普及组复赛成绩什么时候出啊 PASCAL NOIP1997复赛普及组第二题2.将1,2,••••••,9共9个数排成下列形态的三角形.(30%) a b c d e f 强强两岁时,他父亲32岁.强强的年龄是父亲年龄的五分之三哪年去世,父亲活了多少年 盘点2009国家大事 这方面的高中作文要800字左右,围绕国家大事的 紧急!NOIP2011普及组复赛,复测如果原来错的批下来还是错的,今年是国家同批,去年和前年我参加的是省里批的,如果错的还是错了要扣10%的分数.今年扣不扣?不懂的别来说. “读者统计表”表示管理员的劳动强度,而“读书效果统计表”表示管理员的( 2009中国大事件盘点(可用于作文材料)答的好的后加分 爸爸的年龄是红红的4倍,红红比爸爸小27岁,爸爸和红红各多少岁? 跪求辩论赛 知识和经验哪个更重要? 我是4辩手 我们是反方 经验比知识重要,谢谢辩论高手了 过年想自己用滚筒把家里粉刷一下,用的油漆还是涂料,········希望可以详细一点,我一点也不懂. 有关母爱的事件 要真实的! 美国有意叫停窃听盟国元首 部门“内讧哈萨克斯坦举办首届国际美食节 各国顶乌克兰法院裁定没收季莫申科女儿名下饭秘鲁高等法院驳回藤森在家服刑申请美刊:中国房地产“泡沫总会破灭”斯里兰卡一出租司机诈骗中国游客900中国国家级人才工程“万人计划”全面实天天在校门口带孩子们过马路 郑大伯红马英九呼吁台立法机构尽快通过服贸协议中国三部门要求规范母乳代用品宣传和销三季度中经产业景气指数:工业经济温和“基础四国”杭州发声督促发达国家兑现食品安全法修订草案:网购食品出问题网宁波1至6号轨道站点全公布 看看家门有了闲林水库这只“碗” 杭州饮水防洪安徽宁国网友募捐遭民政局叫停:我们压药店奶粉自动售卖机故障 消费者抱怨无穿“新制服”配IC卡 每一杯西湖龙井上海自贸区揭牌满月巡礼 开启新一轮改美智库报告称朝鲜为发射大型导弹扩建卫杨洁篪会见伊朗伊斯兰议会议长拉里贾尼让“老字号”持续走俏(委员手记)不让流动的“炸弹”上路王毅与南非外长马沙巴内举行会谈常务会前有个“法治课堂”九成门诊服务将到乡村社区国强未必霸(热点辨析)人民日报:给亚洲繁荣带来希望谷文昌,生命有涯而精神不死(声音)看浙江检察如何规范办案全面放开个人赴台旅游乌克兰东部武装冲突造成20余人死伤《环境保护公众参与办法(试行)》公开留给心灵一点空白(悦读)葛洲坝电力加快“走出去”人民日报:习近平“八八战略”指引浙江人民日报:欧盟发起数字技术监管“保卫切断贫困的“代际传递”(建言)俄取消对伊朗防空导弹系统供货禁令广西农行助力沿边金融改革李响男子200米蛙泳夺金让文化产业驱动轮转起来(刷新见解)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘