示例:
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 执行文本比较 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|