split函数

Database

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

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

Split函数语法有如下几部分

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

Apple

设置值：

compare参数的设置值如下

常数	值	描述
vbUseCompareOption	–1	用Option Compare语句中的设置值执行比较。
vbBinaryCompare	0	执行二进制比较。
vbTextCompare	1	执行文字比较。
vbDatabaseCompare	2	仅用于Microsoft Access。基于您的数据库的信息执行比较。

示例

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函数的语法以及设置值，具体怎么使用还需要你自己的深入学习有关知识。