For -> Next, brauche Hilfe.

05/29/2013 23:35 Futur94#1
Meine frage ist: Wie kann ich diesen Code abkürtzen mit einer For - Next schleife ?
Code:
$Test1 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 1), $ListView1)
$Test2 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 2), $ListView1)
$Test3 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 3), $ListView1)
$Test4 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 4), $ListView1)
$Test5 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 5), $ListView1)
$Test6 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 6), $ListView1)
$Test7 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 7), $ListView1)
$Test8 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 8), $ListView1)
$Test9 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 9), $ListView1)
$Test10 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 10), $ListView1)
$Test11 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 11), $ListView1)
$Test12 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 12), $ListView1)
$Test13 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 13), $ListView1)
$Test14 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 14), $ListView1)
$Test15 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 15), $ListView1)
$Test16 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 16), $ListView1)
$Test17 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 17), $ListView1)
$Test18 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 18), $ListView1)
$Test19 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 19), $ListView1)
$Test20 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 20), $ListView1)
$Test21 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 21), $ListView1)
$Test22 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 22), $ListView1)
$Test23 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 23), $ListView1)
$Test24 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 24), $ListView1)
$Test25 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 25), $ListView1)
$Test26 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 26), $ListView1)
$Test27 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 27), $ListView1)
$Test28 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 28), $ListView1)
$Test29 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 29), $ListView1)
$Test30 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 30), $ListView1)
$Test31 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 31), $ListView1)
$Test32 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 32), $ListView1)
$Test33 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 33), $ListView1)
$Test34 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 34), $ListView1)
$Test35 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 35), $ListView1)
$Test36 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 36), $ListView1)
$Test37 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 37), $ListView1)
$Test38 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 38), $ListView1)
$Test39 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 39), $ListView1)
$Test40 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 40), $ListView1)
$Test41 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 41), $ListView1)
$Test42 = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', 42), $ListView1)
MFG Futur94 und Danke im vorraus!
05/29/2013 23:53 butter123#2
Dim $test[42]
for $i = 0 to 41
$test[$i] = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', $i), $ListView1)
next
05/30/2013 00:06 Futur94#3
Danke :)

@butter123: Und weißt du noch (oder ein anderer) wie ich das hier:

Code:
		$iListView1 = GUICtrlRead(GUICtrlRead($ListView1))
		If $iListView1 = GUICtrlRead($Test1) Then
			GUICtrlSetData($Input1, '1')
			$File = 1
		ElseIf $iListView1 = GUICtrlRead($Test2) Then
			GUICtrlSetData($Input1, '2')
			$File = 2
		ElseIf $iListView1 = GUICtrlRead($Test3) Then
			GUICtrlSetData($Input1, '3')
			$File = 3
		ElseIf $iListView1 = GUICtrlRead($Test4) Then
			GUICtrlSetData($Input1, '4')
			$File = 4
		ElseIf $iListView1 = GUICtrlRead($Test5) Then
			GUICtrlSetData($Input1, '5')
			$File = 5
		ElseIf $iListView1 = GUICtrlRead($Test6) Then
			GUICtrlSetData($Input1, '6')
			$File = 6
		ElseIf $iListView1 = GUICtrlRead($Test7) Then
			GUICtrlSetData($Input1, '7')
			$File = 7
		ElseIf $iListView1 = GUICtrlRead($Test8) Then
			GUICtrlSetData($Input1, '8')
			$File = 8
                Endif
An das hier Anpassen kann?:

Code:
Dim $Test[43]
for $i = 1 to 42
$Test[$i] = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', $i), $ListView1)
$File = $i
Next
05/30/2013 00:24 YatoDev#4
Indem du das jeweilige array verwendest oder was meinst du ?

achja so nebenbei nice usertitel : c++ coder , autoit etc ^^ tzzz
05/30/2013 00:25 Futur94#5
Nur mit dem Array in AutoIT komme ich überhaubt mal nicht Klar :D
05/30/2013 00:28 lolkop#6
Code:
$iListView1 = GUICtrlRead(GUICtrlRead($ListView1))
For $i=1 To 8
	If $iListView1=GUICtrlRead($Test[$i]) Then
		GUICtrlSetData($Input1, $i)
		$File=$i
		ExitLoop
	EndIf
Next
arrays in autoit funktionieren exakt genauso, wie die aus anderen sprachen, sind nur nicht typen-sicher/abhängig...