Ich bin einfach noch zu blöd für autoit aber ich ziehe mir fleisig die hilfe datei rein um es besser zu können
Vergleich
-
- [ offen ]
-
Pokersims -
10. Dezember 2009 um 18:25 -
Geschlossen -
Erledigt
-
-
aber ich ziehe mir fleisig die hilfe datei rein
So lob ich mir das
-
Ja ich bin wenigstens fleißig ach ja und noch was wie bringe ich mein Programm noch dazu das nicht nur den ersten Buchstaben (So stehts in der Hilfe) übersetzt sondern einen ganzen Text??? Das geht nicht oder
-
dazu musst du den text in einzelne buchstaben aufteilen und jeden einzeln übersetzen, hört sich jetz viel an isses aber ncih
-
Mit StringSplit den ganzen Text in Buchstaben zerlegen, und dann in einer For-Next Schleife übersetzen lassen. Danach die Übersetzungen wieder zusammensetzen.
Sowas hier in der Art:
Spoiler anzeigen
[autoit]
[/autoit]
#include <String.au3>
Global $String = "Hallo", $Return = ""
$aSplit = StringSplit($String,"")
For $i = 1 to $aSplit[0]
$Return &= _StringToHex($aSplit[$i])&","
ConsoleWrite($Return&@CRLF)
Next
$Return = StringTrimRight($Return,1)
MsgBox(0,"",$Return)//Edit: Maaaan Schnitzöl war schnellah *ich ignoriere heute mal Grammatik, und Räschtschraibunk*
-
und wie bekomme ich das wieder zurückübersetzt ??? das geht ja dann nicht mit split da ein buchstabe ja dann aus 2 zahlen oder 3 zahlen besteht
-
deswegen solltest nach jeder zahl ein trennzeichen einfügen zum beispiel das leerzeichen
dann kannst dus ganz einfach mit stringsplit wieder trennen
-
- Offizieller Beitrag
Wenn man ausschließlich den ASCII-Zeichensatz verwendet, dann braucht man kein Trennzeichen, denn dann sind die Hexzahlen immer 2stellig.
Somit kann man mit StringMid und einer For...Next-Schleife die Zahlen wieder umwandeln:Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
Global $String = "Hallo", $Return = ""
$aSplit = StringSplit($String,"")
For $i = 1 to $aSplit[0]
$Return &= Hex(Asc($aSplit[$i]),2)
Next
MsgBox(0,"",$String & " = " & $Return)$String = ""
[/autoit]
For $i = 1 To StringLen($Return) Step 2
$String &= Chr(Dec(StringMid($Return, $i, 2)))
Next
MsgBox(0, "", $Return & " = " & $String) -