Conversion byte <=> string <=> hexa <=> decimal...
Soyez le premier à donner votre avis sur cette source.
Snippet vu 36 875 fois - Téléchargée 36 fois
Contenu du snippet
Voicis quelques fonctions de conversion bien pratiques, la fonction hextodec n'est pas de moi, mais je ne trouve plus l'auteur. Merci a lui
pour stringtobyte, appelez la avec call stringtobyte...
Source / Exemple :
Function stringtobyte(ByVal str As String, data() As Byte)
ReDim data(Len(str))
For i = 1 To Len(str)
data(i - 1) = Asc(Mid(str, i, 1))
Next i
End Function
Public Function ByteToString(ByRef bInput() As Byte) As String
Dim i As Long
ByteToString = ""
i = 0
Do While i < UBound(bInput) + 1
ByteToString = ByteToString + Chr$(bInput(i))
i = i + 1
Loop
End Function
Function stringtohex(ByVal str As String) As String
ReDim data(Len(str))
For i = 1 To Len(str)
stringtohex = stringtohex & Hex(Asc(Mid(str, i, 1)))
Next i
End Function
Public Function hexToString(ByRef str As String) As String
Dim i As Long
hexToString = ""
i = 1
Do While i < Len(str)
hexToString = hexToString & Chr$(Hextodec(Val(Mid(str, i, 2))))
i = i + 2
Loop
End Function
Public Function Hextodec(ByVal Nombre As String)
CoeffMulti = 1
Operation = 0
For x = Len(Nombre) To 1 Step -1
Select Case UCase(Mid(Nombre, x, 1))
Case "A"
Number = 10
Case "B"
Number = 11
Case "C"
Number = 12
Case "D"
Number = 13
Case "E"
Number = 14
Case "F"
Number = 15
Case Else
If Asc(Mid(Nombre, x, 1)) > 47 And Asc(Mid(Nombre, x, 1)) < 58 Then
Number = Mid(Nombre, x, 1)
Else
Exit Function
End If
End Select
Number = Number * CoeffMulti
Operation = Operation + Number
CoeffMulti = CoeffMulti * 16
Next x
Hextodec = Operation
End Function
Public Function bytetohex(buffer() As Byte) As String
bytetohex = vbNullString
For i = 0 To UBound(buffer)
bytetohex = bytetohex & Hex(buffer(i))
Next i
End Function
Public Function hextobyte(ByVal str As String, buffer() As Byte)
Dim i As Long
ReDim buffer(Len(str))
hextobyte = vbNullString
i = 1
a = 0
Do While i < UBound(buffer)
buffer(a) = Hextodec(Val(Mid(str, i, 2)))
i = i + 2
a = a + 1
Loop
End Function
Conclusion :
pour stringtobyte, appelez la avec call stringtobyte...
A voir également
- Vb.net hex to byte
- Vb.net hex to decimal - Meilleures réponses
- Byte to decimal - Meilleures réponses
- Visual Basic / VB.NET : Conversion d'ip (hexa, binaire, décimal et décimal point&eacut - Guide
- ASM : Nasm 32 - conversion hexa / décimal => division (32 bits) par 10 - CodeS SourceS - Guide
- Visual Basic / VB.NET : Hexa / decimal / vb hexa / rvb - toutes les conversions de type de couleurs - Guide
- C# / .NET : Conversion en héxa,décimal,octal,binaire - CodeS SourceS - Guide
- C# string to decimal conversion - Conseils pratiques - C# / .NET
Du même auteur (retaks666)
-
Composant conteneurs d'objets avec drag and drop façon assistant creation tableaux croisés excel
-
Algorithme bruteforce: énumère toute les possibilités d'un ensemble par récursivité
-
Mco viewer et installer (msn 7 winks and moods)
-
[msn7]autoriser les transferts de fichier de toutes les extensions
-
Proteger l'accès de vos dossier par mot de passe!
- Messages postés
-
332
- Date d'inscription
- lundi 29 septembre 2008
- Statut
- Membre
- Dernière intervention
- 10 avril 2020
1Que La bataille commence ! :)
Ubound retourne la borne supérieure du tableau (et non sa taille).
Il ne faut donc pas mettre le "-1" ...
Public Function bytetohex(buffer() As Byte) As String
bytetohex = vbNullString
For I = 0 To UBound(buffer) - 1 'Il faut ajouter le - 1 sinon la fonct ajoute un
'zero en fin de chaine!
bytetohex = bytetohex & Hex(buffer(I))
Next I
End Function
Merci pour le coup de main, joli resumé de fonctions! a+
voir mon code sous :
http://www.vbfrance.com/code.aspx?ID=28389
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.