vbscript Split 函數用法
用法：傳回數組 = Split(原始字串, 要找的字串, 拆成幾個數組)
描述
返回一個下標從零開始的一維數組，它包含指定數目的子字符串。
語法
Split(expression[, delimiter[, count[, compare]]])
例如用逗號(,)分割字符串為數組
str="1,2,3,4"
strarr=split(str,",")
for i=0 to ubound(strarr)
msgbox strarr(i)
next
Split函數語法有如下幾部分：
部分 描述
expression 必需的。包含子字符串和分隔符的字符串表達式 。如果expression是一個長度為零的字符串("")，Split則返回一個空數組，即沒有元素和數據的數組。
delimiter 可選的。用于標識子字符串邊界的字符串字符。如果忽略，則使用空格字符(" ")作為分隔符。如果delimiter是一個長度為零的字符串，則返回的數組僅包含一個元素，即完整的 expression字符串。
count 可選的。要返回的子字符串數，-1表示返回所有的子字符串。
compare 可選的。數字值，表示判別子字符串時使用的比較方式。關于其值，請參閱“設置值”部分。
參數的設置
設置值
compare參數的設置值：
常數 值 描述
vbUseCompareOption -1 用Option Compare語句中的設置值執行比較。
vbBinaryCompare 0 執行二進制比較。
vbTextCompare 1 執行文字比較。
vbDatabaseCompare 2 僅用于Microsoft Access?；谀臄祿斓男畔绦斜容^。
Private Sub Command1_Click()
Dim MyStr As String
MyStr = "1234567123456712345"
MyStrs = Split(MyStr, "67")
For Each Strs In MyStrs
Print Strs
Next
End Sub
輸出結果："12345"、"12345"、"12345"
'這個VB程序是讓求10個學生的考試成績的平均分..
'比如95 85 70 75 80 90 60 65 95 100
'這10個人的分數的平均分...
Private Sub Form_Load()
Dim A$(), i As Long, intB As String, s As Integer
If Dir("d:/平均分.dat") = vbNullString Then
Open "d:/平均分.dat" For Output As #1
Print #1, "95 85 70 75 80 90 60 65 95 100"
Close #1
End If
Open "d:/平均分.dat" For Input As #1
Input #1, intB
Close #1
A = Split(intB, Space(1), -1, 1)
For i = 0 To UBound(A, 1)
Debug.Print A(i); " ";
s = s + A(i)
Next i
Debug.Print "，10個學生的平均成績是 :" & s / 10
End Sub
Private Sub command1_Click()
Dim AString As String
Dim r() As String '把變量按照“,”分割出來的數組
Dim rt As String '最終的結果，用換行符代替“,”
Dim C As Integer '這個是循環用的
AString = "高級，中級，低級，先進"
r = Split(AString, "，") '把每個目錄都分解出來
For C = 0 To UBound(r) 'C由0開始循環到r數組的最大下標
rt = rt & vbCrLf & vbCrLf & r(C) '把數組的每一個元素都添加到rt，用回車分割
Next C '循環
MsgBox rt '輸出
End Sub
Private Sub Form_Load()
Dim strTextDate As String
strTextDate = "2008-12-1 星期一"
MsgBox Format(Split(strTextDate)(0), "yyyy-mm-dd")
End Sub
當小括號中寫0時，返回數組中第一個元素，小括號中寫1時返回數組中第二個元素。依此類推，用這種寫法返回數據時，必須用一個空格把字符串分開，其它字符僅當做一個數據。例：
Private Sub Form_Load()
Dim AString As String
AString = "高級 中級 低級 先進"
MsgBox Split(AString)(0)
MsgBox Split(AString)(1)
MsgBox Split(AString)(2)
MsgBox Split(AString)(3)
End Sub
以下只返回 高級,中級,低級,先進 僅當作一個串，即只能返回Split(AString)(0)的值,其它值都產生下標越界錯誤。所以用以下方法分解時,只能用一個空格分割,而不能用其它字符分割.
Private Sub Form_Load()
Dim AString As String
AString = "高級,中級,低級,先進"
MsgBox Split(AString)(0)
MsgBox Split(AString)(1)
MsgBox Split(AString)(2)
MsgBox Split(AString)(3)
End Sub
split 命令用途
將文件分割成幾段。
語法
要將一個文件分割成包含指定行數的多個文件
split [ -l LineCount ] [ -a SuffixLength ] [ File [ Prefix ] ]
要將一個文件分割成包含指定字節數的多個文件
split -b Number [ k | m ] [ -a SuffixLength ] [ File [ Prefix ] ]
描述
split 命令讀取指定文件，以 1000 行大小寫在一組輸出文件上。第一個輸出文件名由指定前綴（缺省值 x）和 aa 后綴組合構成，第二個文件名由前綴和 ab 后綴組合構成，如此按字典順<img class="img InsertH2" style="border-left-color: rgb(0, 153, 204); border-left-width: 1px; border-left-style: solid; padding: 0px 3px; margin: 3px auto 0px; width: 640px; background-color: rgb(242, 246, 251); clear: both; border-top-color: rgb(0, 153, 204); border-top-width: 1px; border-top-style: solid; border-right-color: rgb(0, 153, 204); border-right-width: 1px; border-right-style: solid; color: rgb(0, 0, 0); font-family: Tahoma, Helvetica, Arial, 宋體, sans-serif;"> 復制代碼代碼如下:
