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?
Please also mark the comments that contributed to the solution of the article
Content-Key: 116075
Url: https://administrator.de/contentid/116075
Printed on: April 23, 2024 at 15:04 o'clock
9 Comments
Latest comment
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