ASCII Code Generator

Bin grad auf die Idee gekommen ein kleines Tool zu schreiben

[autoit]

#include <GUIConstants.au3>

[/autoit][autoit][/autoit][autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ASCII", 155, 58, 193, 125)
$Label1 = GUICtrlCreateLabel("String", 0, 3, 31, 17)
$1 = GUICtrlCreateInput("", 33, 0, 31, 21)
$Label2 = GUICtrlCreateLabel("ASCII", 87, 3, 31, 17)
$2 = GUICtrlCreateInput("", 117, 0, 31, 21)
$Button1 = GUICtrlCreateButton("Generate", 42, 30, 67, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$3 = GUICtrlRead ($1)
GUICtrlSetData ($2,Asc ($3))
EndSwitch
WEnd

[/autoit]

Habt ihr noch Verbesserungs-/Erweiterungsvorschläge?

Keiner nen Vorschlag?

Hi
ich fänds noch gut wenn das auch umgekehrt ginge also von ASCII in string

Das wüsste ich jetzt nicht wiei ch das machen sollte ohne eine min 200 Zeilige If abfrage xD

Huhu, meinst du soetwas?

Spoiler anzeigen

[autoit]

#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

msgbox("","",AscChr("Hallo",0))

[/autoit] [autoit][/autoit] [autoit]

func AscChr($Text,$flag = 0)
Dim $Return
If $flag = 0 Then
$Ascii = ""
for $i = 1 to stringlen($Text)
$Return = $Return & "[" &asc(StringMid($Text,$i,1)) & "]"
Next
elseif $flag = 1 then
$String = ""
$ArrayAscii = _StringBetween($Text,"[","]")
for $i = 0 to ubound($ArrayAscii)-1
$Return = $Return & chr($ArrayAscii[$i])
Next
EndIf
return $Return
EndFunc

[/autoit]