vbscript Split 函数用法
用法：传回数组 = Split(原始字串, 要找的字串, 拆成几个数组) 描述
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 语法
Split(expression[, delimiter[, count[, compare]]])
例如用逗号(,)分割字符串为数组
复制代码 代码如下:
str=\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 = \MyStrs = Split(MyStr, \For Each Strs In MyStrs Print Strs Next End Sub
输出结果：\、\、\
复制代码 代码如下:
'这个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(\平均分.dat\Open \平均分.dat\Print #1, \Close #1 End If
Open \平均分.dat\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个学生的平均成绩是 :\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 = \星期一\
MsgBox Format(Split(strTextDate)(0), \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 后缀组合构成，如此按字典顺