InStr函数的使用方法
实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法:
InStr([start, ]string1, string2[, compare])
这个函数需要的的参数是起始位置、主体字符串、要查找的字符串;Compare是可选参数。指定字符串比较。此compare参数是可以省略的,也可以是 0, 1或 2。指定0(缺省)做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置,则使用下面的语句就可以实现:
pos=InStr(1,"abcdefg","cd")
则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现,而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。
下面举例说明:
放置一个文本框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中输入要查找的字符串,单击 “查找”按钮和“查找下一个”按钮进行验证。
转载于:https://www.cnblogs.com/Magicam/archive/2010/01/09/1643107.html
InStr函数的使用方法相关推荐
- java中instr函数_Oracle中instr函数使用方法
Oracle中instr函数使用方法 更新时间:2012年11月03日 00:53:51 作者: 在Oracle/PLSQL中,instr函数返回要截取的字符串在源字符串中的位置.只检索一次,就是 ...
- java中instr函数,Oracle中instr函数使用方法
INSTR (源字符串, 目标字符串, 起始位置, 匹配序号) 在Oracle/PLSQL中,instr函数返回要截取的字符串在源字符串中的位置.只检索一次,就是说从字符的开始到字符的结尾就结束. 语 ...
- instr 限制 oracle,ORACLE结合mapper.xml讨论instr函数匹配时,若参数值长度超出了instr函数长度的限制解决方法...
ORACLE结合mapper.xml讨论instr函数匹配时,若参数值长度超出了instr函数长度的限制解决方法 举例(假设wid的参数值格式是这样:{"wid":"11 ...
- MySQL instr()函数
转载自 MySQL instr()函数 MySQL INSTR函数简介 有时,您想要在字符串中查找子字符串或检查字符串中是否存在子字符串.在这种情况下,您可以使用字符串内置INSTR()函数. IN ...
- SQL中CharIndex函数、InStr 函数、PatIndex函数、Stuff函数区别与作用
在c#中可以用字符串的IndexOf方法来判断一个字符串中是否含有指定的字符.而在SQL SERVER中也就相关的函数来实现IndexOf的功能.CharIndex,InStr,PatIndex三个函 ...
- decode的mysql用法_oracle中decode函数的使用方法示例
decode的几种用法 1:使用decode判断字符串是否一样 DECODE(value,if1,then1,if2,then2,if3,then3,...,else) 含义为 IF 条件=值1 TH ...
- oracle instr函数用法和(oracle 用instr 来代替 like)
最近项目中出现oracle instr函数,于是在网上找了一下关于它的资料. Oracle中INSTR和SUBSTR的用法 Oracle中INSTR的用法: INSTR方法的格式为 INSTR(源字符 ...
- MySQL INSTR函数简介
MySQL INSTR函数简介 有时,您想要在字符串中查找子字符串或检查字符串中是否存在子字符串.在这种情况下,您可以使用字符串内置INSTR()函数. INSTR()函数返回字符串中子字符串第一次出 ...
- php sendmail方法,PHP实现在windows下配置sendmail并通过mail()函数发送邮件的方法
本文实例讲述了PHP实现在windows下配置sendmail并通过mail()函数发送邮件的方法.分享给大家供大家参考,具体如下: 1.php mail()函数在windows不能用,需要安装sen ...
最新文章
- 苹果新算法已混进 iOS 14.3!CSAM 检测技术再遭网友争议
- (DOM艺术) 实用的动画
- Thrift架构~thrift中间语言的认识(只有它什么都不是,它才有可能什么都是)
- 004_Spring Data JPA根据实例查询数据
- jQuery系列(十四):jQuery中的ajax
- enumset_枚举集合的EnumSet
- Windows 2008 R2 导出Excel时提示:未在本地计算机上注册“Microsoft.Jet.OLEDB.4.0”提供程序。
- Javascript浏览器事件(上)
- App_Offline.htm 功能,app_offline.htm 是怎样产生的?
- Linux开源字体——“文泉驿正黑”的安装命令
- 关于网站mdb数据库管理员MD5密码解密
- 组态王串口服务器通讯不稳定,组态王通信频繁掉线
- 苹果计算机格式化磁盘,如何格式化Mac电脑硬盘_给Mac电脑格式化硬盘的方法
- cnn实现手写识别字体代码详解
- 产品的设计与分析---用户体验五要素
- nuScenes 数据集(CVPR 2020)
- 宇视科技C-C++软件开发岗位校招面试过程
- Matlab小课堂1
- Z-Stack 的应用层参数修改
- 2020年数二真题(重点题讲解)
热门文章
- 卡巴斯基2019年Q1垃圾邮件与钓鱼攻击统计分析
- 什么软件可以测试QQ特别关心,手机qq怎么看特别关心我的人?学会这一招就够了...
- 装黑苹果卡在苹果图标_解决黑苹果启动logo变形过程小记。
- jQuery appendTo ( ) 方法
- mac下idea 快捷键(持续更新中)
- android 高仿UC浏览器首页上拉面板效果
- 【嵌入式】CPU性能提升:Cache机制
- 如何卸载twincat3_倍福TwinCAT(贝福Beckhoff)常见问题(FAQ)-如何让不同的PLC程序分线程运行 TC3...
- 蓝桥模拟赛 元音单词的验证 JAVA
- 设置word只读模式的三种方式,分别如何取消只读模式?