A voir également:
- Decouper une chaine octet par octet
- Découper un pdf - Guide
- Découper mp4 - Guide
- Découper mp3 - Guide
- Chaine tnt gratuite sur mobile - Guide
- Chaine radio - Télécharger - Médias et Actualité
7 réponses
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
faut dire que j'ai poste des message auparavant ailleurs et que je l'avais mis;
donc ma demande porte en visual basic 6
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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