
On peut aussi convertir de l'hexa
Code : Tout sélectionner
a$ = "Je sais , tu t'est fait chier à faire une moulinette pour ca...C'est assez decevant , bon , juste pour dire que j'ai 37°2 , et les urines claire...@++"
For i = 1 To Len(a$)
Titi$ + RSet(Bin(Asc(Mid(a$, i, 1))), 8, "0")
Next
Debug Titi$
a$ = Titi$
For i=1 To Len(a$) Step 8
toto$=toto$+Chr(Val("%"+Mid(a$,i,8)))
Next i
Debug toto$