[Resolvido] Codificando e decodificando UTF-8

[xanburzum 169]

Codificando e decodificando UTF-8

 

function DecodeUTF8(s) 
 dim i  
dim c 
 dim n
i = 1 
 do while i <= len(s) 
   c = asc(mid(s,i,1))  
if c and &H80 then    
  n = 1  
do while i + n < len(s)
if (asc(mid(s,i+n,1)) and &HC0) <> &H80 then          
exit do       
 end if
n = n + 1   
   loop
if n = 2 and ((c and &HE0) = &HC0) then
c = asc(mid(s,i+1,1)) + &H40 * (c and &H01)
else    
    c = 191 
end if     
 s = left(s,i-1) + chr© + mid(s,i+n)
end if 
   i = i + 1
loop  
DecodeUTF8 = s 
end function 
function EncodeUTF8(s)
dim i 
 dim c  
i = 1
do while i <= len(s)
c = asc(mid(s,i,1)) 
   if c >= &H80 then
s = left(s,i-1) + chr(&HC2 + ((c and &H40) / &H40)) + chr(c and &HBF) + mid(s,i+1) 
     i = i + 1
end if 
   i = i + 1
loop  
EncodeUTF8 = s 
end function