Skript nach Stringüberprüfung weiter laufen lassen

Code4Fun

Hallo,

Ok, die Themenüberschrift ist etwas ... komisch.

Folgende Frage. Ich habe ein Script, welches eine Inputbox hat. Wenn ich dann via Schaltfläche das Script starte, wird als erstes der Inhalt der Inputbox überprüft. Wenn dieser nicht korrekt ist, zeige ich eine MsgBox an und beende aktuell mit exit. Ich würde es gerne ab so haben, das ich die MsgBox mit OK betätige, die Inputbox geleert wird und man gleich einen weiteren Versuch mit korrekten Daten unternehmen kann (also nicht das Script nochmals komplett neu starten muss).

Danke für eure Gedankenanstöße
C4F

**alpines**

Na wie wäre es denn mit einer einfachen Do-Until-Schleife?

Du lässt dir den String eintippen und prüfst ob er korrekt ist. Sollte er nicht korrekt sein, zeigst du eine MsgBox an wo du den User fragst ob er es nochmal versuchen möchte.
Ist die Antwort der MsgBox gleich Nein, dann exitest du einfach, sollte sie Ja lauten, dann läuft dein Program in die Until Bedingung wo so viel drinne steht wie $sEingetippterText = "blabla".
Wird diese Bedingung nicht erfüllt springt sie zum Anfang der Schleife wo die InputBox wieder wartet.

Code4Fun

Hallo alpines,

erst mal vielen Dank für die Unterstützung. Ja, das Prinzip habe ich verstanden, aber ich baue das glaube an der falschen Stelle ein. Ich poste jetzt mal ein paar Code Snipsel, vielleicht kannst Du mir sagen, wo dass dann rein muss. In Zeile 26 wird die besagte Schaltfläche gedrückt. Aktuell habe ich die Do...Until Schleife in der Funktion _InputAuslesen eingebaut, ich glaube aber, dass das falsch ist. Wäre hier für Hilfe sehr dankbar.

Gruß C4F

Spoiler anzeigen

AutoIt

#Region ; GUI erstellen
$hGUI = GUICreate("Dokumente finden - Version: " & $sVersion, $hGUIBreite, $hGUIHoehe, -1, -1) ; GUI mit Überschrift
$sLabel01 = GUICtrlCreateLabel("Suche ", 10, 27)


GUICtrlCreateGroup("Dokumentenart", 50, 0, 135, 100)
GUIStartGroup()
$idRadio_1 = GUICtrlCreateRadio("Nachweis", 60, 25, 120, 20)
$idRadio_2 = GUICtrlCreateRadio("Begleitschein", 60, 50, 120, 20)
$idRadio_3 = GUICtrlCreateRadio("Übernahmeschein", 60, 75, 120, 20)
$sLabel02 = GUICtrlCreateLabel("Nr.:", 200, 25)
$sInput01 = GUICtrlCreateInput("", 230, 22, 120, 20)
GUICtrlSetState($sInput01, $GUI_DISABLE)
$hButton1 = GUICtrlCreateButton("suchen", 360, 21, 120, 22, BitOR($GUI_SS_DEFAULT_BUTTON, $BS_DEFPUSHBUTTON))
$sLabel03 = GUICtrlCreateLabel("aktuelle DB: ", 200, 80, 250)
GUISetState(@SW_SHOW)
#EndRegion ; GUI erstellen


While 1
	$msg = GUIGetMsg()


	Switch $msg
		Case $GUI_EVENT_CLOSE
			_MSSQL_End($sqlCon)
			GUIDelete()
			Exit
		Case $hButton1
			_RadioButtonAuslesen()
			_InputAuslesen()
			_HTMLbauen()
			_DBAbfragen()
		Case $idRadio_1
			GUICtrlSetState($sInput01, $GUI_ENABLE)
			GUISetState(@SW_SHOW)


		Case $idRadio_2
			GUICtrlSetState($sInput01, $GUI_ENABLE)
			GUISetState(@SW_SHOW)


		Case $idRadio_3
			GUICtrlSetState($sInput01, $GUI_ENABLE)
			GUISetState(@SW_SHOW)


	EndSwitch
