Rückgabewert For-Schleife

Jakub1996

Hallo zusammen,

ich bin noch relativ neu im Thema, vielleicht habe ich auch einfach die falsche Herangehensweise. Ich suche nach einer Möglichkeit, im Falle eines Exitloops in einer For-Schleife, einen bestimmten Rückgabewert zu erhalten, in diesem Beispiel A oder B. Beim Abbruch der Schleife soll der Wert B ausgegeben werden und dementsprechend die nachfolgende Prozedur ausgeführt werden.

Schön gedacht - blöd gemacht. Klappt nicht. Also Suche ich nach einer Möglichkeit, eine nachfolgende If-Schleife zu realisieren, die bei Abbruch der Schleife OptionX wählt und bei "normalem" durchlauf der Schleife OptionY - Kurz gesagt: Ich brauche einen Rückgabewert bei Abbruch der Schleife.

Code

                $k = 0
               For $z = 0 to _GUICtrlListView_GetItemCount($iListView)-1    
                  $aColumn1= _GUICtrlListView_GetItemText($iListView, $k)
                  $aColumn2= _GUICtrlListView_GetItemText($iListView, $k, 1)
                 

                  $DateDiffFrom1 = _DateDiff("n", $riDateFrom & " " & $riHourB & ":" & $riMinuteB & ":00", $aColumn1)
                  $DateDiffTo1 = _DateDiff("n", $riDateTo & " " & $riHourE & ":" & $riMinuteE & ":00", $aColumn2)
                  $DateDiffFrom2 = _DateDiff("n", $riDateFrom & " " & $riHourB & ":" & $riMinuteB & ":00", $aColumn2)
                  $DateDiffTo2 = _DateDiff("n", $riDateTo & " " & $riHourE & ":" & $riMinuteE & ":00", $aColumn1)

                  If $DateDiffFrom1 >=0 And $DateDiffTo2 >=0 Then ;(1) OK
                     $return = "A"
                  ElseIf $DateDiffFrom1 >=0 And $DateDiffTo2 <=0 Then ;(2)
                     $return = "B"
                     Exitloop
                  ElseIf $DateDiffFrom2 >=0 And $DateDiffTo1 <=0 Then ;(3)
                     $return = "B"
                     Exitloop
                  ElseIf $DateDiffFrom2 <=0 And $DateDiffTo1 <=0 Then ;(4) OK
                     $return = "A"
                     MsgBox(0,"", $global)
                  ElseIf $DateDiffFrom1 >=0 And $DateDiffTo1 <=0 Then ;(5)
                     $return = "B"
                     Exitloop
                  ElseIf $DateDiffFrom1 >=0 And $DateDiffTo1 >=0 Then ;(6)5
                     $return = "B"
                     Exitloop
                  Else
                  EndIf
                  $k+=1
               Next

If $return = "A" then
...
ElseIf $return = "B" then
...
EndIf

Alles anzeigen

**alpines**

Zitat von Jakub1996

If-Schleife

Diesen Teufelsbegriff müssen wir dir dringend aus den Fingern treiben. If-Schleifen gibt es nicht, es sind If-Verzweigungen!

Deine Idee ist per se nicht schlecht, du kannst es so lösen indem du einfach in eine Variable schreibst und nachträglich abfragst was drin steht.

Allerdings sehen deine If-Abfragen sehr irritierend aus und dein Code ist scheußlich formatiert.

Zitat von Jakub1996

Schön gedacht - blöd gemacht. Klappt nicht.

Ja, was klappt denn nicht? Schmeißt der Code Fehler? Springt er nicht raus? Lösen die If-Abfragen nicht aus?

Du lieferst uns hier nur ein Code-Snippet der nicht lauffähig ist, da musst du uns schon mehr Informationen bereitstellen wenn du möchtest, dass wir dir helfen.

Jakub1996

Hallo alpines,

danke für deinen Hinweis. Wie ich bereits erwähnt habe, möchte ich einfach nur den Rückgabewert aus der For-Schleife erhalten - Also entweder "A" oder "B", den ich in Zeile 34 dann abfrage.

Obwohl $return definitiv in der Schleife auf A oder B gesetzt wird (überprüft mittels Msgbox innerhalb der Schleife), ist nach dem Beenden der Schleife dieser Wert nicht übertragen worden.

Die If-Verzweigung ab Zeile 34 löst also nicht aus, bzw würde auslösen, sofern ich sie umschreibe in..

If $return = "0" then

..

**alpines**

Das Skript stürzt nicht ab?

Zitat von Jakub1996

Die If-Verzweigung ab Zeile 34 löst also nicht aus, bzw würde auslösen, sofern ich sie umschreibe in..

Das spricht doch dafür, dass deine If-Abfragen in der For-Schleife nicht auslösen.

Lass dir doch mal die Werte von datedifffrom/to ausgeben und vergleich per Hand was da rauskommt.

