Decouper une chaine octet par octet

Salut,

Vous n'avez qu'a faire afficher le résultat comme vous voulez,
valeur texte, ascii, hexa... !!!

Sub TestOctet()

Dim Chaine, Lettre, Mot As String
Dim Message As String
Dim Longueur, Boucle, Nombre As Integer

Chaine = "Bonjour à tous"
Longueur = Len(Chaine)

For Boucle = 1 To Longueur
Lettre = Mid(Chaine, Boucle, 1)
Nombre = Asc(Lettre)
Mot = Hex(Nombre)
Message = "Lettre = " & Lettre & vbCrLf
Message = "Code Ascii =" & Nombre & vbCrLf
Message = Message & "Code Hexa (octet) =$" & Mot
MsgBox Message
Next Boucle

End Sub

Lupin

non je voudrai octet par octet

Salut,

Dim Chaine, Lettre As String
Dim Longueur, Boucle As Integer

Chaine = "Bonjour à tous"
Longueur = Len(Chaine)

For Boucle = 1 To Longueur
MsgBox Mid(Chaine, Boucle, 1)
Next Boucle

Amicalement
Lupin

quel idiot j'ai oublie de mettre dans quel langage :

faut dire que j'ai poste des message auparavant ailleurs et que je l'avais mis;

donc ma demande porte en visual basic 6

En Python ?

chaine = "Salut la compagnie !"

for octet in chaine:
    print octet

ayé.

J'ai gagné ?

tu veux dire caractere par caractere

Bonjour!

Quel langage utilise tu?

 Maily   :-))))
Check lapin!!