VB Split怎样多个字符分割？

VB使用Split函数实现分割多个以相同标识符组成的字字符串。

• Split函数

  描述，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

  

  
  

  

分别分解。如有：
DIM x() AS STRING,y() as string,s as string
DIM i as integer,j as integer
s="a1,a2,a3;b1,b2,b3,b4"
x=split(s,";") ' 结果x有两个元素："a1,a2,a3"和"b1,b2,b3,b4"
for i=LBOUND(X) TO UBOUND(X)
y=split(x(i),",")
for j=LBOUND(y) to UBOUND(y)
print y(j),
next j
print
next i

Split函数：
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

语法：
Split(expression[, delimiter[, count[, compare]]])

Split函数语法有如下几部分：
1、expression，必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
2、delimiter，可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
3、count，可选的。要返回的子字符串数，–1表示返回所有的子字符串。
4、compare，可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。

compare参数的设置值如下：
vbUseCompareOption，–1，用Option Compare语句中的设置值执行比较。
vbBinaryCompare，0，执行二进制比较。
vbTextCompare，1，执行文字比较。
vbDatabaseCompare，2，仅用于Microsoft Access。基于您的数据库的信息执行比较。