我的做法用
dim arrformula as new arraylist
dim arr as string()=stryourstring.split("&[")
dim formula as string=""
'得到
arr(0)=xxxx
arr(1)=a,,]xxx 'a,,就是你的公式
arr(2)=b,] 'b,也是你的公式
arr(3)=c,,,]xxx 'c,,,也是你的公式
for i as integer=0 to arr.length-1
if arr(i).indexof("]")>0 then
formula=arr(i).substring(0,arr(i).indexof("]")-1)
arrformula.add(formula)
end if
next