Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 21:43

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



For -> Next, brauche Hilfe.

Discussion on For -> Next, brauche Hilfe. within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1

 
Futur94's Avatar
 
elite*gold: 0
Join Date: Aug 2011
Posts: 263
Received Thanks: 177
Question 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!
Futur94 is offline  
Thanks
1 User
Old 05/29/2013, 23:53   #2
 
butter123's Avatar
 
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
butter123 is offline  
Thanks
1 User
Old 05/30/2013, 00:06   #3

 
Futur94's Avatar
 
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
Futur94 is offline  
Old 05/30/2013, 00:24   #4
 
YatoDev's Avatar
 
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
YatoDev is offline  
Old 05/30/2013, 00:25   #5

 
Futur94's Avatar
 
elite*gold: 0
Join Date: Aug 2011
Posts: 263
Received Thanks: 177
Nur mit dem Array in AutoIT komme ich überhaubt mal nicht Klar
Futur94 is offline  
Old 05/30/2013, 00:28   #6
 
lolkop's Avatar
 
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...
lolkop is offline  
Thanks
1 User
Reply


Similar Threads 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.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.