【正文】
tion unicode(str) dim i,j,c,i1,i2,u,fs,f,p unicode= p= for i=1 to len(str) c=mid(str,i,1) j=ascw(c) if j0 then j=j+65536 end if if j=0 and j=128 then if p=c then unicode= amp。amp。 elseif c= then convertsymbol=convertsymbol amp。apos。 amp。 c end if next convertstring=Lcase(strtemp) end functi