当前位置:主页   - 电脑 - 程序设计 - VB
VB中如何实现文本查找功能
来源:网络转载   作者:未知   更新时间:2009-01-01
收藏此页】    【字号    】    【打印】    【关闭
----目前流行的软件一般在“编辑”菜单中都有“查找”、“查找”下一个功能,这个功能看起来复杂,实际上实现起来是很简单的,下面介绍实现方法。
----实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置,这个函数需要的的参数是起始位置、主体字符串、要查找的字符串。“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。举

----例说明如下:

----界面安排:放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,Command1、Command2,其标题分别为“查找”、“查找下一个”。

----在窗体的总体声明部分写如下代码:

OptionExplicit
'定义目标位置变量
PrivateTargetPositionAsInteger
'编写一个查找函数
PrivateSubFindText(ByValstart_atAsInteger)
DimposAsInteger
DimtargetAsString
'获取用户输入的要查找的字符串
target=text2.Text
pos=InStr(start_at,text1.Text,target)
Ifpos>0Then'找到了匹配字符串
TargetPosition=pos
text1.SelStart=TargetPosition-1
'选中找到的字符串
text1.SelLength=Len(target)
text1.SetFocus
Else'没有找到匹配的字符串

MsgBox"没找到!"
text1.SetFocus
EndIf
EndSub

双击“查找”命令按钮:
PrivateSubcommand1_Click()
'从第一个字符处开始查找
FindText1
EndSub

双击“查找下一个”按钮:

PrivateSubcommand2_Click()
'从当前位置继续查找
FindTextTargetPosition 1
EndSub

----运行程序,在文本框1中输入一些字符串,在文本框2中输入要查找的字符串,单击“查找”按钮和“查找下一个”按钮进行验证。

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


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明