function uni2gb(str)
dim tmp,tmpstr,i
tmpstr=""
for i=1 to Len(str)
tmp=Mid(str,i,1)
if tmp="&" and Mid(str,i+1,1)="#" and Mid(str,i+7,1)=";" then
tmpstr=tmpstr&ChrW(Mid(str,i+2,5))
i=i+7
else
tmpstr=tmpstr&tmp
end if
next
uni2gb=tmpstr
end function
| 首頁 | 業(yè)界資訊 | 操作系統(tǒng) | 殺毒防毒 | 辦公軟件 | 下載 | 開發(fā)編程 | 硬件 | 培訓 | 貼圖 網(wǎng)址 | 互聯(lián)思考 | 常用軟件 | 沖浪寶典 | 聊天軟件 | 資料 | 硬件頻道 | 設計 | 訂閱本站 RSS |
