架空管道支架图片:vb查找文件:VB中如何实现文本查找功能
来源:百度文库 编辑:偶看新闻 时间:2024/10/05 14:30:19
vb查找文件:VB中如何实现文本查找功能
疯狂代码 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/
疯狂代码 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中实现TextBox文本文字滚动
通过哪些语句可以用VB与ACCESS数据库连接起来,实现查找,删除,添加功能?
EXCEL表格中如何实现批量查找功能?
vb查找并打开文件的问题
VB程序中根据日期怎么样查找
VB中数据查找的问题
VB考试查找
VB的查找问题
vb字符串查找问题
VB中实现随机文本并储存
如何在网页上实现查找功能
在vb.net编的记事本中怎样加入显示时间,查找月历的功能
在VB中如何实现打印的功能
在vb中,如何实现帮助文件的书签功能
vb中查找html文件的</table>标记,我很着急,谢谢啦
VB中如何实现多线程
怎样在VB 中实现打印功能
vb中什么功能vba不能实现
vb中怎样实现图像拷贝功能?
在VB中如何实现传文件给别人?