Spoiler anzeigen
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>
#include <string.au3>
#include <Array.au3>
$Form2 = GUICreate("Form2", 188, 95, 210, 142)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 185, 89)
GUICtrlSetData(-1, "foo" & @CRLF & "bar")
GUISetState(@SW_SHOW)
$Auswerten1 = GUICtrlRead($Edit1)
MsgBox(0, "", $Auswerten1)
$Auswerten2 = StringSplit($Auswerten1, @CRLF)
For $i = 1 To UBound($Auswerten2) - 1 Step 2
$Erg = $Auswerten2[$i]
MsgBox(0, "", $Erg)
Next
$Erg1 = StringSplit($Auswerten1, @CRLF)
For $i = 0 To 99
If Not Mod($i, 2) Then
$Erg1[$i] = _StringRepeat(Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)), 18)
$Erg1[$i] = Random(1, 31, 1) & "." & Random(1, 12, 1) & "." & Random(1960, 2000, 1); Pseudo-Datum ohne Prüfung auf Existenz z.B.31.02.2010 durchaus möglich
Else
$Erg1[$i] = "Schrott"
$Erg1[$i] = "Schrott"
EndIf
Next
_ArrayDisplay($Erg1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Bei mir kommt jedoch nichts dabei raus!