p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Arial; color: #333333; -webkit-text-stroke: #333333; background-color: #ffffff}span.s1 {font-kerning: none}span.s2 {font-kerning: none; color: #136ec2; -webkit-text-stroke: 0px #136ec2}
split函数是编程语言中使用的函数，是指返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
语法：Split(expression[, delimiter[, count[, compare]]])
| 部分 | 必要性 | 描述 |
| expression | 必需的。 | 包含子字符串和分隔符的字符串表达式。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 |
| delimiter | 可选的。 | 用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的expression字符串。 |
| count | 可选的。 | 要返回的子字符串数，–1表示返回所有的子字符串。 |
| 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)
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Arial; color: #333333; -webkit-text-stroke: #333333}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Arial; color: #333333; -webkit-text-stroke: #333333; background-color: #ffffff}span.s1 {font-kerning: none; background-color: #ffffff}span.s2 {font-kerning: none}span.s3 {font-kerning: none; color: #136ec2; -webkit-text-stroke: 0px #136ec2}
2、下面的示例演示如何拆分一行中有多个分隔符的字符串，以及如何使用split函数筛选掉空字符串。
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Courier New'; color: #333333; -webkit-text-stroke: #000000; background-color: #ffffff}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Courier New'; color: #008200; -webkit-text-stroke: #008200; background-color: #ffffff}p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Courier New'; color: #006699; -webkit-text-stroke: #006699; background-color: #ffffff}span.s1 {font-kerning: none}span.s2 {font-kerning: none; color: #0000ff; -webkit-text-stroke: 0px #0000ff}span.s3 {font-kerning: none; color: #006699; -webkit-text-stroke: 0px #006699}table.t1 {border-collapse: collapse}td.td1 {width: 754.5px}
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函数的语法以及设置值，具体怎么使用还需要你自己的深入学习有关知识。
本文地址：网络知识频道 https://www.hkm168.com/jiqiao/909051.html，易企推百科一个免费的知识分享平台，本站部分文章来网络分享，本着互联网分享的精神，如有涉及到您的权益，请联系我们删除，谢谢！
相关阅读
