Funktion script Befehl box msgbox VBS vbYesNo

VBS: Goto

Von: , Frage gestellt am Sa, 11. Okt 2008

Hallo,

in einem VBS Script habe ich eine MsgBox und man soll, wenn man auf Nein klickt, wieder zurück an den Anfang kommen. Wenn ich das Script starte kommt die Fehlermeldung Zeile8: Anweisung erwartet. Das ist die Zeile, inder der GOTO Befehl steht

Das script sieht dann zum Beispiel so aus:

-----------------------------------


FRAGE:

antwort=MsgBox ("Hallo, gehts dir gut?", vbYesNo + vbQuestion, "wie gehts")
If antwort = vbYes then
msgbox ("Das ist gut."),,("ok")
end if
goto end

If antwort = vbNo then
msgbox ("Schade."),,("aha")
goto FARGE
end if

end

----------------------------------------

Kennt VBs das GOTO nicht, oder gibt es da noch einen anderen Befehl.
Ich habe schon mal von Do..Loop gehört.

Ich bin um jede Antwort dankbar.


Pascal

2 Antworten zu dieser Frage

1. Antwort von nach 33 Minuten 0 hilfreich

   Re: VBS: Goto

   Hallo, in einem VBS Script habe ich eine MsgBox und man soll, wenn
   man auf Nein klickt, wieder zurück an den Anfang kommen. Wenn
   ich das Script starte kommt die Fehlermeldung Zeile8:
   Anweisung erwartet. Das ist die Zeile, inder der
   GOTO Befehl steht
   
   Das script sieht dann zum Beispiel so aus:
   
   -----------------------------------
   
   
   FRAGE:
   
   antwort=MsgBox ("Hallo, gehts dir gut?", vbYesNo + vbQuestion,
   "wie gehts")
   If antwort = vbYes then
   msgbox ("Das ist gut."),,("ok")
   end if
   goto end
   End ist eine Anweisung, Goto End wird nicht funktionieren, da fehlt die Sprungmarke. If antwort = vbNo then
   msgbox ("Schade."),,("aha")
   goto FARGE
   Tippfehler, Buchstabendreher, Die Sprungmarke heißt Frage, der Sprung soll nach 'Farge' erfolgen.
   
   Aber hier her kommt das Programm nie, wenn das erste Goto funktioniert. end if
   
   end
   
   ----------------------------------------
   
   Kennt VBs das GOTO nicht, oder gibt es da noch einen anderen
   Befehl.
   Ich habe schon mal von Do..Loop gehört.
   Ja, richtig. :-) Wenn es möglich ist, soll man Goto vermeiden, einfach, weil der Code dann übersichtlicher wird. :-)
   
   Für zwei Alternativen zwei 'If' ist auch etwas unübersichtlich.
   
   Wie gefällt dir das?
   
   

   
   Option explicit
   
   Dim Antwort 
   
   Do
     Antwort=MsgBox ("Hallo, gehts dir gut?", vbYesNo + vbQuestion, "wie gehts")
       If Antwort = VbYes Then
         MsgBox ("Das ist gut."),,("ok")
       Else
         MsgBox ("Schade."),,("aha")
       End If
   Loop While Antwort = VbNo
   
   

   
   

   • Antwort von nach 51 Minuten 0 hilfreich

     Re^2: VBS: Goto

     Vielen Dank!
     Hat super funktioniert!!
     
     Pascal
     
     
     
     Wie gefällt dir das?
     
     

     
     Option explicit
     
     Dim Antwort
     
     Do
       Antwort=MsgBox ("Hallo, gehts dir gut?", vbYesNo +
     vbQuestion, "wie gehts")
         If Antwort = VbYes Then
           MsgBox ("Das ist gut."),,("ok")
         Else
           MsgBox ("Schade."),,("aha")
         End If
     Loop While Antwort = VbNo
     
     

     
     

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!