【正文】
如何把中文轉換為 UNICODE? 見下列代碼: % function 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。unicode p=e end if unicode=unicodeamp。c else if p=e then unicode=unicod