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
 
Hinweis für VBA-Anwender
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.
Weitere Links zum Thema
Bin-/Dez-/Hex-Konvertierung
Umlaute konvertieren

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: [ 611 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 30. August 2011