Rekursionen - Versionsgeschichte

Pwania am 28. Januar 2023 um 00:36 Uhr

2023-01-28T00:36:06Z

← Nächstältere Version		Version vom 28. Januar 2023, 00:36 Uhr
Zeile 1:		Zeile 1:
			[[Category:vba-wiki]]
	Eine weitere Form der Schleife, also des wiederholten Aufrufs eines Programmteils, kann dadurch erfolgen, dass eine Prozedur sich selbst aufruft und somit eine Wiederholung erwirkt.		Eine weitere Form der Schleife, also des wiederholten Aufrufs eines Programmteils, kann dadurch erfolgen, dass eine Prozedur sich selbst aufruft und somit eine Wiederholung erwirkt.

Pwania: /* Ungeplante Rekursion */

2022-02-10T13:32:56Z

Ungeplante Rekursion

← Nächstältere Version		Version vom 10. Februar 2022, 13:32 Uhr
Zeile 31:		Zeile 31:

	Ein Lösungsansatz könnte wie folgt aussehen:		Ein Lösungsansatz könnte wie folgt aussehen:
	* Eine gemeinsame Prozedur ~~wählt in jedem Listenfeld den gewünschten Eintrag aus~~		* Eine gemeinsame Prozedur anlegen, welche die Auswahl der Einträge zentral übernehmen wird

	<span style="Color:blue">Private Sub </span>SelectEntry<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strValue<span style="Color:blue"> As String</span><span style="Color:gray">)</span>		<span style="Color:blue">Private Sub </span>SelectEntry<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strValue<span style="Color:blue"> As String</span><span style="Color:gray">)</span>
			<span style="Color:blue">
	<span style="Color:~~green~~"~~>' ...</span~~>		End Sub</span>
	~~<span style="Color:blue">~~End Sub</span>

	* Im 'Change'-Ereignis der gewünschten Listenfelder wird diese Prozedur mit dem aktuellen Wert aufgerufen		* Im 'Change'-Ereignis der gewünschten Listenfelder wird diese Prozedur mit dem aktuellen Wert aufgerufen
