Jquery中文网 www.jquerycn.cn
Jquery中文网 >  脚本编程  >  vbscript  >  正文 vbscript Split函数用法详解

vbscript Split函数用法详解

发布时间:2014-10-19   编辑:www.jquerycn.cn
本文详细介绍了vbscript中split函数的用法,有关split函数的一些实例,vbscript中split函数的语法介绍,有需要的朋友参考下。

本节内容:
vbscript Split 函数用法

用法:传回数组 = Split(原始字串, 要找的字串, 拆成几个数组)
描述
返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
语法
Split(expression[, delimiter[, count[, compare]]])
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" alt="段落标题" src="../../System/_resource/blank.gif">序一直到 zz(最多 676 个文件)。后缀的字母数及因此的输出名称文件数可用 -a 标志增加。
您指定的 Prefix 不能长于 PATH_MAX - 2 个字节(如果指定了 -a 标志,则不能长于 PATH_MAX - SuffixLength 个字节)。PATH_MAX 变量指定系统的最大路径名的长度( 在 /usr/include/sys/limits.h 文件中定义)。
如果您不指定输入文件或如果您指定 -(减号)文件名,那么 split 命令从标准输入读取文件。
标志
注:-b 和 -l 标志是互斥的。
-a SuffixLength 指定用于形成输出名称文件后缀部分的字母数。字母数确定可能的输出文件名组合数。缺省是两个字母。
-b Number 将文件分割成 Number 变量指定的字节数。将 k(千字节)或 m(兆字节)乘数加到 Number 值的末尾使文件分别分割成 Number*1024 字节或 Number*1,048,576 字节的几个段。
-l LineCount 指定每个输出文件的行数。缺省值是 1000 行。
退出状态
该命令返回以下退出值:
0 命令成功运行。
>0 发生错误。
示例
 

1. 要将文件分割成 1000 行的段,请输入:
split book
此示例将 book 分割成 1000 行的段,命名为 xaa、 xab、 xac 等等。
2. 要将文件分割成 50 行的段并指定文件名前缀,请输入:
split -l 50 book sect
此示例将 book 分割成 50 行的段,命名为 sectaa、sectab、sectac 等等。
3. 要将文件分割成 2KB 的段,请输入:
split -b 2k book
此示例将 book 分割成 2*1024 字节的段,命名为 xaa、xab、xac 等等。
4. 要将文件分割成 676 个以上的段,请输入:
split -l 5 -a 3 book sect
此例将 book 分割成 5 行的段,命名为 sectaaa、sectaab、 sectaac 等等,直到 sectzzz(最多 17,576 个文件)。

您可能感兴趣的文章:
vbscript split函数简介
vbscript Split函数用法详解
VBScript Split 函数
VBScript Timer 函数
VBScript Now 函数
VBScript Time 函数
VBScript GetObject 函数
VBScript Date 函数
js split使用方法与技巧
如何解决php Function split() is deprecated 的问题

关键词: split函数   
[关闭]