For Schleife oder Array

  • Weiß einer wie ich es lösen kann? Also es nimmt aus Filezilla eine Rar entpackt es und zählt die Bilder. Eine For Schleife sollte
    mit GUICtrlSetData die Labels usw bearbeiten. Aber ich weiß nicht wie es geht.

    [autoit]

    #include <FTPEx.au3>
    #include <Zip.au3>

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;Form1 | Laden
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Profilbilder | LADEN", 301, 40, 192, 122)
    GUISetBkColor(0x99B4D1)
    $Label100 = GUICtrlCreateLabel("Bitte haben sie Geduld, ladet...", 8, 8, 291, 28)
    GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    If Not FileExists(@ScriptDir & "\images") Then
    DirCreate(@ScriptDir & "\images")
    EndIf

    [/autoit][autoit][/autoit][autoit]

    If Not FileExists(@TempDir & "\images") Then
    DirCreate(@TempDir & "\images")
    EndIf

    [/autoit][autoit][/autoit][autoit]

    _FTP_FileGet($FTP_Connect, "Profilbilder.zip", @TempDir & "\images\Profilbilder.zip")
    _Zip_UnzipAll(@TempDir & "\images\Profilbilder.zip", @TempDir & "\images")

    [/autoit][autoit][/autoit][autoit]

    $Bilder = _Zip_Count(@TempDir & "\images\Profilbilder.zip")
    FileDelete(@TempDir & "\images\Profilbilder.zip")

    [/autoit][autoit][/autoit][autoit]

    ;Form2 | Profilbilder P1
    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Profilbilder", 354, 426, 192, 124)
    GUISetBkColor(0x000000)
    $Tab1 = GUICtrlCreateTab(8, 8, 337, 409)
    GUICtrlCreateTabItem("Seite 1")
    $Label1 = GUICtrlCreateLabel("Dateiname:", 16, 32, 154, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Label2 = GUICtrlCreateLabel("Größe:", 16, 200, 76, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Label3 = GUICtrlCreateLabel("Dateiname:", 184, 32, 146, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Label4 = GUICtrlCreateLabel("Größe:", 184, 200, 76, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Label5 = GUICtrlCreateLabel("Dateiname:", 16, 224, 154, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Label6 = GUICtrlCreateLabel("Größe:", 16, 392, 76, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Label7 = GUICtrlCreateLabel("Dateiname:", 184, 224, 154, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Label8 = GUICtrlCreateLabel("Größe:", 192, 392, 76, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Pic1 = GUICtrlCreatePic("", 16, 48, 150, 150)
    $Pic2 = GUICtrlCreatePic("", 184, 48, 150, 150)
    $Pic3 = GUICtrlCreatePic("", 16, 240, 150, 150)
    $Pic4 = GUICtrlCreatePic("", 184, 240, 150, 150)
    $Button1 = GUICtrlCreateButton("Download", 88, 200, 75, 17)
    $Button2 = GUICtrlCreateButton("Download", 256, 200, 75, 17)
    $Button3 = GUICtrlCreateButton("Download", 88, 392, 75, 17)
    $Button4 = GUICtrlCreateButton("Download", 264, 392, 75, 17)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    GUISetState(@SW_HIDE, $Form1)
    GUISetState(@SW_SHOW, $Form2)

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd

    [/autoit]

    Einmal editiert, zuletzt von sezer0012 (28. Juli 2014 um 13:25)

  • Ich hab einfach mal leere Felder generieren lassen (20 "Bilder"). Das funktionierte einbahnfrei.
    Ich hoffe, das war es, was du meintest. Viel Spaß damit.
    (Hab einfach alles mit FTP,... auskommentiert und die labels bunt gemacht (statt guictrlcreatepic nen buntes label))


    Spoiler anzeigen
    [autoit]

    #include <FTPEx.au3>
    #include <Zip.au3>

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;Form1 | Laden
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Profilbilder | LADEN", 301, 40, 192, 122)
    GUISetBkColor(0x99B4D1)
    $Label100 = GUICtrlCreateLabel("Bitte haben sie Geduld, ladet...", 8, 8, 291, 28)
    GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    If Not FileExists(@ScriptDir & "\images") Then
    DirCreate(@ScriptDir & "\images")
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    If Not FileExists(@TempDir & "\images") Then
    DirCreate(@TempDir & "\images")
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    _FTP_FileGet($FTP_Connect, "Profilbilder.zip", @TempDir & "\images\Profilbilder.zip")
    _Zip_UnzipAll(@TempDir & "\images\Profilbilder.zip", @TempDir & "\images")

    [/autoit] [autoit][/autoit] [autoit]

    $Bilder = _Zip_Count(@TempDir & "\images\Profilbilder.zip")
    FileDelete(@TempDir & "\images\Profilbilder.zip")
    ;Form2 | Profilbilder P1
    GUISetState(@SW_HIDE, $Form1)
    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Profilbilder", 354, 426, 192, 124)
    global $Controls[$Bilder][4]
    GUISetBkColor(0x000000)
    $Tab1 = GUICtrlCreateTab(8, 8, 337, 409)
    for $i=0 to $Bilder step 2
    if $i=$Bilder then
    ExitLoop 1
    endif
    GUICtrlCreateTabItem("Seite "&$i/2+1)
    for $j=$i to $i+1 step 1
    if $j=$Bilder then
    ExitLoop 2
    endif
    $Controls[$j][0] = GUICtrlCreateLabel("Dateiname:", 16, 32+(174*($j-$i)), 154,34)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Controls[$j][1] = GUICtrlCreateLabel("Größe:", 16, 70+(174*($j-$i)), 76, 17)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Controls[$j][2] = GUICtrlCreatePic("",175,32+(174*($j-$i)),150,150)
    $Controls[$j][3] = GUICtrlCreateButton("Download", 16,90+(174*($j-$i)), 75, 17)
    next
    next
    #EndRegion ### END Koda GUI section ###
    GUISetState(@SW_SHOW, $Form2)

    [/autoit] [autoit][/autoit] [autoit]

    While sleep(100)
    WEnd

    [/autoit]
  • Damit ich es auch verstehe, was heißen die Zahlen am Ende: 32+(174* USW also + und Mal aber wieso

    [autoit]

    $Controls[$j][0] = GUICtrlCreateLabel("Dateiname:", 16, 32+(174*($j-$i)), 154,34)

    [/autoit]
  • Ich habe noch einen Fehler: Ich habe einen Ordner erstellt, Bilder sind drinnen, aber es zeigt einfach kein Bild an. (Die Bilder heißen 0.jpg, 1.jpg USW.)

    [autoit]

    GUICtrlSetData($Pic[$i], @TempDir & "\images" & $i & ".jpg")

    [/autoit]

    Bei "\images" wird das \ am ende nicht angezeigt: Echtform "\images\"

  • Gelöst


    Dann setz noch bitte den Thread-Präfix auf "gelöst" (1. Post bearbeiten).

    There's a joke that C has the speed and efficieny of assembly language combined with readability of....assembly language. In other words, it's just a glorified assembly language. - Teh Interwebz

    C makes it easy to shoot yourself in the foot; C++ makes it harder, but when you do, you blow off your whole leg. - Bjarne Stroustrup
    Genie zu sein, bedeutet für mich, alles zu tun, was ich will. - Klaus Kinski