vb查找文件:VB中如何实现文本查找功能
来源:百度文库 编辑:神马文学网 时间:2024/05/24 00:31:08
疯狂代码 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/
---- 目前流行的软件一般在"编辑"菜单中都有"查找","查找"下一个功能,这个功能看起来复杂
,实际上实现起来是很简单的,下面介绍实现方法.
---- 实现查找功能的关键在于使用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如何使用?