本帖最后由 hwc2ycy 于 2013-9-14 22:54 编辑
7.split函数
Split(expression[, delimiter[, limit[, compare]]])
返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
语法
expression 必需的。包含子字符串和分隔符的字符串表达式 。
如果expression是一个长度为零的字符串(""),Split则返回一个空数组,即没有元素和数据的数组。
delimiter 可选的。用于标识子字符串边界的字符串字符。
如果忽略,则使用空格字符(" ")作为分隔符。
如果delimiter是一个长度为零的字符串,则返回的数组仅包含一个元素,即完整的 expression字符串。
limit 可选的。要返回的子字符串数,–1表示返回所有的子字符串。
compare 可选的。数字值,表示判别子字符串时使用的比较方式。
具体值可参见Filter的Compare参数解释
代码七- Dim arr1, arr2, arr3, arr4, arr5, arr6
- Dim str1$, str2$, str3$
- str1 = "a,Ab,abc,Abcd,abcde,Abcdef,abcdefg,Abcdefgh"
- arr1 = Split(str1)
- arr2 = Split(str1, ",")
- arr3 = Split(str1, ",", 3)
- arr4 = Split(str1, "a", , vbTextCompare)
- arr5 = Split(str1, "a", , vbBinaryCompare)
- Stop
- str2 = "a b c d"
- arr1 = Split(str2)
- arr2 = Split(str2, , 3)
- Stop
- str3 = "a#b##c###d####"
- arr1 = Split(str3, "#")
- arr2 = Split(str3, "#", 4)
- Stop
复制代码 |