|
Tipp 0484
|
Zeichenkette in Hex-Wert konvertieren
|
|
|
Autor/Einsender: Datum: |
|
Max Kaffl 07.02.2006 |
|
Entwicklungsumgebung: |
|
VB 6 |
|
|
Mit der VB-Funktion Hex kann ein einzelnes Zeichen in einen hexadezimalen Wert umgewandelt werden. Um jedoch einen
ganzen String zu konvertieren, wird eine Schleife und ein kleiner Griff in die VB-Trickkiste benötigt.
Dieses Beispiel zeigt auch wie ein Hex-String wieder in ASCII-Zeichen umgewandelt werden kann. So lässt sich beispielsweise
ein Hex-Viewer realisieren.
|
|
|
Private Function StringToHex(strText As String) As String
Dim intIndex As Integer
On Error GoTo err_exit
For intIndex = 1 To Len(strText)
StringToHex = StringToHex & _
Hex(Asc(Mid$(strText, intIndex, 1)))
Next
Exit Function
err_exit:
StringToHex = ""
End Function
Private Function HexToString(ByVal strText As String) As String
On Error GoTo err_exit
Dim intIndex As Integer
For intIndex = 1 To Len(strText) Step 2
HexToString = _
HexToString & Chr$(CLng("&H" & Mid$(strText, intIndex, 2)))
Next
Exit Function
err_exit:
HexToString = ""
End Function
|
|
|
|
Die beiden hier abgebildeten Funktionen funktionieren auch in einem VBA-Projekt, diese müssen dazu lediglich
über die Zwischenablage in den VB-Editor der entsprechenden Anwendung kopiert werden.
|
|
|
|
Windows-Version |
95 |
|
|
98 |
|
|
ME |
|
|
NT |
|
|
2000 |
|
|
XP |
|
|
Vista |
|
|
Win
7 |
|
|
|
VB-Version |
VBA 5 |
|
|
VBA 6 |
|
|
VB 4/16 |
|
|
VB 4/32 |
|
|
VB 5 |
|
|
VB 6 |
|
|
|
|
Download (2,6 kB)
|
Downloads bisher: [ 691 ]
|
|
|