conversion unicode -> Ascii + ascii étendu français VB.NET

[riri95]

bonjour,

je vous fait partager ce bout de code qui fonctionne pour le framework 2 et supérieur.

Dim lobj_list() As Byte
Dim a As System.Text.Encoding = System.Text.Encoding.GetEncodi ng(850)
lobj_list = a.GetBytes(TextBox1.Text)
MsgBox(lobj_list(0))

le code 850 correspond à l'europe de l'ouest
la page de codes sur cette page : http://msdn.microsoft.com/fr-fr/libr....encoding.aspx
-----