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

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。



或免费升级:微软2013年推Windows Blue系统 取经:《捕鱼达人2》每月捞金160万美元的秘密 AWS推数据仓库服务Redshift 价格仅是Teradata IBM Oracle的十分之一 美国开展数据中心整合计划 简化政府IT运营 阿里巴巴数据交换平台——集大成于一身 [体验]Windows 8 Metro/Modern Style IE 10 Growth Hacker正席卷全球,你了解它吗? Splashtop发布Ubuntu Linux版本Streamer 性能超过VNC 10倍 Windows 8引领智能操作 人机交互进入触控时代 豌豆荚发布新版应用搜索 推出“绿色标签”机制 权威解读:苹果的未来将走向何方? Google炮轰Facebook:你们的社交已经过时了! iOS设备硬件规格完整汇总 2012 MDCC“2012移动互联网应用创新大赛与开发者面对面”专场:创所未享,携手逐梦! RIM携QNX为“2012 BlackBerry平台移动应用高校竞赛” 颁奖 BlackBerry 10 策略:用金钱吸引游戏开发者 黑莓10要来了:RIM正式开放应用提交 从RIM与微软达成exFAT授权所想到的 OpenStack中国行来到南京 中兴通讯分享电信行业应用 CSS架构目标:预测、重用、扩展、维护 黑客利用移动浏览器漏洞窃取云计算资源 地位动摇:Windows设备10月销量同比下滑21% 手机QQ浏览器4.0 Android版 极速快感 生存还是毁灭:Facebook惨败真是HTML5的错? OpenStack基金会主席:一年后成熟度超越CloudStack 在线学习新编程 技巧全攻略 “英特尔杯”HTML5程序开发邀请赛侧记 C#编译器组首席工程师Eric Lippert离职 加盟Coverity Testacular:Google开源的JavaScript测试执行过程管理工具 黑莓亚洲开发者大会报道:BB10将敲开亚洲应用市场大门 挑战Google!传Facebook与Yahoo要联手开发搜索引擎 在线等:如何防止C#应用程序第二个实例被启动? 请问谁有ActiveSkinV4.3(或者4V.2)的破解版?50分相赠~! 新手请教 用RMAN备份数据到磁带出错!!解决问题一定给分!!江湖救急啊!! 搞不明白的vc错误,气死我了,请高手指点。。。 上不了网 动态调用DLL是出现的问题,棘手中,待解决。 我要对Spreadsheet的数据进行排序,用javascript怎么写 200分求<构建Web解决方案---应用ASP.NET和ADO.NET>电子书,不是只有源码的,谢谢 用DECS连接AS/400数据库问题 GD网站大家一起随便贴 寻人启事:我有一个侄子,网名叫穿越沦陷的爱,经常跑到这个版块来玩,谁看见了他,让他来找我,急事! 请教高手!!利用二进制文件转换成文本文件进行加密,实现理论是什么? IP包过滤程序问题!!!请大虾帮忙!! sql loader里面不支持FILLER 双系统中,如何删除WIN2000?(98+2000) 实现了第一个愿望... vc和vc.net有什么区别,学了vc有必要学vc.net吗??? 急,数据库表的问题!!! 为什么在Run ActivX程序时出现问题? DLL窗体关闭问题 setfont设置Dialog字体无效,搞不明白,大侠指点 为什么我的Web应用程序项目启动不了,总是出现错误!!! 100分求教jtable问题??? 菜鸟送分问题,请哪位大侠讲讲Inte1.ResponseCode和Inte1.ResponseInfo 声音变了!怎么办啊??? 100分 请问怎么做“索引”? make求救 用ant编译pet store 时,出现问题,提示信息见内文?请帮忙。。。高分酬谢。 三个三角了 开心ing 散分 tmd,上了vsnet2003贼船了。原来vc6的都不好用了 找在linux下免费gui?? 打开窗口获取原窗口信息的问题 Cbuilder安装问题,急! HelloWorld大全[接龙] 我要写一个程序在前台不需要运行后台运行可以:就像平时邮件服务品一样在前台不需要运行,而后台是提供服务的,要怎样来实现 临时表问题 多媒体教学系统开发 jbuilder中关于类的import问题? 有关远程控制的,例如抓屏,限制功能键,限制alt+f4,等等,请去http://hedaofeng.jahee.com 如何取得IE地址栏的输入信息? 急求一段ASP与SQLserver2000处理代码! 怎么创建win32 static library并输出函数?谢谢 !!!!求排列组合的简洁算法(80分) 我要对Spreadsheet的数据进行排序,用javascript怎么写 WIN32异常求救????!!!!!! 一个有深度的问题(对信号量操作不熟者请勿进) 知道为什么会出现iocopyout_chksum吗? 谁能给我《中文ACCESS开发指导手册》?? 从网上下的读不了 请问一个小问题 关于用Preferences存取注册表的问题 谁给我推荐些比较伤感的外文歌?不一定是英语的?要比较伤感的,慢节拍的,经典电影插曲也行,只要是伤感的就行. let's go and get some f____ water there is something wrong with the l____ .i can't hear you 填空 the police are looking for the bad man in many a____ of the city.the box is too heavy .i can't m_____ it.you can go to a r_____ to have some nice food 哪个国家的英文简称是“PUR”? 仰天大笑出门去 我辈岂是蓬蒿人的意思就这一句话的意思,别的不要, quattro是什么意思 붉은 노을 books allows me to imagine you can ask me to go 是什么语法点? 希望心痛到死 用英文怎么说 小学的课文《蓝色的树叶》我要全篇课文内容 是二年及的课文 蓝色的树叶 课文 蓝色的树叶这篇课文讲了一个什么故事 菲律宾村庄选举异常血腥 已致22名候泰前总理阿披实面临谋杀指控巴西劫匪入室抢值钱漫画糖库失火“糖浆瀑布”堵门英窃听丑闻案开庭被告否认指控越南网络活跃人士因散播不利于政府消息40名非洲移民渴死沙漠日本为何明目张胆地要成为抗衡中国的舵中国敦促美国尽快终止对古巴的封锁泰国前总理阿披实被控谋杀英国报纸窃听丑闻开庭审理采购规范难落地,方有一毛钱式敛财GA6上市传祺也玩“饥饿营销”?2·14何以铭记爱“美人”自己找上门 靠赔偿金坐收万元蓬安专项大排除涉稳隐患50车连撞 男子挥衣示警多车避险宜宾早茶首次春节前上市乐山居家养老平台 每天有效电话10多19岁男孩的春节愿望:7年了,最想见切割油桶引发大火 2人严重烧伤狗头金归属确定,产权界定仍待明晰地球上最后一个异能者无限影视能力者无限恶魔系统我本飞扬乡村老师有点田都市复制专家影帝的日常变身盖亚传天域雄主都市大罗仙医渡灵师清音平湖旅游南园茶社旅游秀峰瀑布旅游白鹿洞书院旅游挂绿广场旅游湖南工业大学旅游深圳莲花山公园旅游厦门铁道文化公园旅游泰安天乐城水世界旅游竹安寨旅游九龙湖旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