Instr()函数

InStr()函数返回一个字符串第一次出现在一个字符串,从左到右搜索。返回搜索到的字符索引位置。

语法

InStr([start,]string1,string2[,compare])

参数说明

  • Start - 一个可选参数。指定搜索的起始位置。搜索从第一个位置开始,从左到右。
  • String1 - 必需的参数。要搜索的字符串。
  • String2 - 必需的参数。要在String1中搜索的字符串。
  • Compare - 一个可选参数。指定要使用的字符串比较。它可以采取以下提到的值:
    • 0 = vbBinaryCompare - 执行二进制比较(默认)
    • 1 = vbTextCompare - 执行文本比较

示例

参考以下代码 -

Private Sub Constant_demo_Click()
Dim Var As Variant
Var = "Microsoft VBScript"
MsgBox ("Line 1 : " & InStr(, Var, "s"))
MsgBox ("Line 2 : " & InStr(, Var, "s"))
MsgBox ("Line 3 : " & InStr(, Var, "f", ))
MsgBox ("Line 4 : " & InStr(, Var, "t", ))
MsgBox ("Line 5 : " & InStr(, Var, "i"))
MsgBox ("Line 6 : " & InStr(, Var, "i"))
MsgBox ("Line 7 : " & InStr(Var, "VB"))
End Sub

当你执行上面的函数时,它会产生下面的输出。

Line  :
Line :
Line :
Line :
Line :
Line :
Line :

InStrRev()函数

InStrRev()函数返回一个字符串在另一个字符串中的第一次出现。搜索从右到左。

语法

InStrRev(string1,string2[,start,[compare]])
  • String1 - 必需的参数,要搜索的字符串。
  • String2 - 必需的参数。要在String1中搜索的字符串。
  • Start - 一个可选参数。指定搜索的起始位置。从右到左的第一个位置开始搜索。
  • Compare - 一个可选参数。指定要使用的字符串比较。 它可以采取以下提到的价值。
    • 0 = vbBinaryCompare - 执行二进制比较(默认)
    • 1 = vbTextCompare - 执行文本比较

示例

添加一个按钮并放置以下函数代码。

Private Sub Constant_demo_Click()
var = "Microsoft VBScript"
msgbox("Line 1 : " & InStrRev(var,"s",))
msgbox("Line 2 : " & InStrRev(var,"s",))
msgbox("Line 3 : " & InStrRev(var,"f",-,))
msgbox("Line 4 : " & InStrRev(var,"t",))
msgbox("Line 5 : " & InStrRev(var,"i",))
msgbox("Line 6 : " & InStrRev(var,"i",))
msgbox("Line 7 : " & InStrRev(var,"VB",))
End Sub

在执行上面的脚本时,会产生以下结果。

Line  :
Line :
Line :
Line :
Line :
Line :
Line :

Lcase()函数

LCase()函数将输入的字符串转换为小写字母后返回字符串。

语法

Lcase(String)

示例

添加一个模块,并将下面函数放在代码编辑器中。如下所示 -

Private Sub Constant_demo_Click()
var = "Microsoft VBScript"
msgbox("Line 1 : " & LCase(var)) var = "MS VBSCRIPT"
msgbox("Line 2 : " & LCase(var)) var = "microsoft"
msgbox("Line 3 : " & LCase(var))
End Sub

在执行上面的脚本时,它会产生以下输出。

Line  : microsoft vbscript
Line : ms vbscript
Line : microsoft

UCase()函数

UCase函数将输入的字符串转换为大写字母后返回字符串。

语法

UCase(String)

示例

添加一个模块,并将下面的代码放在编辑器中。

Private Sub Constant_demo_Click()
var = "Microsoft VBScript"
msgbox("Line 1 : " & UCase(var)) var = "MS VBSCRIPT"
msgbox("Line 2 : " & UCase(var)) var = "microsoft"
msgbox("Line 3 : " & UCase(var))
End Sub

执行上面示例代码,得到以下结果 -

Line  : MICROSOFT VBSCRIPT
Line : MS VBSCRIPT
Line : MICROSOFT

Left()函数

Left函数从给定输入字符串的左侧返回指定数量的字符。

语法

Left(String, Length)

参数

  • String - 必需的参数。 输入从左侧返回指定数量的字符的字符串。
  • Length - 必需的参数。 一个整数,指定要返回的字符数。

示例

添加一个模块,并将下面的代码放在编辑器中。

Private Sub Constant_demo_Click()
Dim var as Variant var = "Microsoft VBScript"
msgbox("Line 1 : " & Left(var,)) var = "MS VBSCRIPT"
msgbox("Line 2 : " & Left(var,)) var = "microsoft"
msgbox("Line 3 : " & Left(var,))
End Sub

