conversion hexa vers utf8

Question

Je d&#233;sire calculer le codage utf8 pour un pointcode Unicode.
(j'utilise cela pour g&#233;n&#233;rer des url en chinois)
J'ai &#233;crit &#231;a, mais je trouve que ce n'est pas tr&#232;s beau &#224; voir.
Dim quartet3 
As 
Integer = 0

Dim quartet4 
As 
Integer = 0

Dim utf8 
As 
String = 
"" 

Dim Car 
As 
Char = "&#22914;"
'caract&#232;re &#224; convertir &#22914;=%E5%A6%82
Dim ArrayTexte 
As 
Char()

utf8 = Hex(AscW(Car)) 
' passer de Char &#224; une chaine hexa
ArrayTexte = utf8.ToCharArray ' mettre la chaine dans un tableau
quartet3 = 128 + (Convert.ToInt16(ArrayTexte(1), 16) * 4) + (Convert.ToInt16(ArrayTexte(2), 16) / 4)
quartet4 = 128 + (Convert.ToInt16(ArrayTexte(2), 16) 
Mod 4) * 16 + (Convert.ToInt16(ArrayTexte(3), 16))
utf8 = "%E" + ArrayTexte(0) + "%" + Hex(quartet3) + "%" + Hex(quartet4)

Quelqu'un a-t-il une meilleure id&#233;e ??

kalobit · Answer

excuse moi mais je suis pas sur que ce soit du VBA l&#224;, &#224; moins que t'ais d&#233;fini des types personnalis&#233;s (Char par exemple).
Si t'avais des explication sur tes fonctions de conversion aussi ( convert.ToInt16 connais pas non plus) 

et l'affectation de valeur dans une d&#233;claration de type c'est pas VBA du tout non plus.

voil&#224;. un peu plus d'infos serait bien venu.
Si tu peux nous d&#233;crire le format utf8 ce serait pas mal non plus.

+++
K@lobit

Renfield · Answer

c'est du VB.Net..... 

tout ne tourne pas autour de VBA, lol

Renfield
Admin CodeS-SourceS - MVP Visual Basic

VBsnail · Answer

Oui, c'est du Visual basic Express edition 2005. Mais alors, o&#249; dois-je poster ?

Pour ce qui est d'utf-8, voir : 
http://fr.wikipedia.org/wiki/Utf-8

Conversion hexa vers utf8

3 réponses

Discussions similaires