回复 10 楼 yangfrancis
应该不是特别麻烦,用一个函数解决private function CompStr(iStr1 as string,iStr2 as string,bStr as string) as boolean
'判断有分隔符的iStr1 和iStr2元素是否相同,分隔符为bstr,相同为True,不同为False
dim b() as string,i as integer,f as boolean
b=split(istr1,bstr)
if len(istr1)<>len(istr2) then exit function
CompStr=true
for i=0 to ubound(b)
if b(i)<>"" and instr(istr2,b(i))=0 then
CompStr=false
exit for
end if
next
end function