三九宝宝网宝宝百科宝宝知识

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

11月23日 编辑 39baobao.com

[Excle如何查找重复值]2选中指定区域后,在开始菜单中,找到条件格式。3点击条件格式,选择 突出显示单元格规则---》重复值,点击确认。4在弹出的提示框中点击确认,或者也可以选择设置为其他颜色。5这...+阅读

目前流行的软件一般在“编辑”菜单中都有“查找”、“查找”下一个功能,这个功能看起来复杂,实际上实现起来是很简单的,下面介绍实现方法。

实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置,这个函数需要的的参数是起始位置、主体字符串、要查找的字符串。考试.大提示“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。举例说明如下:

---- 界面安排:放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,mand

1、mand2,其标题分别为“查找”、“查找下一个”。

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

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 mand1_Click()

'从第一个字符处开始查找

FindText 1

End Sub

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

Private Sub mand2_Click()

'从当前位置继续查找

FindText TargetPosition 1

End Sub

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

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

以下为关联文档:

作为语文文本的儿童文学如何解读作为一个语文老师,首先要有一个明确的意识,你解读的是一篇文学作品,而并非一份社会档案或世情报告。不将一篇文学作品当文学作品来解读,这在中国的语文课堂上,已成司空见惯的常...

文本之爱,析文章结构——评《只拣儿童多处行》一课太仓市港城小学 顾君津 听了孙琦老师执教的《只拣儿童多处行》一课,让我感觉耳目一新,受益匪浅。这篇文章是冰心写的一篇散文,课文以欢快的笔调描写了生机勃勃的 赶春 的儿童和...

有效运用美术教材文本图例的实践一、活用教材文本与图例,美术教材上的文本与图例是编者经过一定的实践与验证,重组与构建在一起的。教师在运用时,可以根据自己对教材的理解与把握,进行适度的筛选与修改。有些文...

课内仿写针对性强,有效提高对文本主题和主线的理解我在优化设计语文作业方面,我进行了很多次开放性、拓展性作业设计和实践。在这些作业中有仿写类作业、读后感、拓展类作业。从学生的反馈来看,既有失败的教训,又有成功的体验。...

立足文本、问题驱动、多元解读——读《文本解读与语文江苏省车辐中等专业学校 梁全德,《文本解读与语文教学新论》是一部由赖瑞云先生主编的一部详细介绍 文本解读 的理论与实践,同时又明确提出 写作和口语交际乃文本解读的两翼...

解读文本,是课堂教学的第一步——《在牛肚子里旅行》解读文本是语文教师的基本功,是教师对教材的理解和认知,是教师对文本教学价值的挖掘和选择,因此文本的解读,决定了教师如何搭建起教材与学生之间的桥梁,决定了教师如何利用好这一...

读孙绍振先生《如是解读文本曹慧,扬州王清老师的名师工作室团队,送课到我们省培班已经来了两次了。他山之石,可以攻玉,王老师对文本的解读能力及理论的研究水平都达到了相当高的境界。他推荐了孙绍振教授的...

文本对话感受文体言语魅力《公仪休拒收礼物》苏教版小学语文四年级下册第三单元的一篇课文。这篇课文是个独幕剧,讲的是两千多年前鲁国的宰相公仪休拒收某大夫让管家送来的鲤鱼的故事。课文以公仪休拒...

读《从实践到文本》有感高尔基说过: 书籍是人类进步的阶梯 ,我一直非常认同这个观点,当闲暇时拿起《从实践到文本》这本书,并细细阅读后,我更加坚定了这个想法,我觉得书籍还是知识的摇篮,读书是一种享受,是...

推荐阅读
图文推荐