Zeile 57:		Zeile 56:
	<span style="Color:blue"> Static </span>blnBusy<span style="Color:blue"> As Boolean</span>		<span style="Color:blue"> Static </span>blnBusy<span style="Color:blue"> As Boolean</span>

	<span style="Color:blue"> If </span>blnBusy <span style="Color:gray">=</span><span style="Color:blue"> True Then Exit Sub</span>		<span style="Color:blue"> If </span>blnBusy <span style="Color:gray">=</span><span style="Color:blue"> True Then Exit Sub </span> <span style="Color:green">' hiermit wird verhindert, dass diese prozedur ein weiteres mal ausgeführt wird!</span>
	blnBusy <span style="Color:gray">=</span><span style="Color:blue"> True</span>		blnBusy <span style="Color:gray">=</span><span style="Color:blue"> True</span>
	<span style="Color:green">' ...</span>		<span style="Color:green">' evt prüfen ob werte in listenfeldern vorhanden ist</span>
			lbxListbox<span style="Color:gray">01.</span>Value <span style="Color:gray">=</span> strValue
			lbxListbox<span style="Color:gray">02.</span>Value <span style="Color:gray">=</span> strValue
	blnBusy <span style="Color:gray">=</span><span style="Color:blue"> False		blnBusy <span style="Color:gray">=</span><span style="Color:blue"> False
	End Sub</span>		End Sub</span>

	Da der Wert einer statischen Variable für jeden Durchlauf der Prozedur erhalten bleibt (in diesem Falle solange der Dialog existiert), kann mit deren Hilfe verhindert werden, dass die Prozedur mehr als einmal durchlaufen wird, sobald der erste Durchlauf gestartet wurde. Siehe auch [[Variablen#Statische_prozedurale_Variable\|Statische prozedurale Variable]].		Da der Wert einer statischen Variable für jeden Durchlauf der Prozedur erhalten bleibt (in diesem Falle solange der Dialog existiert), kann mit deren Hilfe verhindert werden, dass die Prozedur mehr als einmal durchlaufen wird, sobald der erste Durchlauf gestartet wurde. Siehe auch [[Variablen#Statische_prozedurale_Variable\|Statische prozedurale Variable]].

Pwania: /* Ungeplante Rekursion */

2022-02-10T10:26:09Z

Ungeplante Rekursion

← Nächstältere Version		Version vom 10. Februar 2022, 10:26 Uhr
Zeile 23:		Zeile 23:
	== Ungeplante Rekursion ==		== Ungeplante Rekursion ==

	In bestimmten Situationen können Rekursionen ohne Ihren Einfluss und somit ungeplant auftreten. Da diese zu Überläufen führen, gilt es, eigene ~~Abbruchkriterium~~ einzubeziehen.		In bestimmten Situationen können Rekursionen ohne Ihren Einfluss und somit ungeplant auftreten. Da diese zu Überläufen führen, gilt es, eigene Abbruchkriterien einzubeziehen.

	;Beispiel		;Beispiel

Pwania: /* Ungeplante Rekursion */

2022-02-10T10:25:45Z

Ungeplante Rekursion

← Nächstältere Version		Version vom 10. Februar 2022, 10:25 Uhr
Zeile 23:		Zeile 23:
	== Ungeplante Rekursion ==		== Ungeplante Rekursion ==

	In bestimmten Situationen können Rekursionen ohne Ihren Einfluss und somit ungeplant auftreten.		In bestimmten Situationen können Rekursionen ohne Ihren Einfluss und somit ungeplant auftreten. Da diese zu Überläufen führen, gilt es, eigene Abbruchkriterium einzubeziehen.

	;Beispiel		;Beispiel

Pwania am 10. Februar 2022 um 10:22 Uhr

2022-02-10T10:22:55Z

@@ Zeile 2: / Zeile 2: @@
 Wenn Sie eine Rekursion einsetzen, erzeugen Sie eine Endlosschleife (siehe [[Fehlermeldungen#28: Nicht genügend Stapelspeicher|Laufzeitfehler 28: Nicht genügend Stapelspeicher]]) und müssen daher eine sehr klare Abbruchbedingung schaffen oder nur in einem klar definierten Fall den erneuten Aufruf bewirken.
 ;Beispiel
@@ Zeile 8: / Zeile 12: @@
 In der Funktion 'SingularizeSpaces' wird also zuerst das Ersetzen von doppelten Leerzeichen durchgeführt. Danach wird geprüft, ob immer noch doppelte Leerzeichen vorhanden sind. Ist dies der Fall, ruft die Funktion sich selbst mit dem schon einmal vorbereiteten Text auf. Am Schluss wird der Text als Rückgabewert der Funktion zurückgegeben.
-  Public Function SingularizeSpaces(ByVal strText As String)
+  <span style="Color:blue">Public Function </span>SingularizeSpaces<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strText<span style="Color:blue"> As String</span><span style="Color:gray">)</span>
-     strText = Replace(strText, "  ", " ")
+     strText <span style="Color:gray">=</span> Replace<span style="Color:gray">(</span>strText<span style="Color:gray">,</span> <span style="Color:gray">"  ",</span> <span style="Color:gray">" ")</span>
-    If InStr(strText, "  ") > 0 Then
+   <span style="Color:blue"> If </span>InStr<span style="Color:gray">(</span>strText<span style="Color:gray">,</span> <span style="Color:gray">"  ")</span> <span style="Color:gray">></span> <span style="Color:gray">0</span><span style="Color:blue"> Then</span>
-         strText = SingularizeSpaces(strText)
+         strText <span style="Color:gray">=</span> SingularizeSpaces<span style="Color:gray">(</span>strText<span style="Color:gray">)</span>
-    End If
+   <span style="Color:blue"> End If</span>
-     SingularizeSpaces = strText
+     SingularizeSpaces <span style="Color:gray">=</span> strText<span style="Color:blue">
-  End Function
+  End Function</span>

Pwania am 10. Oktober 2018 um 15:27 Uhr

2018-10-10T15:27:53Z

← Nächstältere Version		Version vom 10. Oktober 2018, 15:27 Uhr
Zeile 1:		Zeile 1:
	Eine weitere Form der Schleife, also des wiederholten Aufrufs eines Programmteils, kann dadurch erfolgen, dass eine Prozedur sich selbst aufruft und somit eine Wiederholung erwirkt. Wenn Sie eine Rekursion einsetzen, erzeugen Sie eine Endlosschleife (siehe [[Fehlermeldungen#28: Nicht genügend Stapelspeicher\|Laufzeitfehler 28: Nicht genügend Stapelspeicher]]) und müssen daher eine sehr klare Abbruchbedingung schaffen oder nur in einem klar definierten Fall den erneuten Aufruf bewirken. ;Beispiel Im folgenden Beispiel sollen mehrere aufeinander folgende Leerzeichen auf ein einziges reduziert werden. Würde man das Ersetzen von doppelten Leerzeichen nur einmal durchführen, würden zum Beispiel von drei aufeinander folgenden Leerzeichen immer noch zwei Leerzeichen übrig bleiben (die Replace-Funktion ersetzt die ersten beiden mit einem einzelnen Leerzeichen, kehrt jedoch nicht nochmal zurück und erkennt, dass dadurch immer noch zwei Leerzeichen hintereinander stehen). In der Funktion 'SingularizeSpaces' wird also zuerst das Ersetzen von doppelten Leerzeichen durchgeführt. Danach wird geprüft, ob immer noch doppelte Leerzeichen vorhanden sind. Ist dies der Fall, ruft die Funktion sich selbst mit dem schon einmal vorbereiteten Text auf. Am Schluss wird der Text als Rückgabewert der Funktion zurückgegeben. Public Function SingularizeSpaces(ByVal strText As String) strText = Replace(strText, " ", " ") If InStr(strText, " ") > 0 Then strText = SingularizeSpaces(strText) End If SingularizeSpaces = strText End Function		Eine weitere Form der Schleife, also des wiederholten Aufrufs eines Programmteils, kann dadurch erfolgen, dass eine Prozedur sich selbst aufruft und somit eine Wiederholung erwirkt.

			Wenn Sie eine Rekursion einsetzen, erzeugen Sie eine Endlosschleife (siehe [[Fehlermeldungen#28: Nicht genügend Stapelspeicher\|Laufzeitfehler 28: Nicht genügend Stapelspeicher]]) und müssen daher eine sehr klare Abbruchbedingung schaffen oder nur in einem klar definierten Fall den erneuten Aufruf bewirken.

			;Beispiel
			Im folgenden Beispiel sollen mehrere aufeinander folgende Leerzeichen auf ein einziges reduziert werden. Würde man das Ersetzen von doppelten Leerzeichen nur einmal durchführen, würden zum Beispiel von drei aufeinander folgenden Leerzeichen immer noch zwei Leerzeichen übrig bleiben (die Replace-Funktion ersetzt die ersten beiden mit einem einzelnen Leerzeichen, kehrt jedoch nicht nochmal zurück und erkennt, dass dadurch immer noch zwei Leerzeichen hintereinander stehen).

			In der Funktion 'SingularizeSpaces' wird also zuerst das Ersetzen von doppelten Leerzeichen durchgeführt. Danach wird geprüft, ob immer noch doppelte Leerzeichen vorhanden sind. Ist dies der Fall, ruft die Funktion sich selbst mit dem schon einmal vorbereiteten Text auf. Am Schluss wird der Text als Rückgabewert der Funktion zurückgegeben.

			Public Function SingularizeSpaces(ByVal strText As String)

			strText = Replace(strText, " ", " ")
			If InStr(strText, " ") > 0 Then
			strText = SingularizeSpaces(strText)
			End If
			SingularizeSpaces = strText
			End Function

Pwania: Die Seite wurde neu angelegt: „Eine weitere Form der Schleife, also des wiederholten Aufrufs eines Programmteils, kann dadurch erfolgen, dass eine Prozedur sich selbst aufruft und somit eine…“

2017-11-23T11:48:38Z

Die Seite wurde neu angelegt: „Eine weitere Form der Schleife, also des wiederholten Aufrufs eines Programmteils, kann dadurch erfolgen, dass eine Prozedur sich selbst aufruft und somit eine…“

Neue Seite

Eine weitere Form der Schleife, also des wiederholten Aufrufs eines Programmteils, kann dadurch erfolgen, dass eine Prozedur sich selbst aufruft und somit eine Wiederholung erwirkt. Wenn Sie eine Rekursion einsetzen, erzeugen Sie eine Endlosschleife (siehe [[Fehlermeldungen#28: Nicht genügend Stapelspeicher|Laufzeitfehler 28: Nicht genügend Stapelspeicher]]) und müssen daher eine sehr klare Abbruchbedingung schaffen oder nur in einem klar definierten Fall den erneuten Aufruf bewirken. ;Beispiel Im folgenden Beispiel sollen mehrere aufeinander folgende Leerzeichen auf ein einziges reduziert werden. Würde man das Ersetzen von doppelten Leerzeichen nur einmal durchführen, würden zum Beispiel von drei aufeinander folgenden Leerzeichen immer noch zwei Leerzeichen übrig bleiben (die Replace-Funktion ersetzt die ersten beiden mit einem einzelnen Leerzeichen, kehrt jedoch nicht nochmal zurück und erkennt, dass dadurch immer noch zwei Leerzeichen hintereinander stehen). In der Funktion 'SingularizeSpaces' wird also zuerst das Ersetzen von doppelten Leerzeichen durchgeführt. Danach wird geprüft, ob immer noch doppelte Leerzeichen vorhanden sind. Ist dies der Fall, ruft die Funktion sich selbst mit dem schon einmal vorbereiteten Text auf. Am Schluss wird der Text als Rückgabewert der Funktion zurückgegeben. Public Function SingularizeSpaces(ByVal strText As String) strText = Replace(strText, " ", " ") If InStr(strText, " ") > 0 Then strText = SingularizeSpaces(strText) End If SingularizeSpaces = strText End Function