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

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。



$.merge(first,second)-JQuery API $.trim(str)-JQuery API Ajax-JQuery API $.ajax(properties)-JQuery API $.ajaxSetup(settings)-JQuery API $.ajaxTimeout(time)-JQuery API $.get(url, params, callback)-JQuery API $.getIfModified(url, params, callback)-JQuery API $.getJSON(url, params, callback)-JQuery API $.getScript(url, callback)-JQuery API $.post(url, params, callback)-JQuery API ajaxComplete(callback)-JQuery API ajaxError(callback)-JQuery API ajaxSend(callback)-JQuery API ajaxStart(callback)-JQuery API ajaxStop(callback)-JQuery API ajaxSuccess(callback)-JQuery API load(url, params, callback)-JQuery API loadIfModified(url, params, callback)-JQuery API serialize()-JQuery API Accordion(settings)-JQuery API activate(index)-JQuery API button(hash)-JQuery API center()-JQuery API $.cookie(name)-JQuery API $.cookie(name, value, options)-JQuery API height()-JQuery API innerHeight()-JQuery API innerWidth()-JQuery API offset()-JQuery API outerHeight()-JQuery API 请问关于REDHAT下关于安装MYSQL 的问题 请问关于REDHAT下关于安装MYSQL 的问题 CreateFolder("name") 问题 name是变量怎么办???? 急!!! 如何做像 http://www.my0807.com/1.gif 的文字。。 请教真正的高手。 如何用TURBOC 2.0编程检测WINDOWS是否已在运行中? VS.NET能专Windows98中安装吗? 如何创建一个imagelist,用CImageList,可以记录24位色的位图 这个关于树的问题我越想越想不通,请手指点指点:) 用winsock控件设置client/server程序时,server端应怎样设置,请各位大虾帮帮小弟!!谢了! 从MIDI文件转换成简谱的问题? 请问谁有高招??????? SOS ,谁能帮帮我? 如何在一个程序中得知另一个指定的程序是否运行? 很急!!请教高手,这样的思路是否正确?(数据库方面)内有非常详细的说明,谢谢!! 我是处学者 这个关于树的问题我越想越想不通,请手指点指点:) 50小分征集C++的类和VBS的类的区别? hg0001(CoolFish) ,分已给!请发给我! 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如何使用 WRITEFILE 函数将二进制数据写入文件? 我装的是XP,JDK1.3,无法编译程序 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如下的演示光盘要实现的功能用什么软件开发比较好一个新手完成要多长时间? windows如何实现禁用状态文字? 输入不回显 你没有权限删除贴子!!!奇怪 Tc 那为用的是win XP,请进! 我输入的PYTHON怎么编译不出来? 问一个很弱的问题 为什么我的工具栏成了这个样子 哪里有讲MFC的书,Linux下GCC的书? 到底是什么问题啊?昏~~~(一定给分) 若干问题,请解惑。。。。。。 我这里的局域网是用win2000+sygate共享上网的,如何设置才能禁止局域网中其他计算机上OICQ或聊天室之类的网站? 如何遍历select下拉菜单中的内容,并显示在另一个select菜单中? 如何编写文档? 同样的程序连接SQLServer为什么比Access慢了几十倍 sybase12.5 odbc 中文问题 谢谢吃素的狼,但好象没用(FOXBASE问题) 同样的程序连接SQLServer为什么比Access慢了几十倍 htm和html 有什么不同,哪一个好一些,cfm是什么类型的文件? 请问怎么写mciSendString的play,close,open等的参数?如果是想打开wav文件的话。。。 回复数老是不对 谁能给我发一个类似windows资源管理器的例子!及拥有treeview和listview的sdi! delphi的query为什么不能查询nvarchar和ntext的sqlserver数据 win98开始菜单中的“运行”不见了,怎么找回来? 怎样使下载的文件支持中文名?为什么我的下载文件用中文就出错? 谁知道jbuilder5的jDataStore注册码? 很奇怪的问题 四年级作文桥400个字 一个长方形改变形状平行四边形,周长(),面积() ABB×C=DBBC A=3 B=() C=() D=() 在3A+B=2C+D中已知30gA和10gB恰好完全反应,生成5gD,已知C的相对分子质量为70.求A的相对分子质量不要用摩尔来解. 我需要课文《飞夺泸定桥》的课文原文,请粘贴到这里. 汉语拼音中的W应该发什么音?汉语拼音中W发音时是否该应该咬嘴唇呢?比如“为”的读音应该是wei还是vei.(V就是类似英语里V的发音方式) 已知反应3A+2B=2C+D,A、B两种物质完全反应时质量比为3:4,若生成C和D共140克,则该反应消耗B的质量为多少? 要全文!10分钟内拿来1 急求汉语拼音转罗马音!拼音:ZhuJiaYong,求罗马音. 课文飞夺泸定桥 成语语文五年级11课飞夺泸定桥中所有的成语、其意思. ABCDE乘E等于EEEEEE,那么ABCDE分别代表什么?各位我在百度上找了.所以别找了,没有! 汉语拼音"o",发"凹"的音,还是"窝"的音? 一台车床加工20个零件用一个小时 这样计算 加工8个零件要多少分钟一台车床加工20个零件用一个小时 这样计算 加工8个零件要多少分钟(用比例解) 拼音怎么读?要音调的 发不清汉语拼音L这个音怎么办我现在是13岁.我发现自己总是会把l发成re.我发现自己说l时舌头完全没有碰到上牙堂,也没有抬起来.后来我试着像其他人那样碰上牙膛,但是还是发不清.音乐课经 飞夺泸定桥 课文 描写飞夺泸定桥的作文 有什么简单有好记学拼音的方法? 一台机床4小时加工了20个机器零件.照这样计算,再加工70个零件,共用多长时间?不用方程 《飞夺泸定桥》的写作目的是什么? 甲、乙、丙三台车床加工方形和圆形的两种零件,已知甲车床每加工3个零件中有2个是圆形的;乙车床每加工4个零件中有3个是圆形的;丙车床每加工5个零件 中有4个是圆形的.这天三台车床共 飞夺泸定桥找泸定桥的简介 ABB*C=DBBC推算出数字 相同字母表示相同的数字,不同字母表示不同的数字.两位数EF等于多少?AB+CD=EE AB×CD=FFF 问:EF等于多少 汽车后的英文字母代表什么意思 如呆ABB*C+=DBBc那么A=()B=()c=()D=() abcdg乘a等于ggggg做不来 用某台机床加工一批机器零件,每小时加工的数量和所需的加工时间的关系如下表每小时加工的数量15 20 25 30 40 60加工时间80 60 48 40 30 20从表上可以看出,( ) 和 ( ) 是两种相关联的量,因为 ABB乘以C=DBBC ABCD 分别是几? 诊断淋巴瘤为什么要作免疫组化检查? 从机床每小时加工零件的个数,加工的时间和零件总数这三个量中,你能找出那几种比例关系? (10)一个四位数,给它加上小数点后比原数小2003.4 ,这个四位数是( ). 我想做个免疫组化的实验,上海这边哪里有代做免疫组化的公司啊?最好是做过的,技术过硬的. 英语以下字母所代表的含义:1.UK 2.USA 3.SARS 4.NBA 5.PLA 6.PRC 7.PC 8.HK 9.VOA 10.IOC 11.KFC 12.AIDS 13.FIFA 14.DNA 15.IQ 16.PE 17.VIP 18.DDD 19.IT 20.RMB 21.EMS 22.ID 23.CCP 24.WTO 25.MTV 26.CAAC 27.P 请依次回答,写出题号, 我汉语拼音中l的音一直发成n的音? 第三怎么读?(英文,可以发拼音.) 拼音怎么标声调?我有些忘了 拼音N和L发音不分,就是N和L能发同一种音我是湖北人.唯独N和L的读法我就是不分..就好比有的时候,我打字都能打错,另(ling)我有的时候都能拼成“ning”怎么样才能矫正啊?这个是南方人的通 十二.二十.三十英语怎么读 用拼音 拼音标声调方法 粤语拼音中是n全发l的音么 z全发j的音 j全发y的音么 2010+三位数+两位数+一位数=四位数一位数和两位数的十位一样 然后从0到8,每个都不能重复 好难啊 算了好久了 那位大哥帮帮忙啊 怎么标拼音声调? 广州数控车床加工零件时,怎样较好的控制零件的长度,直径及加工精度? 胃镜碘染色用什么碘液 拼音的声调符号是怎么标上去的? 自动车床能做到多高精度 想象作文 200字我只要200字的(多出来也得50字以下)、明白不?本人只要200字的求你们了、、真求你们了我给你们跪下了 将一个平行四边形拉成一个长方形,它的周长和面积发生了什么变化? ADCDE乘以A等于EEEEEE里面的字母分别代表什么数字 已知二次函数当X=3时,函数有最大值-1,且函数图像与Y轴交于(0,-4)求该二次函数的解析式 概括飞夺泸定桥的主要内容. 在雨中想象作文200字 已知二次函数当x=3 时,函数有最大值-1 ,且函数图象与y轴交于(0,-4),求该二次函数的关系式 要解...已知二次函数当x=3 时,函数有最大值-1 ,且函数图象与y轴交于(0,-4),求该二次函数的关系式 汉语拼音的声调怎么读与对应的怎么写 细菌真菌有什么作用,麻烦大家相信告知 瓜苗什么下词语 电子的子字汉语拼音读哪种声调 各种细菌与真菌及其作用我们老师要写的,列出书上所讲过的各种细菌与真菌和它们的作用,明天就要了, “隔了几天,竟然冒出了一截小瓜苗." 竟然为什么不能删去生命》中的
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