Help

manny89

[autoit]

#include <GUIConstants.au3>

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

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 221, 94, 193, 115)
$Wort = GUICtrlCreateButton("Wort", 72, 48, 89, 25, 0)
$Passwort = GUICtrlCreateLabel("Passwort", 40, 8, 80, 17)
$file = FileOpen("wörter.txt", 2)
FileWrite($file, "Kartoffelvollerntemaschiene")
FileWrite($file, "Oberpostdirektionsbriefmarkenstempelautomatenmechaniker")
FileWrite($file, "Allesvomtischschmeißer")
FileWrite($file, "Kugelschreiberzusammenbauanleitungsservicenummer")
FileWrite($file, "Fussballweltmeisterschaftsendrundenteilnehmerin")
FileWrite($file, "Desoxirebunokleinsäure")
FileWrite($file, "Universitätsbibliotheken")
FileWrite($file, "Überschwemmungskatastrophen")
FileWrite($file, "Abhängigkeitsverhältnis")
FileClose($file)
$file = FileOpen("wörter.txt", 0)
$read = FileRead($file)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Wort
GUICtrlSetData($Passwort, $read)
EndSwitch
WEnd

[/autoit]

jetzt will ich das alle wörter nach ein ander im label erscheinen wenn ich den button klicken
mfg manny89

blubbstar

[autoit]

#include <GUIConstants.au3>

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

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 221, 94, 193, 115)
$Wort = GUICtrlCreateButton("Wort", 72, 48, 89, 25, 0)
$Passwort = GUICtrlCreateLabel("Passwort", 40, 8, 80, 17)
$file = FileOpen("wörter.txt", 2)
FileWrite($file, "Willkommen!")
FileClose($file)
$file = FileOpen("wörter.txt", 0)
$read = FileRead($file)
FileClose($file)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Wort
GUICtrlSetData($Passwort, $read)
EndSwitch
WEnd

[/autoit]

stormy

Hier erstmal der Code um das Wort aus einer Datei auszulesen:

Spoiler anzeigen

[autoit]

FileReadLine ( filehandle or "filename" [, line] )
$dasbestimmteWort = FileReadLine("textdatei.txt",1) ;musst noch Pfad, Zeile anpassen(

[/autoit]

Hier um ein Button oder Label das schon existiert umzuändern:

Spoiler anzeigen

[autoit]

GUICtrlSetData ( controlID, data [, default] )
GUICtrlSetData ($Wort, $dasbestimmteWort)

[/autoit]

So, nur noch schnell mit deinem Skript verwursteln

Gruß Stormy

Edit: Mit Skript verwursteln kann ich mir sparen, war schon jmd schneller

blubbstar

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 221, 94, 193, 115)
$Wort = GUICtrlCreateButton("Wort", 72, 48, 89, 25, 0)
$Passwort = GUICtrlCreateLabel("Passwort", 10, 8, 210, 17)
$file = FileOpen("wörter.txt", 2)
$zeile = 1
FileWriteLine($file, "Kartoffelvollerntemaschiene" & @crlf)
FileWriteLine($file, "Oberpostdirektionsbriefmarkenstempelautomatenmechaniker" & @crlf)
FileWriteLine($file, "Allesvomtischschmeißer" & @crlf)
FileWriteLine($file, "Kugelschreiberzusammenbauanleitungsservicenummer" & @crlf)
FileWriteLine($file, "Fussballweltmeisterschaftsendrundenteilnehmerin" & @crlf)
FileWriteLine($file, "Desoxirebunokleinsäure" & @crlf)
FileWriteLine($file, "Universitätsbibliotheken" & @crlf)
FileWriteLine($file, "Überschwemmungskatastrophen" & @crlf)
FileWriteLine($file, "Abhängigkeitsverhältnis" & @crlf)
FileClose($file)
$file = FileOpen("wörter.txt", 0)
$read = FileRead($file)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Wort
$read = FileReadline($file, $zeile)
GUICtrlSetData($Passwort, $read)
$zeile += 1
EndSwitch
WEnd

[/autoit]

Fast2

Falls das noch gebraucht wird, auch mal meine Fassung(ich seh erst grad das du was in die TXT schreiben willst, aber das kann man ja noch reinwurschteln(ich muss jetzt ins Bett, und habe keine Zeit mehr ))

Spoiler anzeigen

[autoit]

#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include<ButtonConstants.au3>
Global $Pfad_zur_Datei = "Test.txt"
$Filehandle = FileOpen($Pfad_zur_Datei, 0);Brauch ich zwar nicht, ist aber schöner
$GH = GUICreate("Test", 280, 90); GH = GUI-Handle
$EI = GUICtrlCreateEdit("Bitte den Button betätigen, um das Wort einzulesen", 100, 15, 150, 65, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_MULTILINE, $ES_READONLY));EI = Edit-ID
$BI = GUICtrlCreateButton("Wort einlesen", 5, 30, -1, -1, BitOR($WS_TABSTOP, $BS_NOTIFY));Button-ID
GUISetState()
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $BI
GUICtrlSetData($EI, _TextEinlesen())
Case $GUI_Event_Close
FileClose($Filehandle)
Exit
EndSwitch
WEnd
Func _TextEinlesen()
$Text = FileRead($Filehandle);Der Text
Return $Text
EndFunc

[/autoit]

Es gibt aber noch einen kleinen Bug: Wenn man ganz oft auf "Wort ändern" klickt dann steht irgendwann nix mehr im Edit, egal wie oft man draufklickt. Fügt man der TXT nun etwas hinzu, erscheint nur das hinzugefügte.