Jakub1996

Nein, das Skript stürzt nicht ab. Es gibt nur einen falschen Wiedergabewert "0".

Die If-Abfrage löst aus.. Habe ich einzeln noch innerhalb der For-Schleife abgefragt.

Nur bei Abfrage außerhalb der Schleife, ist der Wiedergabewert = 0

Zitat

Obwohl $return definitiv in der Schleife auf A oder B gesetzt wird (überprüft mittels Msgbox innerhalb der Schleife)

Bzw, schreibe ich das Skript, wie folgt um, ergibt sich eine Ausgabe der jeweiligen Werte "A" oder "B"..

Code

                $k = 0
               For $z = 0 to _GUICtrlListView_GetItemCount($iListView)-1    
                  $aColumn1= _GUICtrlListView_GetItemText($iListView, $k)
                  $aColumn2= _GUICtrlListView_GetItemText($iListView, $k, 1)
                 

                  $DateDiffFrom1 = _DateDiff("n", $riDateFrom & " " & $riHourB & ":" & $riMinuteB & ":00", $aColumn1)
                  $DateDiffTo1 = _DateDiff("n", $riDateTo & " " & $riHourE & ":" & $riMinuteE & ":00", $aColumn2)
                  $DateDiffFrom2 = _DateDiff("n", $riDateFrom & " " & $riHourB & ":" & $riMinuteB & ":00", $aColumn2)
                  $DateDiffTo2 = _DateDiff("n", $riDateTo & " " & $riHourE & ":" & $riMinuteE & ":00", $aColumn1)

                  If $DateDiffFrom1 >=0 And $DateDiffTo2 >=0 Then ;(1) OK
                     MsgBox(0,"","A")
                  ElseIf $DateDiffFrom1 >=0 And $DateDiffTo2 <=0 Then ;(2)
                     MsgBox(0,"","B")
                     Exitloop
                  ElseIf $DateDiffFrom2 >=0 And $DateDiffTo1 <=0 Then ;(3)
                     MsgBox(0,"","B")
                     Exitloop
                  ElseIf $DateDiffFrom2 <=0 And $DateDiffTo1 <=0 Then ;(4) OK
                     MsgBox(0,"","A")
                  ElseIf $DateDiffFrom1 >=0 And $DateDiffTo1 <=0 Then ;(5)
                     MsgBox(0,"","B")
                     Exitloop
                  ElseIf $DateDiffFrom1 >=0 And $DateDiffTo1 >=0 Then ;(6)5
                     MsgBox(0,"","B")
                     Exitloop
                  Else
                  EndIf
                  $k+=1
               Next

Alles anzeigen

**alpines**

Dann musst du uns schon mehr vom Code liefern oder wenigstens das Problem auf ein kleines Script auslagern damit wir uns das näher anschauen können.

In dem von dir geposteten Code ist keine Fehler.

Jakub1996

Hi, sorry für die Verwirrung. Hab mal weiter rumprobiert. Hier der neue Code. Meine Idee war, dass der Rückgabewert in $global aus der For-Schleife gespeichert wird. Blöderweise kommt an der Stelle " If $global = "OK" then" die Fehlermeldung, dass die Variable $global nicht deklariert sei...

An sich ist es nicht anderes als das hier.. Nur, dass es in reduzierter Form funktioniert, im Skript unten aus irgendwelchen Gründen nicht..

Code

$confirmBooking = MsgBox(3, "", "Hallo")


If $confirmBooking = $IDYES Then
For $z = 0 to 100 -1
If $z=30 then
$global = "30"
Else
EndIf
Next
Else
EndIf

If $global = "30" then
MsgBox(0,"", $global)
Else
MsgBox(0, "", "Klappt nicht")
EndIf

Alles anzeigen

