VBS教程：函數-Split 函數_vbs

Split 函數

返回基於 0 的一維數組，其中包含指定數目的子字串。

Split(expression[, delimiter[, count[, start]]])

參數

expression

必選項。字串運算式，包含子字串和分隔字元。如果 expression 為零長度字串，Split 返回空數組，即不包含元素和資料的數組。

delimiter

可選項。用於標識子字串界限的字元。如果省略，使用空格 ("") 作為分隔字元。如果 delimiter 為零長度字串，則返回包含整個 expression 字串的單元素數組。

count

可選項。被返回的子字串數目，-1 指示返回所有子字串。

Compare

可選項。指示在計運算元字串時使用的比較類型的數值。有關數值，請參閱“設定”部分。

設定

compare 參數可以有以下值：

常數	值	描述
vbBinaryCompare	0	執行二進位比較。
vbTextCompare	1	執行文本比較。

說明

下面的樣本利用 Split 函數從字串中返回數組。函數對分界符進行文本比較，返回所有的子字串。

複製代碼 代碼如下:

Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox Msg

Split(expression[, delimiter[, count[, start]]]):返回基於0的一維數組,其中包含指定樹木的子字串.下面的例子,將字串以“&”為標記分割開來.

注意:因為分割後,其實返回的是一個數組,所以要顯示,就必須返回其中一個字串,或者寫迴圈來分別彈出傳回值.

複製代碼 代碼如下:

<HTML>
<HEAD><TITLE>一個簡單首頁</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Function b_onclick
Dim x
x=Split("abcdabcd&abcdabcd", "&", -1)
Msgbox x(0)
End function
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>一個簡單首頁</H3><HR>
<FORM>
<INPUT id=b TYPE="BUTTON" VALUE="單擊此處">
</FORM>
</BODY>
</HTML>