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
| 首页 | 业界资讯 | 操作系统 | 杀毒防毒 | 办公软件 | 下载 | 开发编程 | 硬件 | 培训 | 贴图 网址 | 互联思考 | 常用软件 | 冲浪宝典 | 聊天软件 | 资料 | 硬件频道 | 设计 | 订阅本站 RSS |
