VBA 字符串-相关函数（1-5）

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(1, Var, "s")) 
   MsgBox ("Line 2 : " & InStr(7, Var, "s")) 
   MsgBox ("Line 3 : " & InStr(1, Var, "f", 1)) 
   MsgBox ("Line 4 : " & InStr(1, Var, "t", 0)) 
   MsgBox ("Line 5 : " & InStr(1, Var, "i")) 
   MsgBox ("Line 6 : " & InStr(7, Var, "i")) 
   MsgBox ("Line 7 : " & InStr(Var, "VB")) 
End Sub

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

Line 1 : 6
Line 2 : 0
Line 3 : 8
Line 4 : 9
Line 5 : 2
Line 6 : 16
Line 7 : 11

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",10))
   msgbox("Line 2 : " & InStrRev(var,"s",7))
   msgbox("Line 3 : " & InStrRev(var,"f",-1,1))
   msgbox("Line 4 : " & InStrRev(var,"t",5))
   msgbox("Line 5 : " & InStrRev(var,"i",7))
   msgbox("Line 6 : " & InStrRev(var,"i",7))
   msgbox("Line 7 : " & InStrRev(var,"VB",1))
End Sub

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

Line 1 : 6
Line 2 : 6
Line 3 : 8
Line 4 : 0
Line 5 : 2
Line 6 : 2
Line 7 : 0

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 1 : microsoft vbscript
Line 2 : ms vbscript
Line 3 : 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 1 : MICROSOFT VBSCRIPT
Line 2 : MS VBSCRIPT
Line 3 : 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,2))

   var = "MS VBSCRIPT"
   msgbox("Line 2 : " & Left(var,5))

   var = "microsoft"
   msgbox("Line 3 : " & Left(var,9))
End Sub

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

Line 1 : Mi
Line 2 : MS VB
Line 3 : microsoft