VBA字符串处理

Posted 2021-03-24 kmould

InStr 函数：查找字符串

 1 Sub InStr函数()
 2    Dim strTemp  As String
 3    strTemp = "=AAA=BBB=C"
 4    Debug.Print InStr(strTemp, "=")       ‘"="首次出现的位置
 5    ‘输出 1
 6    Debug.Print InStr(2, strTemp, "=")    ‘2:从第二个字符开始查找
 7    ‘输出 5
 8    strTemp = "AAABBBC"
 9    Debug.Print InStr(strTemp, "=")       ‘找不到返回0
10    ‘输出 0
11 End Sub

Replace 函数：替换字符串

1 Sub Replace函数()
2     Dim strTemp As String
3     strTemp = "AAA=BBB=C"
4     Debug.Print Replace(strTemp, "A", "a")  ‘A替换成a
5     ‘输出 aaa=BBB=C
6 End Sub

 Join 函数：连接字符串 

 1 Sub Join函数()
 2    Dim arr(1 To 3) As String
 3    arr(1) = "AAA"
 4    arr(2) = "BBB"
 5    arr(3) = "C"
 6    Debug.Print Join(arr)
 7    ‘输出 AAA BBB C
 8    Debug.Print Join(arr, "=")
 9    ‘输出 AAA=BBB=C
10    Debug.Print Join(arr, "")
11    ‘输出 AAABBBC
12 End Sub

& 符号：连接字符串

1 Sub 连接字符串()
2     Dim strTemp As String
3     strTemp = "AAA" & "BBB" & "C"   ‘万能链接符&
4     Debug.Print strTemp
5     ‘输出 AAABBBC
6 End Sub

+ 符号：连接字符串

1 Sub 连接字符串()
2     Dim strTemp As String
3     strTemp = "AAA" + "BBB" + "C"   ‘万能链接符&
4     Debug.Print strTemp
5     ‘输出 AAABBBC
6 End Sub

Split 函数：分割字符串

 1 Sub Split函数()
 2    Dim strTemp As String
 3    Dim a As Variant
 4    strTemp = "AAA=BBB=C"
 5    a = Split(strTemp, "=")   ‘分割字符串
 6     Debug.Print a(0)
 7     ‘输出 AAA
 8     Debug.Print a(1)
 9     ‘输出 BBB
10     Debug.Print a(2)
11     ‘输出 C
12 End Sub