vba 字符串 split
VBA（Visual Basic for Applications）是微软开发的一种编程语言，常用于Excel、Access等办公软件中的自动化编程。在VBA中，字符串是一种常用的数据类型，常常需要进行分割操作。本文将从多个角度分析VBA字符串split，包括功能特点、使用方法、应用场景等方面。
一、功能特点
VBA字符串split是一种将字符串分割成一个字符串数组的函数。其基本语法如下：
```
Split(expression, [delimiter], [limit], [compare])
```
其中，expression为需要进行分割的字符串，delimiter为分隔符，默认为空格符，limit为返回的数组最大值，compare为比较模式。该函数的返回值为一个字符串数组。
二、使用方法
1.使用默认分隔符
若不指定分隔符，则默认分隔符为空格符。例如：
```
Dim str As String
str = "I love programming"
arr = Split(str)
```
则arr将为由"I","love","programming"三个字符串组成的数组。
2.使用自定义分隔符
若需要使用自定义的分隔符，则将需要分割的字符串作为expression，将自定义分隔符作为delimiter。例如：
```
Dim str As String
str = "apple,banana,orange"
arr = Split(str, ",")
```
则arr将为由"apple","banana","orange"三个字符串组成的数组。
3.指定返回的数组最大值
若需要限制返回的数组最大值，可以将需要分割的字符串作为expression，将自定义分隔符作为delimiter，将最大值作为limit。例如：
```
Dim str As String
str = "apple,banana,orange"
arr = Split(str, ",", 2)
```
此时，arr将为由"apple","banana"两个字符串组成的数组。
4.指定比较模式
若需要指定比较模式，则需要将统一值模式的数字值:vbBinaryCompare或文本值:vbTextCompare作为compare的参数。例如：
```
Dim str As String
str = "Apple,banana,orange"
arr = Split(str, ",", , vbBinaryCompare)
```
则由于指定了vbBinaryCompare，因此arr将为由"Apple","banana","orange"三个字符串组成的数组。
三、应用场景
VBA字符串split的应用场景十分广泛。以下是几个具体的应用实例：
1.将URL分割成协议、主机地址、文件路径等部分。例如：
```
Dim url As String
url = "https://www.google.com/search?q=vba+split&oq=vba+split"
arr = Split(url, "://")
```
此时，arr将为由"https"和"www.google.com/search?q=vba+split&oq=vba+split"两个字符串组成的数组。接着，可以再用Split函数对第二个字符串进行处理，将其分割成主机地址和文件路径。
2.将CSV文件读取成数组。例如：
```
Dim csv As String
csv = "apple,20,1.23" & vbCrLf & "banana,15,2.01" & vbCrLf & "orange,30,3.52"
arr = Split(csv, vbCrLf)
For i = 0 To UBound(arr)
row = Split(arr(i), ",")
For j = 0 To UBound(row)
data(i, j) = row(j)
Next
Next
```
此时，arr将为由"apple,20,1.23"、"banana,15,2.01"和"orange,30,3.52"三个字符串组成的数组。接着，将每个字符串再用Split函数分割成三个数据，并存入二维数组中。
3.将一串长字符串按一定长度分割成多个子字符串。例如：
```
Dim longstr As String
longstr = "1234567890abcdefghijklmnopqrstuvwxyz"
arr = Split(Application.WorksheetFunction.Trim(Application.WorksheetFunction.Substitute(longstr, " ", "")), "")
For i = 0 To Application.WorksheetFunction.Ceiling(Len(longstr) / 5) - 1
subarr = Split(Application.WorksheetFunction.Trim(Application.WorksheetFunction.Substitute(Mid(longstr, i * 5 + 1, 5), " ", "")), "")
subtext = Join(subarr, "-")
Debug.Print subtext
Next
```
此时，将longstr分割成长度为5的子字符串，并用"-"连接起来。
