String in Hex umwandeln
Hallo Leute,
Wollte mal fragen ob es eine Möglichkeit gibt einen String in eine Hex-Zahl umzuwandeln und diese dann weiter zu verwenden?
Wollte mal fragen ob es eine Möglichkeit gibt einen String in eine Hex-Zahl umzuwandeln und diese dann weiter zu verwenden?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 116075
Url: https://administrator.de/forum/string-in-hex-umwandeln-116075.html
Ausgedruckt am: 06.04.2025 um 12:04 Uhr
9 Kommentare
Neuester Kommentar

Hallo Alexander,
wenn ich Deine Frage richtig verstehe, hast Du einen String etwa
"12345"
In VB würde daraus eine HEX wie folgt
HEXString = Hex(Val("12345"))
oder bei Verwendung von zwei TextBoxen:
TextBox2.Text = Hex(Val(TextBox1.Text))
In Wert umwandeln geht dann einfach so:
Dim Wert As Long = Val("&H" + TextBox2.Text)
Gruß
Horst
wenn ich Deine Frage richtig verstehe, hast Du einen String etwa
"12345"
In VB würde daraus eine HEX wie folgt
HEXString = Hex(Val("12345"))
oder bei Verwendung von zwei TextBoxen:
TextBox2.Text = Hex(Val(TextBox1.Text))
In Wert umwandeln geht dann einfach so:
Dim Wert As Long = Val("&H" + TextBox2.Text)
Gruß
Horst

Hallo horstfh,
also, der Beitrag lautet eine Hex-Zahl. Und dann funktioniert nur das letzte Beispiel, wenn Du z.B. ein String in der Form "1A2B" hast.
Dann kann es z.B.sein:
Long = CLng("&H" & "1A2B")
Double = CDbl("&H" & "1A2B")
Decimal = CDec("&H" & "1A2B")
usw.
Gruß Dieter
also, der Beitrag lautet eine Hex-Zahl. Und dann funktioniert nur das letzte Beispiel, wenn Du z.B. ein String in der Form "1A2B" hast.
Dann kann es z.B.sein:
Long = CLng("&H" & "1A2B")
Double = CDbl("&H" & "1A2B")
Decimal = CDec("&H" & "1A2B")
usw.
Gruß Dieter
Hallo akrupp2!
"Leicht" ist relativ ...
Nachtrag: Um mich nicht vor der "Anführungszeichen"-Problematik zu drücken:
Dabei habe ich es mir allerdings etwas "leicht" gemacht und ein ansonsten unbenutztes Zeichen (im Beispiel "@") als Ersatz für die Anführungszeichen übergeben.
Grüße
bastla
"Leicht" ist relativ ...
@echo off & setlocal
set "String=Beispielstring"
set C=%temp%\ConvertToHex.vbs
>%C% echo S=WScript.Arguments(0):For i=1 To Len(S):H=H ^& Hex(Asc(Mid(S,i,1))):Next:WScript.Echo H
for /f %%i in ('cscript //nologo %C% "%String%"') do set "Hex=%%i"
echo %Hex%
@echo off & setlocal
set "String=Dies ist ein @Beispielstring@"
set C=%temp%\ConvertToHex.vbs
>%C% echo S=WScript.Arguments(0):S=Replace(S,"@",""""):For i=1 To Len(S):H=H ^& Hex(Asc(Mid(S,i,1))):Next:WScript.Echo H
for /f %%i in ('cscript //nologo %C% "%String%"') do set "Hex=%%i"
echo %Hex%
Grüße
bastla

Hallo akrupp2,
ja, was ist Deiner meiner nach ein Text, in meinen Beispielen stehen Textzahlen. Alles was in "" steht ist Text, also "Text" oder "1A2B"
Ist allerdings VB und nicht Batch. Das war Deinem Beitrag nicht zu entnehmen und auf die Kategorie habe ich leider nicht geachtet.
Aber bastla hat ja die Lösung in Batch schon geschrieben
Gruß Dieter
ja, was ist Deiner meiner nach ein Text, in meinen Beispielen stehen Textzahlen. Alles was in "" steht ist Text, also "Text" oder "1A2B"
Ist allerdings VB und nicht Batch. Das war Deinem Beitrag nicht zu entnehmen und auf die Kategorie habe ich leider nicht geachtet.
Aber bastla hat ja die Lösung in Batch schon geschrieben
Gruß Dieter