WEnd


Func _RadioButtonAuslesen()
	If GUICtrlRead($idRadio_1) = 1 Then
		$sReturnRadio = 'Nachweis'
	EndIf


	If GUICtrlRead($idRadio_2) = 1 Then
		$sReturnRadio = 'Begleitschein'
	EndIf


	If GUICtrlRead($idRadio_3) = 1 Then
		$sReturnRadio = 'Übernahmeschein'
	EndIf
EndFunc   ;==>_RadioButtonAuslesen


Func _InputAuslesen()
	Do
		$sReturnInput = GUICtrlRead($sInput01)
		Local $iInputLaenge = StringLen($sReturnInput)


		If $sReturnRadio = 'Übernahmeschein' Then
			If StringIsDigit($sReturnInput) = 1 Then
;~ 			MsgBox(0, "Zahl", $sReturnInput & " ist eine Zahl")
			Else
				Local $iResponse = MsgBox(53, "Fehler", $sReturnInput & " ist keine Zahl")
				If $iResponse = 2 Then Exit
			EndIf


			If $iInputLaenge > "14" Then
				Local $iResponse = MsgBox(53, "Falsche Eingabe", "Die eingegebene UNS Nummer hat " & $iInputLaenge & " Zahlen!" & @CRLF & "Es sind maximal 14 Zahlen erlaubt.!")
				If $iResponse = 2 Then Exit
			EndIf
		EndIf


		If $sReturnRadio = 'Begleitschein' Then
			If StringIsDigit($sReturnInput) = 1 Then
;~ 			MsgBox(0, "Zahl", $sReturnInput & " ist eine Zahl")
			Else
				Local $iResponse = MsgBox(53, "Fehler", $sReturnInput & " ist keine Zahl")
				If $iResponse = 2 Then Exit
			EndIf


			If $iInputLaenge > "14" Then
				Local $iResponse = MsgBox(53, "Falsche Eingabe", "Die eingegebene BGS Nummer hat " & $iInputLaenge & " Zahlen!" & @CRLF & "Es sind maximal 14 Zahlen erlaubt.!")
				If $iResponse = 2 Then Exit
			EndIf
		EndIf


		If $sReturnRadio = 'Nachweis' Then
			If StringIsAlNum($sReturnInput) Then
;~ 			MsgBox($MB_SYSTEMMODAL, "", "Gut")
			Else
				Local $iResponse = MsgBox(21, "Falsche Eingabe", "Die eingegebene Nachweis Nummer " & $sReturnInput & " enthält nicht zugelassene Zeichen!")
				If $iResponse = 2 Then Exit
			EndIf


			If $iInputLaenge > "12" Then
				Local $iResponse = MsgBox(53, "Falsche Eingabe", "Die eingegebene Nachweis Nummer hat " & $iInputLaenge & " Zeichen!" & @CRLF & "Es sind maximal 12 Zeichen erlaubt.!")
				If $iResponse = 2 Then Exit
			EndIf
		EndIf
	Until $iResponse = 10 ;
EndFunc   ;==>_InputAuslesen

Alles anzeigen

**alpines**

Zitat von Code4Fun

Aktuell habe ich die Do...Until Schleife in der Funktion _InputAuslesen eingebaut, ich glaube aber, dass das falsch ist.

Willst du - sofern die Eingabe ungültig ist - das Programm direkt beenden oder einfach nur den Ablauf unterbrechen und wieder zum Klick eines Buttons warten?

Code4Fun

Abbrechen will ich gar nicht. Wenn die MsgBox kommt (ich will hier nur eine OK Schaltfläche sehen), soll beim drücken von OK zurück zur GUI geschaltet werden, damit folgendes Fenster wieder erscheint:

