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