Function testSplit()
Dim a As String
a = "1,2,3,4,dsd-ad5,6,45,656465,564,45"
Dim b() As String
b() = Split(a, ",")
Debug.Print b(4)
End Function
解释如下:
Split函数
返回一个从零开始的一维数组,其中包含指定数量的子字符串。
FunctionSplit(
ByVal Expression As String,
Optional ByVal Delimiter As String = " ",
Optional ByVal Limit As Integer = -1,
Optional ByVal Compare As CompareMethod = CompareMethod.Binary
) As String()
参数
Expression
必选项。字符串表达式,包含子字符串和分隔符。如果 Expression 是零长度的字符串 (""),Split 函数将返回长度为一的数组,其中包含一个空字符串。
Delimiter
可选项。单个字符,用于标识子字符串的界限。如果省略了 Delimiter,则假定空白字符 ("") 为分隔符。如果 Delimiter 为零长度字符串,则返回包含整个 Expression 字符串的单元素数组。
Limit
可选项。要返回的子字符串数;默认值为 -1,表示返回所有子字符串。
Compare
可选项。数值,指示计算子字符串时使用的比较模式。具体的值请参见“设置”。
设置
Compare 参数可以具有下列值:
常量 说明
Binary 执行二进制比较
Text 执行文本比较
将一个有规则的字符串按规则分解开并存在数组里
例如,将字符口按照/分开
Private Sub Form_Load()
Dim dest() As String
dest = Split("a/b/c/d", "/")
End Sub
结果:
dest(0) = "a"
dest(1) = "b"
dest(2) = "c"
dest(3) = "d"
Split()是把()里的字符变成数组
Split函数:
返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
语法:
Split(expression[, delimiter[, count[, compare]]])
Split函数语法有如下几部分:
1、expression,必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串(""),Split则返回一个空数组,即没有元素和数据的数组。
2、delimiter,可选的。用于标识子字符串边界的字符串字符。如果忽略,则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串,则返回的数组仅包含一个元素,即完整的 expression字符串。
3、count,可选的。要返回的子字符串数,–1表示返回所有的子字符串。
4、compare,可选的。数字值,表示判别子字符串时使用的比较方式。关于其值,请参阅“设置值”部分。
设置值:
compare参数的设置值如下:
vbUseCompareOption,–1,用Option Compare语句中的设置值执行比较。
vbBinaryCompare,0,执行二进制比较。
vbTextCompare,1,执行文字比较。
vbDatabaseCompare,2,仅用于Microsoft Access。基于您的数据库的信息执行比较。