Gruß C4F

**alpines**

Dann nimm doch das Return Keyword in der _InputAuslesen-Funktion. Sollte der Fall eintreten wo du zurück zur GUI möchtest, dann returnst du eine -1.
Sollte der Fall eintreten wo du weitermachen möchtest, returnst du eine 1.

Den Rückgabewert von _InputAuslesen fängst du dann in dem Switch-Case von dem Button ab und verarbeitest ihn, wie erwähnt: 1 = weitere Funktionene ausführen
-1 = GUI resetten

Code4Fun

Hallo alpines,

sorry, jetzt stehe ich gerade voll auf dem Schlauch. Kannst Du mir bitte ein kleines Beispielscript posten (muss nichts mit meinem zu tun haben, nur damit ich verstehe, was du meinst). Danke

Nachtrag um 10:40 Uhr:
Habe es jetzt so gelöst (zwar nicht schön, aber funktioniell)

Spoiler anzeigen

AutoIt

Func _InputAuslesen()
	$sReturnInput = GUICtrlRead($sInput01)
	ClipPut($sReturnInput)
	Local $iInputLaenge = StringLen($sReturnInput)


	If $sReturnRadio = 'Übernahmeschein' Then
		If StringIsDigit($sReturnInput) = 1 Then
;~ 			MsgBox(0, "Zahl", $sReturnInput & " ist eine Zahl")
		Else
			Local $iResponse = MsgBox(16, "Fehler", $sReturnInput & " ist keine Zahl")
			Exit Run(@ScriptFullPath)
		EndIf


		If $iInputLaenge > "14" Then
			Local $iResponse = MsgBox(16, "Falsche Eingabe", "Die eingegebene UNS Nummer hat " & $iInputLaenge & " Zahlen!" & @CRLF & "Es sind maximal 14 Zahlen erlaubt.!")
			Exit Run(@ScriptFullPath)
		EndIf
	EndIf


	If $sReturnRadio = 'Begleitschein' Then
		If StringIsDigit($sReturnInput) = 1 Then
;~ 			MsgBox(0, "Zahl", $sReturnInput & " ist eine Zahl")
		Else
			Local $iResponse = MsgBox(16, "Fehler", $sReturnInput & " ist keine Zahl")
			Exit Run(@ScriptFullPath)
		EndIf


		If $iInputLaenge > "14" Then
			Local $iResponse = MsgBox(16, "Falsche Eingabe", "Die eingegebene BGS Nummer hat " & $iInputLaenge & " Zahlen!" & @CRLF & "Es sind maximal 14 Zahlen erlaubt.!")
			Exit Run(@ScriptFullPath)
		EndIf
	EndIf


	If $sReturnRadio = 'Nachweis' Then
		If StringIsAlNum($sReturnInput) Then
;~ 			MsgBox($MB_SYSTEMMODAL, "", "Gut")
		Else
			Local $iResponse = MsgBox(16, "Falsche Eingabe", "Die eingegebene Nachweis Nummer " & $sReturnInput & " enthält nicht zugelassene Zeichen!")
			Exit Run(@ScriptFullPath)
		EndIf


		If $iInputLaenge > "12" Then
			Local $iResponse = MsgBox(16, "Falsche Eingabe", "Die eingegebene Nachweis Nummer hat " & $iInputLaenge & " Zeichen!" & @CRLF & "Es sind maximal 12 Zeichen erlaubt.!")
			Exit Run(@ScriptFullPath)
		EndIf
	EndIf
EndFunc   ;==>_InputAuslesen

Alles anzeigen

**alpines**

Also du willst doch überprüfen ob die Suche erfolgreich ist und je nach Suchergebnis eine andere GUI anzeigen bzw. die GUI resetten und zum Anfangszustand zurückkehren - sofern ich das richtig verstanden habe.