Code

         Case $bBook
            If GUICtrlRead($iNameBooking) = "" then
               MsgBox(0, "Error", "Add your name.")
            Else
               $riName = GuiCtrlRead($iName)
               $riDateFrom = GUICtrlRead($iDateFrom)
               $riHourB = GUICtrlRead($iHourB)
               $riMinuteB = GUICtrlRead($iMinuteB)
               $riDateTo = GUICtrlRead($iDateTo)
               $riHourE = GUICtrlRead($iHourE)
               $riMinuteE = GUICtrlRead($iMinuteE)
               $riNameBooking = GUICtrlRead($iNameBooking)

               $confirmBooking = MsgBox(3, "Confirm", "Book " & $riNameInstrument & @CRLF & "from " & $riDateFrom & ", " & $riHourB & ":" & $riMinuteB & @CRLF & "to " & $riDateTo & ", " & $riHourE & ":" & $riMinuteE & " ?")


               If $confirmBooking = $IDYES Then
                  $iDateCalc = _DateDiff("n", $riDateFrom & " " & $riHourB & ":" & $riMinuteB & ":00", $riDateTo & " " & $riHourE & ":" & $riMinuteE & ":00")
                  If $iDateCalc <0 then
                     MsgBox(0, "Error", "Please check your booking entry.")
                  ElseIf $iDateCalc = 0 then
                     MsgBox(0, "Error", "Please check your booking entry.")
                  ElseIf _DateDiff("n", _NowCalc(), $riDateTo & " " & $riHourE & ":" & $riMinuteE & ":00") <0 then
                     MsgBox(0, "Error", "Your booking lies in the past. Check your entry.")
                  Else
                     $k = 0
                     For $z = 0 to _GUICtrlListView_GetItemCount($iListViewBooking)-1
                        $aColumn1= _GUICtrlListView_GetItemText($iListViewBooking, $k)
                        $aColumn2= _GUICtrlListView_GetItemText($iListViewBooking, $k, 1)

                        $DateDiffFrom1 = _DateDiff("n", $riDateFrom & " " & $riHourB & ":" & $riMinuteB & ":00", $aColumn1)
                        $DateDiffTo1 = _DateDiff("n", $riDateTo & " " & $riHourE & ":" & $riMinuteE & ":00", $aColumn2)
                        $DateDiffFrom2 = _DateDiff("n", $riDateFrom & " " & $riHourB & ":" & $riMinuteB & ":00", $aColumn2)e
                        $DateDiffTo2 = _DateDiff("n", $riDateTo & " " & $riHourE & ":" & $riMinuteE & ":00", $aColumn1)
                        If $DateDiffFrom1 >=0 And $DateDiffTo2 >=0 Then ;(1) OK
                           $global = "OK"
                        ElseIf $DateDiffFrom1 >=0 And $DateDiffTo2 <=0 Then ;(2)
                           $global = "Error"
                           Exitloop
                        ElseIf $DateDiffFrom2 >=0 And $DateDiffTo1 <=0 Then ;(3)
                           $global = "ERROR"
                           Exitloop
                        ElseIf $DateDiffFrom2 <=0 And $DateDiffTo1 <=0 Then ;(4) OK
                           $global = "OK"
                        ElseIf $DateDiffFrom1 >=0 And $DateDiffTo1 <=0 Then ;(5)
                           $global = "ERROR"
                           Exitloop
                        ElseIf $DateDiffFrom1 >=0 And $DateDiffTo1 >=0 Then ;(6)5
                           $global = "ERROR"
                           Exitloop
                        Else
                        EndIf
                        $k+=1
                     Next
                  EndIf
               EndIf

               If $global = "OK" then
                  $Bookingfile = FileOpen("documentation\Booking\" & $riNameInstrument  & ".txt", 1)
                  FileWrite($Bookingfile, @CRLF & $riDateFrom & " " & $riHourB & ":" & $riMinuteB & "|" & $riDateTo & " " & $riHourE & ":" & $riMinuteE & "|" & $riNameBooking)
                  FileClose($Bookingfile)

                  _GUICtrlListView_DeleteAllItems($iListViewBooking)
                  _GUICtrlListView_DeleteAllItems($iListViewBooking2)
                  For $z = 2 to 100 -1
                     $LineBooking = FileReadline($idataBooking, $z)
                     $sSeperator = "|"
                     $SubItems = StringSplit($LineBooking, $sSeperator)
                     If $LineBooking = "" Then
                     Else
                        $iDateCalc = _DateDiff("n", _NowCalc(),$SubItems[2])
                        If $iDateCalc >= 0 Then
                           $NewBooking = _GUICtrlListView_AddItem($iListViewBooking, $SubItems[1])
                           For $n = 2 to $SubItems[0]
                              _GUICtrlListView_AddSubItem($iListViewBooking, $NewBooking, $SubItems[$n], $n - 1)
                           Next
                        Else
                           $NewBooking = _GUICtrlListView_AddItem($iListViewBooking2, $SubItems[1])
                           For $n = 2 to $SubItems[0]
                              _GUICtrlListView_AddSubItem($iListViewBooking2, $NewBooking, $SubItems[$n], $n - 1)
                           Next
                        EndIf
                     EndIf
                  Next
               Else
                  MsgBox(0, "Error", "Check your entry.")
               EndIf
            EndIf
         EndSwitch
      WEnd

Alles anzeigen

**alpines**

Zitat von Jakub1996

If $global = "OK" then" die Fehlermeldung, dass die Variable $global nicht deklariert sei...

Du erstellst die Variable auch erst in den If-Zweigen, da sollte es nicht überraschen, dass er rummeckert, dass die Variable nicht deklariert sei, wenn die Schleife durchläuft ohne einmal $global gesetzt zu haben.

Das kriegst du alleine schon deswegen hin wenn du bei der MsgBox einfach auf 'No' klickst.