Question

vb split函数，怎样根据多个字符串分割？

例如:qq#sdsds@sds,我想用#和@作为分隔符将其拆成“qq”，“sdsd”，“sds”三个字符串，而且这个字符串是用inputbox输入的，分隔符就是#和@，只要字符串出现#或@，就按其拆分，不知split函数能不能实现，或者用其他函数？？谢谢了

Answer 1

分别分解。如有：
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

Answer 2

输入的字符串为s，然后
r=Split(Replace(s,"#","@"),"@")

Answer 3

str1=split('qq#sdsds@sds','#')
str2=split(str1[2],'@')
结果是：
str1[1]=qq
str2[1]=sdsds
str2[2]=sds