2024年6月8日发(作者：)

winccvbscriptSplit函数用法

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()