Irgendwie funktioniert GUICtrlRead nicht mehr @error wird immer = 0 gesetzt und ich hab keine Ahnung wieso. Hier ist mein Script:
[autoit]#include
$haupt = GUICreate("Titel", @desktopwidth/2, @desktopheight/2)
GUISetState(@sw_show)
$Input = GUICtrlCreateInput("Hier den zu analysierenden Text eingeben", 0,0,@desktopwidth/2-50, @desktopheight/2)
$menu = GUICtrlCreateMenu("Analysieren")
$menu2 = GUICtrlCreateMenuItem("los", $menu)
$but = GUICtrlCreateButton("OK", @desktopwidth/2-20, -1)
Func Analysieren()
$Text = GUICtrlRead($Input)
If @error = 0 Then
MsgBox(0, "error", $input)
EndIf
$Buchstabe = StringSplit($Text, "")
For $i = 1 To $i = 0
MsgBox(0, $i, $Buchstabe[$i])
Next
EndFunc
While 1
$Gui = GUIGetMsg()
Switch $gui
Case $GUI_EVENT_CLOSE
Exit
Case $menu2
Analysieren()
Case $but
analysieren()
EndSwitch
WEnd
Aquaplant
//EDIT: Es funktioniert jetzt. Irgendwie wird immer 0 ausgegeben obwohl es geklappt hat Script sieht jetzt so aus:
#include
$haupt = GUICreate("Titel", @desktopwidth/2, @desktopheight/2)
GUISetState(@sw_show)
$eingabe = GUICtrlCreateInput("Hier den zu analysierenden Text eingeben", 0,0,@desktopwidth/2-50, @desktopheight/2)
$menu = GUICtrlCreateMenu("Analysieren")
$menu2 = GUICtrlCreateMenuItem("los", $menu)
$but = GUICtrlCreateButton("OK", @desktopwidth/2-20, -1)
Func Analysieren()
$Text = GUICtrlRead($eingabe)
MsgBox(0, "", $text)
;~ If @error = 0 Then
;~ MsgBox(0, "error", $eingabe)
;~ EndIf
$Buchstabe = StringSplit($Text, "")
MsgBox(0, "", $Buchstabe[0])
For $i = 1 To $Buchstabe[0]
MsgBox(0, $i, $Buchstabe[$i])
Next
EndFunc
While 1
$Gui = GUIGetMsg()
Switch $gui
Case $GUI_EVENT_CLOSE
Exit
Case $menu2
Analysieren()
Case $but
analysieren()
EndSwitch
WEnd