% a="日本是中國的一個省|我們美麗中國的張家界！" b="中國,我們,張家界,日本,美國,蘋果" b=split(b,",") a=split(a,"|") for k=0 to ubound(a) s="" n="" for i=0 to ubound(b) if instr(a(k),b(i))>0 then s=s instr(a(k),b(i)) "," instr(a(k),b(i))+len(b(i)) "," end if next s=left(s,len(s)-1) if left(s,len(s)-1)>len(a(k)) then s=s","len(a(k))+1 s=sort(split(s,",")) for i=0 to ubound(s)-1 n=nmid(a(k),s(i),s(i+1)-s(i)) "|" next
response.write n "br>" next
function sort(ary) ck=true do Until ck = false ck=false For f = 0 to UBound(ary) -1 if clng(ary(f))>clng(ary(f+1)) then v1=clng(ary(f)) v2=clng(ary(f+1)) ary(f)=v2 ary(f+1)=v1 ck=true end if next loop sort=ary end function %>
