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