执行上面示例代码,得到以下结果 -

Line  : Mi
Line : MS VB
Line : microsoft

VBA 字符串-相关函数(1-5)的更多相关文章

  1. VBA 字符串-相关函数(6-12)

    Mid()函数 Mid()函数返回给定输入字符串中指定数量的字符. 语法 Mid(String,start[,Length]) 参数 String - 必需的参数.输入从中返回指定数量的字符的字符串. ...

  2. Perl函数:字符串相关函数

    Perl字符串相关函数 字符串的内置函数有: chomp, chop, chr, crypt, fc, hex, index, lc, lcfirst, length, oct, ord, pack, ...

  3. VBA字符串处理大全

    https://blog.csdn.net/goldengod/article/details/73558537  VBA字符串处理大全-from EH http://club.excelhome.n ...

  4. db2字符串相关函数的使用

    db2字符串相关函数的使用 from :internet    一.字符转换函数 1.ASCII() 返回字符表达式最左端字符的ASCII 码值.在ASCII()函数中,纯数字的字符串可不用‘’括起来 ...

  5. VBA字符串(十二)

    字符串是一个字符序列,可以由字母,数字,特殊字符或全部字符组成. 如果一个变量被包含在双引号""中,则被认为是一个字符串. 语法 variable_name = "thi ...

  6. 009.Python字符串相关函数

    字符串相关函数 1 capitalize 字符串首字母大写 strvar = "this is a dog" res = strvar.capitalize() print(res ...

  7. Oracle学习笔记_09_字符串相关函数

    二.参考资料 0.Oracle中的字符串类型及相关函数详解 1.ORACLE 字符串操作 2.oracle函数大全-字符串处理函数

  8. JMeter常用字符串相关函数

    JMeter的惯用函数使用-字符串相关 主要的函数如下:1.将字符串转为大写或小写: ${__lowercase(Hello,)}  ${__uppercase(Hello,)}2.生成字符串:  _ ...

  9. python3 字符串相关函数

    python版本 3.5 #Author by Liguangbo#_*_ coding:utf-8 _*_str="i like study python, welcome to my p ...

随机推荐

  1. Servlet相关的几种乱码

    1. 页面中文显示乱码 原因: response中的内容会先输入到response缓冲区,然后再输入到传给浏览器,所以要将缓冲区和浏览器的编码都设置成utf-8 1)未使用jsp,而是在servlet ...

  2. 【定制开发】经纪人报备软件 全民经纪人系统 房产中介微信小程序分享家恒房通

    信真科技2019年最先扛鼎之作 - 全民经纪人软件系统 1.含有最基础的经纪人注册.客户报备系统功能: 2.可支持定制开发,针对房企售楼部.中介门店: 3.与微信端绑定使用,方便快捷,快速分享: 4. ...

  3. LDAP -- ldap 的cn, ou, dc的含义

    1. LDAP的存储规则 区分名(DN,Distinguished Name) 和自然界中的树不同,文件系统/LDAP/电话号码簿目录的每一片枝叶都至少有一个独一无二的属性,这一属性可以帮助我们来区别 ...

  4. 什么是CN2线路

      CN2全称为中国电信下一代承载网,英文Chinatelecom Next Carrier Network,缩写为CNCN,进一步缩写为CN2. CN2线路的优势在哪里 CN2作为“精品网络项目”被 ...

  5. 一篇文章学会shell脚本

    一.Shell传递参数 #!/bin/bash # 假设在脚本运行时写了三个参数 ..,,则 "(传递了三个参数). echo "-- \$* 演示 --" for i ...

  6. ios开发和安卓app开发有哪些区别

    ios平台和Android平台开发APP应用程序主要区别:一.编码语言Android平台开发中是使用Java,ios平台则是使用的Objective-C和Swift.需要注意的是,如果你是要用ios进 ...

  7. Python中request的post请求报requests.exceptions.SSLError:

    今天发送一个post请求,提示错误 requests.exceptions.SSLError: HTTPSConnectionPool(host='user.zaful.com', port=443) ...

  8. [LeetCode] 251. Flatten 2D Vector 压平二维向量

    Implement an iterator to flatten a 2d vector. For example,Given 2d vector = [ [1,2], [3], [4,5,6] ] ...

  9. [LeetCode] 773. Sliding Puzzle 滑动拼图

    On a 2x3 board, there are 5 tiles represented by the integers 1 through 5, and an empty square repre ...

  10. 使用二进制的方式部署 K8S-1.16 高可用集群

    一.项目介绍 项目致力于让有意向使用原生kubernetes集群的企业或个人,可以方便的.系统的使用二进制的方式手工搭建kubernetes高可用集群.并且让相关的人员可以更好的理解kubernete ...