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

来源：百度文库 编辑：神马文学网 时间：2024/04/29 09:07:03
疯狂代码 http://www.CrazyCoder.cn/ :http:/www.CrazyCoder.cn/VisualBasic/Article14811.html
---- 目前流行的软件一般在"编辑"菜单中都有"查找","查找"下一个功能,这个功能看起来复杂
,实际上实现起来是很简单的,下面介绍实现方法.
---- 实现查找功能的关键在于使用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. 2008-9-25 1:30:37
疯狂代码 http://www.CrazyCoder.cn/
vb查找文件:VB中如何实现文本查找功能 VB中实现“所见即所得”功能 VB中如何改变文件关联！ VB.NET Timer实现功能细讲 VB.NET访问INI文件代码实现 如何管理电脑文件--快速查找，备份 在VB应用程序中使用INI文件 如何实现VB.NET文字宽度计算 如何使用VB.NET操作dbf文件 需查找、阅读文件 VB处理文本中空格行等问题 如何读取收藏夹文件的URL（眩晕中..） VB / API - CSDN社区 commun... VB实现自动填表 VB实现关机1 用DLL实现把数据库的记录导出到EXCEL中(VB) - 应用程序 - VB教程 VB.NET中获取指定文件夹中的文件及路径 VB.NET 用递归法查找文件 文件内容查找 find+grep 在VB＋Access系统中实现多项条件查询 在VB中把EXCEL文件导入MSFLEXGRID 之二 如何实现VB与EXCEL的无缝连接 VB中listview控件 VB实现自动填表15616 vb-powerwrap如何使用？