Hallo.
Ich habe ein Problem, ich möchte aus 6 verschiedenen TXT- Dateien eine zufällige Zeile auslesen und diese Anzeigen. Bei mir funktieroniert dies aber nicht. Kann mir jemand weiterhelfen?
Danke im vorraus.
C: Random.au3
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Was, Wie, Wo?", 392, 108, 192, 124)
GUISetFont(12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("", 8, 8, 52, 24)
$Label2 = GUICtrlCreateLabel("", 72, 8, 52, 24)
$Label3 = GUICtrlCreateLabel("", 136, 8, 52, 24)
$Label4 = GUICtrlCreateLabel("", 200, 8, 52, 24)
$Label5 = GUICtrlCreateLabel("", 264, 8, 52, 24)
$Label6 = GUICtrlCreateLabel("", 328, 8, 52, 24)
$Button1 = GUICtrlCreateButton("Los", 160, 56, 75, 25)
GUICtrlSetOnEvent($Button1, "Los")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
$Liste1 = "Aktivität1.txt"
$Liste2 = "Aktivität2.txt"
$Liste3 = "Art1.txt"
$Liste4 = "Art2.txt"
$Liste5 = "Ort.txt"
$Liste6 = "Zusatz.txt"
Func Los()
$Random = Random(1, 10)
$Datei1 = FileReadLine($Liste1, $Random)
$Datei2 = FileReadLine($Liste2, $Random)
$Datei3 = FileReadLine($Liste3, $Random)
$Datei4 = FileReadLine($Liste4, $Random)
$Datei5 = FileReadLine($Liste5, $Random)
$Datei6 = FileReadLine($Liste6, $Random)
GUICtrlSetData($Label, $Datei1)
GUICtrlSetData($Labe2, $Datei2)
GUICtrlSetData($Labe3, $Datei3)
GUICtrlSetData($Labe4, $Datei4)
GUICtrlSetData($Labe5, $Datei5)
GUICtrlSetData($Labe6, $Datei6)
EndFunc
Alles anzeigen