|
You last visited: Today at 21:43
Advertisement
For -> Next, brauche Hilfe.
Discussion on For -> Next, brauche Hilfe. within the AutoIt forum part of the Coders Den category.
05/29/2013, 23:35
|
#1
|
elite*gold: 0
Join Date: Aug 2011
Posts: 263
Received Thanks: 177
|
For -> Next, brauche Hilfe.
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
|
#2
|
elite*gold: 95
Join Date: May 2011
Posts: 982
Received Thanks: 189
|
Dim $test[42]
for $i = 0 to 41
$test[$i] = GUICtrlCreateListViewItem(FileReadLine(@ScriptDir & '\temp\Übungen', $i), $ListView1)
next
|
|
|
05/30/2013, 00:06
|
#3
|
elite*gold: 0
Join Date: Aug 2011
Posts: 263
Received Thanks: 177
|
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
|
#4
|
elite*gold: 50
Join Date: Sep 2012
Posts: 3,841
Received Thanks: 1,462
|
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
|
#5
|
elite*gold: 0
Join Date: Aug 2011
Posts: 263
Received Thanks: 177
|
Nur mit dem Array in AutoIT komme ich überhaubt mal nicht Klar
|
|
|
05/30/2013, 00:28
|
#6
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
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...
|
|
|
 |
Similar Threads
|
[Brauche Hilfe]Brauche Hilfe beim einfügen der neuen Rüstungen
01/04/2013 - Metin2 Private Server - 3 Replies
Brauche Hilfe!
Hallo epvp.
Ich habe mal ein paar Rüstungen gemoddet und dann wollte ich sie einfügen.
Es hat fast alles geklappt und ich war recht "happy", weil sie für den männlichen Krieger einbandfrei funktioniert haben.
Dann wollt ich gucken wie das bei den anderen Charaktern aussieht.
Ich habe mir die Rüstungen gerufen. Die icons der Rüstungen sind für den Ninja und den Krieger richtig. Bei der Sura und der Schami Rüstung sieht mal aber wieder die icons der Krieger und Ninja rüstung....
|
[Hilfe]Brauche Hilfe kann mir wer beim Tool fixxen helfen
10/12/2010 - Metin2 Private Server - 3 Replies
Hallo E*pvp
Ich brauche drigend Hilfe beim Fixxen
Von dem Server hack Tool
Ich hoffe es ist jemand so nett und
hilft mir
PS: Es ist ein Root Server.
Mfg Sonnylein
|
[HILFE]Brauche hilfe beim FreeBSD Rootserver umbekannte Fehlermeldung.
09/09/2010 - Metin2 Private Server - 8 Replies
Hallo comunity.
So, ich habe ja letztens schonmal was gefragt wegen dem kernel. Dem den rootserver gehört hat den den hoster eingeschreiben, die haben nun einen reinstall gemacht. So bis jetzt klappt alles, so wie es soll außer....das starten
Wenn wir den den server starten möchten, kommt das:
http://www.fotos-hochladen.net/uploads/unbenann11 tuptn6kfg.png
|
Brauche Dringend Hilfe! Bin Metin spieler aber Brauche Hilfe
12/30/2009 - Metin2 Private Server - 0 Replies
Es gehört hier zwar nicht rein , aber ich weiß keine andere Lösung
Ich habe seit einigen Tagen ein Problem...
Microsoft Windows Search Protocol Host funktioniert nicht mehr
Die Anwendung wird Aufgrund eines Problems nicht mehr richtig Ausgeführt.
Ich weiß nicht was das ist und wie ich es loswerde.
|
All times are GMT +1. The time now is 21:43.
|
|