Du packst die Abfragen ob die Suche erfolgreich ist in die _InputAuslesen-Funktion und dessen Rückgabewert kannst du verwenden um zu entscheiden ob du die GUI wechseln willst oder nicht.
In meinem Beispielscript ist die _InputAuslesen-Funktion die _Suchen-Funktion. Sollte in _Suchen() vorkommen das hier als Beispiel im Textfeld "Dokument" steht, so gibt die Funktion eine 1 zurück und eine 0 wenn nicht.

In dem Switch-Case vom Button wird überprüft ob der Rückgabewert 1 oder 0 ist und je nach dem eine Funktion ausgeführt bzw. die GUI resettet.

AutoIt

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 210, 114, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Option 1", 8, 8, 65, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Option 2", 8, 24, 65, 17)
$Button1 = GUICtrlCreateButton("Suchen", 8, 72, 193, 33)
$Input1 = GUICtrlCreateInput("Input1", 80, 16, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


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


		Case $Button1
			If _Suchen() = 1 Then
				MsgBox(0,0, "Suche erfolgreich.")
				;Andere GUIs zeigen oder Sachen erledigen
			Else
				MsgBox(0,0, "Suche nicht erfolgreich.")
				_GuiReset()
			EndIf


	EndSwitch
WEnd


Func _GuiReset()
	GUICtrlSetState($Checkbox1, 4)
	GUICtrlSetState($Checkbox2, 4)
	GUICtrlSetData($Input1, "")
EndFunc


Func _Suchen()
	If GUICtrlRead($Input1) = "Dokument" Then
		Return 1 ;Erfolgreich
	Else
		Return 0 ;Falsch
	EndIf
EndFunc

Alles anzeigen

Code4Fun

Guten Morgen und Danke für das Beispielscript. Habe das jetzt mal entsprechend bei mir eingebaut. Es gibt jetzt aber noch folgendes Problem. Ich drücke ja $hButton1. Dann werden die Radiobuttons ausgelesen und danach dann _InputAuslesen(). Hier wird dann z.B. ein Return 0 gesetzt, d.h. in der If Abfrage geht es weiter mit _GuiReset(). Das funktioniert auch wunderbar. Allerdings befinde ich mich ja immer noch im gedrückten $hButton1 Modus, d.h. es geht dann weiter mit _HTMLbauen() und _DBAbfragen.

Was muss man denn eingeben, damit $hButton1 verlassen wird?

Spoiler anzeigen

AutoIt

While 1
	$msg = GUIGetMsg()


	Switch $msg
		Case $GUI_EVENT_CLOSE
			_MSSQL_End($sqlCon)
			GUIDelete()
			Exit


		Case $hButton1
			_RadioButtonAuslesen()
			If _InputAuslesen() = 1 Then
;~ 				MsgBox(0,0, "Suche erfolgreich.")
				;Andere GUIs zeigen oder Sachen erledigen
			Else
				_GuiReset()
			EndIf
			_HTMLbauen()
			_DBAbfragen()


		Case $idRadio_1
			GUICtrlSetState($sInput01, $GUI_ENABLE)
			GUISetState(@SW_SHOW)


		Case $idRadio_2
			GUICtrlSetState($sInput01, $GUI_ENABLE)
			GUISetState(@SW_SHOW)


		Case $idRadio_3
			GUICtrlSetState($sInput01, $GUI_ENABLE)
			GUISetState(@SW_SHOW)
	EndSwitch
WEnd

Alles anzeigen

**alpines**

Na ganz einfach, du packst _HTMLbauen() und _DBAfragen() in den If-Zweig mit If _InputAuslesen() = 1.

Code4Fun

Kaum hatte ich Zeilen geschrieben, ist es mir auch eingefallen. Es gibt einfach Tag, da steht man auf der Leitung.

Nochmals vielen Dank alpines, mir ist damit sehr geholfen.