split函数

　　split函数是编程语言中使用的函数，是指返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

split函数

语法：Split(expression[, delimiter[, count[, compare]]])

Split函数语法有如下几部分
部分必要性描述
expression必需的。包含子字符串和分隔符的字符串表达式。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
delimiter可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的expression字符串。
count可选的。要返回的子字符串数，–1表示返回所有的子字符串。
compare可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。

设置值：

compare参数的设置值如下
常数值描述
vbUseCompareOption–1用Option Compare语句中的设置值执行比较。
vbBinaryCompare0执行二进制比较。
vbTextCompare1执行文字比较。
vbDatabaseCompare2仅用于Microsoft Access。基于您的数据库的信息执行比较。

split函数

示例

1、下面的示例演示如何使用split函数在字符串的空格处拆分该字符串。

　　Dim TestString As String = "Look at these!"

　　' 返回的数组包含 "Look", "at", 和 "these!".

　　Dim TestArray() As String = Split(TestString)

2、下面的示例演示如何拆分一行中有多个分隔符的字符串，以及如何使用split函数筛选掉空字符串。

　　DimTestStringAsString="applepearbanana"

　　DimTestArray()AsString=Split(TestString)

　　'TestArrayholds{"apple","","","","pear","banana","",""}

　　ForiAsInteger=0ToTestArray.Length-1

　　IfTestArray(i)<>""Then

　　LastNonEmpty+=1

　　TestArray(LastNonEmpty)=TestArray(i)

　　EndIf

　　Next

　　ReDimPreserveTestArray(LastNonEmpty)

　　'TestArraynowholds{"apple","pear","banana"}

编后语：关于split函数的相关介绍就到这里了，本文只是简单的介绍了一下split函数的语法以及设置值，具体怎么使用还需要你自己的深入学习有关知识。

相关内容