如何把下面的字符串按照@和＃分别分割，并且存入数组

[qieyj]

有如下一段字符串，我想先按照@符号分割，分成4类，然后再分别按照＃分割:

"题名 #like#a#@保管单位 #like#b# and @保管单位 #like## and @保管单位 #like## and"

最后我想得到如下结果
cond1==array ("题名","like",a)
cond1==array ("保管单位","like",b,and)
cond1==array ("保管单位","like",,and)
cond1==array ("保管单位","like",,and)


如何用asp来实现啊？

[qieyj]

没有人知道吗

[quiet]

dim i
i="题名 #like#a#@保管单位 #like#b# and @保管单位 #like## and @保管单位 #like## and"
i=split(i,"@")
dim j
dim str
dim strs
for j=0 to ubound(i)
str=split(i(j),"#")
for k=0 to ubound(str)
strs(j,k)=str(k)
next
next

[quiet]

dim strs(1,1)
for
...
for
redim strs(ubound(i),ubound(str))
....
next
next