Thursday, September 18, 2008

TransferCode - Unicode To ASCII

TransferCode - Unicode To ASCII




'Chg_ASC(字串)

Function Chg_ASC() 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

No comments: