vbscript Split函数用法详解(字符串转数组函数)

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" 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 个文件)。

时间: 2014-04-29

VBS教程:函数-Split 函数

Split 函数 返回基于 0 的一维数组,其中包含指定数目的子字符串. Split(expression[, delimiter[, count[, start]]]) 参数 expression 必选项.字符串表达式,包含子字符串和分隔符.如果 expression 为零长度字符串,Split 返回空数组,即不包含元素和数据的数组. delimiter 可选项.用于标识子字符串界限的字符.如果省略,使用空格 ("") 作为分隔符.如果 delimiter 为零长度字符串,则返回包含

VBS教程:函数-Left 函数

Left 函数返回指定数目的从字符串的左边算起的字符. Left(string, length) 参数string 字符串表达式,其最左边的字符被返回.如果 string 参数中包含 Null,则返回 Null. Length 数值表达式,指明要返回的字符数目.如果是 0,返回零长度字符串 (""):如果大于或等于 string 参数中的字符总数,则返回整个字符串. 说明可使用 Len 函数确定 string 参数中的字符数目. 下面的示例利用Left 函数返回MyString 的左边

VBS教程:函数-转换函数

转换函数Asc 函数CBool 函数CByte 函数CCur 函数CDate 函数CDbl 函数Chr 函数CInt 函数CLng 函数CSng 函数CStr 函数Hex 函数Oct 函数

VBS教程:函数-派生数学函数

派生数学函数下列是由固有数学函数派生的非固有数学函数: 函数派生的等效公式Secant(正割)Sec(X) = 1 / Cos(X)Cosecant(余割)Cosec(X) = 1 / Sin(X)Cotangent(余切)Cotan(X) = 1 / Tan(X)Inverse Sine(反正弦)Arcsin(X) = Atn(X / Sqr(-X * X + 1))Inverse Cosine(反余弦)Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * A

VBS教程:函数-数学函数

Abs 函数Atn 函数Cos 函数Exp 函数Fix 函数Int 函数Log 函数Rnd 函数Sgn 函数Sin 函数Sqr 函数Tan 函数派生数学函数

JavaScript中join()、splice()、slice()和split()函数用法示例

本文实例讲述了JavaScript中join().splice().slice()和split()函数用法.分享给大家供大家参考,具体如下: join() join() 方法用于把数组中的所有元素放入一个字符串. 元素是通过指定的分隔符进行分隔的. <script type="text/javascript"> var arr = new Array(3) arr[0] = "George" arr[1] = "John" arr[2

举例详解Python中的split()函数的使用方法

函数:split() Python中有split()和os.path.split()两个函数,具体作用如下: split():拆分字符串.通过指定分隔符对字符串进行切片,并返回分割后的字符串列表(list) os.path.split():按照路径将文件名和路径分割开 一.函数说明 1.split()函数 语法:str.split(str="",num=string.count(str))[n] 参数说明: str:   表示为分隔符,默认为空格,但是不能为空('').若字符串中没有分

Oracle 自定义split 函数实例详解

Oracle 自定义split 函数 Oracle没有提供split函数,但可以自己建立一个函数实现此功能.比如"abc defg  hijkl   nmopqr     stuvw  xyz",分隔符是空格,但空格个数不定. 源代码: CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000); CREATE OR REPLACE FUNCTION fn_var_split ( p_str IN VARCHAR2,

JavaScript中字符串分割函数split用法实例

本文实例讲述了JavaScript中字符串分割函数split用法.分享给大家供大家参考.具体如下: 先来看下面这段代码: <script type="text/javascript"> var str="How are you doing today?" document.write(str.split(" ") + "<br />") document.write(str.split("&q