教程 | VBA常见的几个字符串处理函数

写在前面

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

一切皆字符。查找、比较、变形、拼接等待逻辑处理对象本质上是对字符串的处理。

如何巧妙地掌控字符串，不仅仅决定了程序的执行效率，也是编程者思维发散性与逻辑严谨性的体现，甚至反映出编程者对世界的认知……

01 

Instr()函数

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

语法：

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

参数：

• Start - 一个可选参数。指定搜索的起始位置。搜索从第一个位置开始，从左到右。

• String1 - 必需的参数。要搜索的字符串。

• String2 - 必需的参数。要在String1中搜索的字符串。

• Compare - 一个可选参数。指定要使用的字符串比较。它可以采取以下提到的值：

• 0 = vbBinaryCompare - 执行二进制比较(默认)

• 1 = vbTextCompare - 执行文本比较

示例：

Private Sub CommandButton1_Click()     Dim Var As Variant   Var = "Microsoft VBScript"      Instr1 = InStr(1, Var, "s")   Instr2 = InStr(7, Var, "s")   Instr3 = InStr(1, Var, "f", 1)   Instr4 = InStr(1, Var, "t", 0)   Instr5 = InStr(1, Var, "i")   Instr6 = InStr(7, Var, "i")   Instr7 = InStr(Var, "VB")      MsgBox ("var=" & Var & Chr(10) & _   "Line 1 : " & Instr1 & Chr(10) & _   "Line 2 : " & Instr2 & Chr(10) & _   "Line 3: " & Instr3 & Chr(10) & _   "Line 4: " & Instr4 & Chr(10) & _   "Line 5: " & Instr5 & Chr(10) & _   "Line 6: " & Instr6 & Chr(10) & _   "Line 7: " & Instr7)   end sub

执行结果：

02 

InStrRev()函数

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

语法：

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

参数：

• String1 - 必需的参数，要搜索的字符串。

• String2 - 必需的参数。要在String1中搜索的字符串。

• Start - 一个可选参数。指定搜索的起始位置。从右到左的第一个位置开始搜索。

• Compare - 一个可选参数。指定要使用的字符串比较。它可以采取以下提到的价值。

• 0 = vbBinaryCompare - 执行二进制比较(默认)

• 1 = vbTextCompare - 执行文本比较

示例：

Private Sub CommandButton1_Click()   Dim Var As Variant   Var = "Microsoft VBScript"      Instr1 = InStrRev(Var, "s", 10)   Instr2 = InStrRev(Var, "s", 7)   Instr3 = InStrRev(Var, "f", -1, 1)   Instr4 = InStrRev(Var, "t", 5)   Instr5 = InStrRev(Var, "i", 7)   Instr6 = InStrRev(Var, "VB", 1)      MsgBox ("var=" & Var & Chr(10) & _   "Line 1 : " & Instr1 & Chr(10) & _   "Line 2 : " & Instr2 & Chr(10) & _   "Line 3: " & Instr3 & Chr(10) & _   "Line 4: " & Instr4 & Chr(10) & _   "Line 5: " & Instr5 & Chr(10) & _   "Line 6 " & Instr6)End Sub

执行结果：

03 

strComp()函数

在比较两个给定字符串后，StrComp函数返回一个整数值。它可以根据要比较的输入字符串返回三个值：-1,0或1中的任何一个。

• 如果 String1 < String2, 那么 StrComp 函数返回 -1

• 如果 String1 = String2, 那么 StrComp 函数返回 0

• 如果 String1 > String2, 那么 StrComp 函数返回 1

语法：

StrComp(string1,string2[,compare])

参数：

• String1 - 必需的参数。第一个字符串表达式。

• String2 - 必需的参数。第二个字符串表达式。

• Compare - 一个可选参数。指定要使用的字符串比较。它可以采用以下值。

• 0 = vbBinaryCompare - 执行二进制比较(默认)

• 1 = vbTextCompare - 执行文本比较

示例：

Private Sub CommandButton1_Click()   Dim Var As Variant   Var = "Microsoft VBScript"      Instr1 = StrComp("Microsoft", "Microsoft")   Instr2 = StrComp("Microsoft", "MICROSOFT")   Instr3 = StrComp("Microsoft", "MiCrOsOfT")   Instr4 = StrComp("Microsoft", "MiCrOsOfT", 1)   Instr5 = StrComp("Microsoft", "MiCrOsOfT", 0)      MsgBox ("var=" & Var & Chr(10) & _   "Line 1 : " & Instr1 & Chr(10) & _   "Line 2 : " & Instr2 & Chr(10) & _   "Line 3: " & Instr3 & Chr(10) & _   "Line 4: " & Instr4 & Chr(10) & _   "Line 5 " & Instr5)End Sub

执行结果：

04 

StrReverse()函数

StrReverse函数反转指定的字符串。

语法：

StrReverse(string)

示例：

Private Sub CommandButton1_Click()
   Instr1 = StrReverse("VBSCRIPT")   Instr2 = StrReverse("My First VBScript")   Instr3 = StrReverse("123.45")      MsgBox ("Line 1 : " & Instr1 & Chr(10) & _   "Line 2 : " & Instr2 & Chr(10) & _   "Line 3 " & Instr3)End Sub

执行结果：

05 

String()函数

String函数使用指定的字符填充指定次数的字符串。

语法：

String(number,character)

参数：

• Number - 必需的参数。一个整数值，对于字符参数将重复指定的次数。

• Character - 必需的参数。字符、字符串首字母或符值（ascii），必须重复指定的次数。

示例：

Private Sub CommandButton1_Click()
   Instr1 = String(3, "$")   Instr2 = String(4, "*")   Instr3 = String(5, 100)   Instr4 = String(6, "ABCDE")
   MsgBox ("Line 1 : " & Instr1 & Chr(10) & _   "Line 2 : " & Instr2 & Chr(10) & _   "Line 3 : " & Instr3 & Chr(10) & _   "Line 4 " & Instr4)End Sub

执行结果：