TKSoft-Online

Umwandeln String zu Hex PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel Strings
Geschrieben von: TommyK   
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr
Tags:

Problemstellung:

Wie kann ich einen String in Hex umwandeln?


Function StrToHex(S As Variant) As Variant
'
' einen String in hex umwandeln.
' sinnvoll bei ASCII sortierung in einer Abfrage.
'
    Dim Temp As String, i As Integer

    On Error Resume Next

    If VarType(S) <> 8 Then
        StrToHex = S
    Else
        Temp = ""
        For i = 1 To Len(S)
            Temp = Temp & Format(Hex(Asc(Mid(S, i, 1))), "00")
        Next i
        StrToHex = Temp
    End If
End Function

Aufruf:


Dim x As String
x = StrToHex("Test.")

Das Ergebnis von x wäre "546573742E"
DatumKlicks
Total1672
Do. 241
Mi. 233
Di. 221
Mo. 212
So. 203
Sa. 191
Fr. 182
< Zurück   Weiter >
Aktualisiert ( Freitag, den 02. Juli 2010 um 07:11 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173486 Downloads