轉碼 Unicode轉ASCII
'Chg_ASC(字串)
Function Chg_ASC(str)
dim xStr,yStr,zStr,temp_word,flag
flag=0
xStr = instr(flag+1,str,"&#")
do until xStr = 0 or xStr < flag
xStr = instr(flag+1,str,"&#")
if xStr <> 0 then
yStr = mid(str,xStr,8)
select case instr(yStr,";")
case 8
zStr = chrw(mid(yStr,3,5))
case 7
zStr = chrw(mid(yStr,3,4))
case 6
zStr = chrw(mid(yStr,3,3))
case 5
zStr = chrw(mid(yStr,3,2))
end select
if instr(yStr,";") > 4 and asc(zStr) <> 63 then
str = replace(str,left(yStr,instr(yStr,";")),zStr)
end if
flag = xStr
end if
loop
Chg_ASC = str
End Function
Function Chg_ASC(str) 
Function dim xStr,yStr,zStr,temp_word,flag flag=0 xStr = instr(flag+1,str,"&#") do until xStr = 0 or xStr < flag xStr = instr(flag+1,str,"&#") if xStr <> 0 then yStr = mid(str,xStr,8) select case instr(yStr,";") case 8 zStr = chrw(mid(yStr,3,5)) case 7 zStr = chrw(mid(yStr,3,4)) case 6 zStr = chrw(mid(yStr,3,3)) case 5 zStr = chrw(mid(yStr,3,2)) end select if instr(yStr,";") > 4 and asc(zStr) <> 63 then str = replace(str,left(yStr,instr(yStr,";")),zStr) end if flag = xStr end if loop Chg_ASC = strEnd Function