我先介绍一下Split函数的用法:

　　返回值数组 = Split("字符串","分割符")

　　假设变量strURL保存着URL值，如strURL = "ftp://username:password@server";，这是我们在ＩＥ中登录到FTP上时的ＵＲＬ形式，如果我们想把其中的username和password取出来的话，该怎么办呢？当然解决的方法有许多，在这里我们只介绍用Split来解决的方法。首先，我们找出分割符。我们发现在这个字符串中，username和password之间有个冒号把它们隔开了，所以我们就把这个冒号作为Split函数的"分割符"来分割整个字符串，最后达到取username和password的目的。代码如下：

　　strURL = "ftp://username:password@server"

　　aryReturn = Split(strURL,":")

　　这样我们就把字符串用冒号分割开了，分割后的结果保存在aryReturn中（aryReturn是一个数组）。

　　下面我们就来看看这个最终的结果吧，因为Split函数最终返回的是一个数组，所以我们主要就是显示数组中的元素了，就要涉及到一些跟数组有关的函数:IsArray()判断是否数组的函数,LBound()取数组的下标,UBound()取数组的上标。

　　Response.Write("返回值是否为数组:" & IsArray(aryReturn) & "<br>")

　　For i = LBound(aryReturn) To UBound(aryReturn)

　　Response.Write("返回值数组中的元素[" & i & "]：" & Right(aryReturn(i),Len(aryReturn(i))-2) & "<br>")

　　Next

　　通过上面的代码，我们看到字符串被分割成三个部分，即："ftp"、"//username"、"password@server"。我们要取username和password需要进一步的处理，我就不多说了，直接给出代码。

　　取username的代码：

　　strUsername = Right(aryReturn(1),Len(aryReturn(1))-2)

　　取password的代码：

　　'取password我们又用到Split函数了，不过这回的分割符是"@"

　　aryTemp = Split(aryReturn(2),"@")

　　strPassword = aryTemp(0)

　　'我们可以顺便取出server

　　strServer = aryTemp(1)

　　分割符可以是一个字符，也可以是一个字符串。如：

　　aryReturn = Split("ftp://username:password@server,"//")

分段，以指定字符为分隔符，分离出若干个子字符串，并保存在一个下标从0开始的一维数组中，其格式为：split (字符串，分隔符）



dim a="1,2,3,4,5,6,45,656465,564,45"

dim b() as integer

b=split(a,",") 
那么b(0)=1 

    b(1)=2 

    b(i)=

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

expression
必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
常数
值
描述
vbUseCompareOption
-1
用Option Compare语句中的设置值执行比较。
vbBinaryCompare
0
执行二进制比较。
vbTextCompare
1
执行文字比较。
vbDatabaseCompare
2
仅用于Microsoft Access。基于您的数据库的信息执行比较。
expression
必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。

expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 
 
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 
 
count 可选的。要返回的子字符串数，-1表示返回所有的子字符串。 
 
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 
 
设置值
compare参数的设置值如下：
常数 值 描述 
vbUseCompareOption -1 用Option Compare语句中的设置值执行比较。 
vbBinaryCompare 0 执行二进制比较。 
vbTextCompare 1 执行文字比较。 
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。

Split函数 

返回一个从零最先的一维数组，其中包含指定数量的子字符串。 


FunctionSplit( 

ByVal Express花儿与少年ion 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 执行文本比力 

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
解释如下：








示例:




揭晓评论请输进评论














引文来源  VB中Split函数的浸染和用法(字符串用逗号分割) - 猫老年夜专栏 - CSDNBlog
----------------------------

一键转贴，快速捕捉生活精彩，赢每周好礼！查看运动首页>>