Buchstaben in ASCII umwandeln

FunH@cker

Hi ho :
also ich will ma ein Generator bauen der den Name in eine Asci nummer serlegt , also input1 = dein Name
input2 = deine nummer
sodas man den namen in eine nummer umwandeln kann und umgekert
habs mir so gedacht :

Spoiler anzeigen

[autoit]

#include

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 162, 108, 193, 125)
$Button1 = GUICtrlCreateButton("Erzeugen", 45, 75, 75, 25, 0)
$Input1 = GUICtrlCreateInput("Dein Namen :", 8, 8, 145, 21)
$Input2 = GUICtrlCreateInput("In Asci :", 8, 40, 145, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

meine Probleme sind :
1: ich hab kein Plan wie ich das realiesieren kann also habt ihr vorschläge ?
die asci zahlen und nummer hab ich in eine ini siht so aus :

Spoiler anzeigen

Code

[Keys]
! = 33
" = 34
# = 35
$ = 36
% = 37
& = 38
' = 39
( = 40
) = 41
* = 42
+ = 43
, = 44
- = 45
. = 46
/ = 47
0 = 48
1 = 49
2 = 50
3 = 51
4 = 52
5 = 53
6 = 54
7 = 55
8 = 56
9 = 57
: = 58
; = 59
< = 60
= = 61
> = 62
? = 63
@ = 64
A = 65
B = 66
C = 67
D = 68
E = 69
F = 70
G = 71
H = 72
I = 73
J = 74
K = 75
L = 76
M = 77
N = 78
O = 79
P = 80
Q = 81
R = 82
S = 83
T = 84
U = 85
V = 86
W = 87
X = 88
Y = 89
Z = 90
[ = 91
\ = 92
] = 93
^ = 94
_ = 95
` = 96
a = 97
b = 98
c = 99
d = 100
e = 101
f = 102
g = 103
h = 104
i = 105
j = 106
k = 107
l = 108
m = 109
n = 110
o = 111
p = 112
q = 113
r = 114
s = 115
t = 116
u = 117
v = 118
w = 119
x = 120
y = 121
z = 122
{ = 123
| = 124
} = 125
~ = 126

Alles anzeigen

**autoBert**

Hallo FunH@cker,

schau dir doch in der Hilfe die Funktionen asc und chr an,

mfg (Auto)Bert

FunH@cker

ui wusste nich was autoit alles kann

**Oscar**

StringToASCIIArray und StringFromASCIIArray gibt es da auch noch.

FunH@cker

Hi ho
bis jetz zeigt er nur den 1rst buchstaben/Zahl an und sendet in als Asci
aber wie soll ich es hin bekommen das er den Ganzen Namen in Asci anzeigt am besten (um es besser lesen zu können so) :
name
110-97-109-101
mein skript sieht grad so aus :

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 162, 108, 193, 125)
$Button1 = GUICtrlCreateButton("Erzeugen", 45, 75, 75, 25, 0)
$Input1 = GUICtrlCreateInput("Dein Namen :", 8, 8, 145, 21)
$Input2 = GUICtrlCreateInput("text", 8, 40, 145, 21)
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
$read = GUiCtrlRead($Input1)
$ad = Asc($read)
GUICtrlSetData($Input2,$ad)
EndSwitch
WEnd

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

ich weis muss noch viel gemacht werden

**Oscar**

Mit StringToASCIIArray bekommst Du ein Array mit den ASCII-Werten der Buchstaben.
Beispiel:

Spoiler anzeigen

[autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 162, 108, 193, 125)
$Button1 = GUICtrlCreateButton("Erzeugen", 45, 75, 75, 25, 0)
$Input1 = GUICtrlCreateInput("Dein Name:", 8, 8, 145, 21)
$Input2 = GUICtrlCreateInput("", 8, 40, 145, 21)
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
$aRead = StringToASCIIArray(GUICtrlRead($Input1))
For $i = 0 To UBound($aRead) - 1
GUICtrlSetData($Input2, Chr($aRead[$i]), 1)
Sleep(200)
Next
EndSwitch
WEnd

[/autoit]

seTTs

Aus irgendeinem Grund gibt es bei mir die Funktion StringToASCIIArray nicht.
In der Hilfe steht sie beschrieben, in Scite ist ist unbekannt und wird als undefined function wiedergegeben.
Wahrscheinlich eine zu alte AutoIT Version.

Hier auch das Script ohne StringToASCIIArray + deine Trennung " - "

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Include <string.au3>

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

Local $ad

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 162, 108, 193, 125)
$Button1 = GUICtrlCreateButton("Erzeugen", 45, 75, 75, 25, 0)
$Input1 = GUICtrlCreateInput("Dein Namen :", 8, 8, 145, 21)
$Input2 = GUICtrlCreateInput("text", 8, 40, 145, 21)
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
GUICtrlSetData($Input2, "")
$read = StringSplit(GUiCtrlRead($Input1), "")
For $i = 1 To $read[0]
$ad = $ad&Asc($read[$i])&" - "
Next
$ad = StringTrimRight($ad, 3)
GUICtrlSetData($Input2,$ad)
$ad = ""
EndSwitch
WEnd

[/autoit]

**Oscar**

Zitat von seTTs

Wahrscheinlich eine zu alte AutoIT Version.

Warum updatest Du dann nicht?
Die neuen AutoIt-Versionen besitzen mehr Funktionen und weniger Fehler.

FunH@cker

soopie jetz weis ich zumindest wie es ohne StringToASCIIArray mache

FunH@cker

was ist eigenlich hir falsch , in der Hilfe funzt es ja auch

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <string.au3>
#include <Array.au3>

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

Local $ad

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 162, 108, 193, 125)
$Button1 = GUICtrlCreateButton("Txt in Asci", 25, 75, 57, 25, 0)
$Button2 = GUICtrlCreateButton("Asci in Txt", 85, 75, 57, 25, 0)
$Input1 = GUICtrlCreateInput("Dein Namen :", 8, 8, 145, 21)
$Input2 = GUICtrlCreateInput("text", 8, 40, 145, 21)
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
GUICtrlSetData($Input2, "")
$read = StringSplit(GUICtrlRead($Input1), "")
For $i = 1 To $read[0]
$ad = String($ad) & Asc($read[$i]) & " - "
Next
$ad = StringTrimRight(String($ad), 3)
GUICtrlSetData($Input2, $ad)
$ad = ""
;---------------------------------------------------------------------------------
;------------------------------------------------------------------------------
case $Button2

Local $s = StringFromASCIIArray(GUICtrlRead($Input2),0) ;Fehler !?
GUICtrlSetData($Input1, $s)
$s = ""
;-----------------------------------------------------------------------------
;----------------------------------------------------------------------------------
EndSwitch
WEnd

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

Micha_he

Ich habe Dein Script jetzt nicht getestet, aber die Funktion heißt "StringFromASCIIArray()" !

Als Eingabe nutzt Du aber GUICtrlRead(), welche einen String zurückgibt und kein ARRAY.

FunH@cker

es gibt ja _ArrayToString geht das auch anders rum oder gibt es eine andere möglichkeit mein problem zu lösen ?

**Oscar**

StringSplit macht aus einem String ein Array.

FunH@cker

habs jetz mit Stringsplit versucht jetz kommt zumindest ein zeichen leider fehlt da wohl was das das in normalen Bichstaben/Zahlen umwandelt ich weis aber nicht was oder hab ich da was fasch gemacht ?

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <string.au3>
#include <Array.au3>

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

Local $ad

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 162, 108, 193, 125)
$Button1 = GUICtrlCreateButton("Txt in Asci", 25, 75, 57, 25, 0)
$Button2 = GUICtrlCreateButton("Asci in Txt", 85, 75, 57, 25, 0)
$Input1 = GUICtrlCreateInput("Dein Namen :", 8, 8, 145, 21)
$Input2 = GUICtrlCreateInput("text", 8, 40, 145, 21)
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
GUICtrlSetData($Input2, "")
$read = StringSplit(GUICtrlRead($Input1), "")
For $i = 1 To $read[0]
$ad = String($ad) & Asc($read[$i]) & " - "
Next
$ad = StringTrimRight(String($ad), 3)
GUICtrlSetData($Input2, $ad)
$ad = ""

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

case $Button2

$Split = StringSplit(GUICtrlRead($Input2),0)

Local $s = StringFromASCIIArray($Split)
GUICtrlSetData($Input1,($s),0)
$s = ""

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

EndSwitch
WEnd

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

Micha_he

So geht's:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <string.au3>
#include <Array.au3>

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

Global $ad ; "Lokal" gibt es nur in Funktionen

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 162, 108, 193, 125)
$Button1 = GUICtrlCreateButton("Txt in Asci", 25, 75, 57, 25, 0)
$Button2 = GUICtrlCreateButton("Asci in Txt", 85, 75, 57, 25, 0)
$Input1 = GUICtrlCreateInput("Dein Namen :", 8, 8, 145, 21)
$Input2 = GUICtrlCreateInput("text", 8, 40, 145, 21)
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
;GUICtrlSetData($Input2, "") ; unnötig wird sowieso gleich gefüllt
$read = StringSplit(GUICtrlRead($Input1), "")
For $i = 1 To $read[0]
$ad &= Asc($read[$i]) & " - "
Next
$ad = StringTrimRight(String($ad), 3)
GUICtrlSetData($Input2, $ad)
$ad = ""

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

Case $Button2
$Split = StringSplit(GUICtrlRead($Input2)," - ",1) ; Trennen muss am kompletten Zeichen " - " erfolgen
$s = StringFromASCIIArray($Split,1) ; Array muss nach StringSplit bei 1 starten
GUICtrlSetData($Input1,$s)
$s = ""

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

EndSwitch
WEnd

[/autoit]