VBA 使用分割从字符串创建数组
示例
分割功能
返回从零开始的一维数组，其中包含指定数量的子字符串。
语法
拆分（表达式[，分隔符[，限制[，比较]]] ）
| 部分 | 描述 |
|---|---|
| 表达 | 需要。包含子字符串和定界符的字符串表达式。如果expression是长度为零的字符串（“”或vbNullString），则Split返回一个空数组，其中不包含任何元素，也不包含任何数据。在这种情况下，返回的数组将具有0的LBound和-1的UBound。 |
| 定界符 | 可选的。字符串字符，用于标识子字符串限制。如果省略，则假定空格字符（“”）为定界符。如果定界符是零长度的字符串，则返回包含整个表达式字符串的单元素数组。 |
| 限制 | 可选的。要返回的子字符串数；-1表示返回所有子字符串。 |
| 比较 | 可选的。数值，指示评估子字符串时要使用的比较类型。有关值，请参见“设置”部分。 |
设定值
该比较参数可以有以下值：
| 不变 | 值 | 描述 |
|---|---|---|
| 描述 | -1 | 使用Option Compare语句的设置执行比较。 |
| vbBinaryCompare | 0 | 执行二进制比较。 |
| vbTextCompare | 1 | 执行文本比较。 |
| vbDatabaseCompare | 2 | 仅Microsoft Access。根据数据库中的信息执行比较。 |
例
在此示例中，通过显示几种样式演示了Split是如何工作的。注释将显示每个执行的拆分选项的结果集。最后，演示了如何循环返回的字符串数组。
Sub Test
Dim textArray() as String
textArray = Split("Tech on the Net")
'Result: {"Tech", "on", "the", "Net"}
textArray = Split("172.23.56.4", ".")
'Result: {"172", "23", "56", "4"}
textArray = Split("A;B;C;D", ";")
'Result: {"A", "B", "C", "D"}
textArray = Split("A;B;C;D", ";", 1)
'Result: {"A;B;C;D"}
textArray = Split("A;B;C;D", ";", 2)
'Result: {"A", "B;C;D"}
textArray = Split("A;B;C;D", ";", 3)
'Result: {"A", "B", "C;D"}
textArray = Split("A;B;C;D", ";", 4)
'Result: {"A", "B", "C", "D"}
'You can iterate over the created array
Dim counter As Long
For counter = LBound(textArray) To UBound(textArray)
Debug.PrinttextArray(counter)
Next
End Sub
以上是 VBA 使用分割从字符串创建数组 的全部内容， 来源链接： utcz.com/z/357069.html
