Beiträge von 4ern

$file = FileRead(@scriptdir & '\test.txt')


_loop($file)


func _loop(byRef $file)


	Local $iEbene = 1

	;----------------------------------------------------------------------------------------------/
	; Ermittle wieviele Ebenen die Schleife hat
	;----------------------------------------------------------------------------------------------/
	$regEx = StringRegExp($file, '(?s)@for(.*?)@next',2)
	if @error then return 


	;----------------------------------------------------------------------------------------------/
	; Ermittle die Ebenen Anzahl
	;----------------------------------------------------------------------------------------------/
	StringReplace($regEx[0], '@for', '@for')
	$iEbene = @extended


	;----------------------------------------------------------------------------------------------/
	; Ersetze String & Setze Markierung
	;----------------------------------------------------------------------------------------------/
	$file = StringReplace($file, $regEx[0], '{!!INSERT_LOOP!!}')


	;----------------------------------------------------------------------------------------------/
	; Eine Ebene
	;----------------------------------------------------------------------------------------------/
	if $iEbene = 1 then


		;----------------------------------------------------------------------------------------------/
		; Ermittle Loop Parameter
		;----------------------------------------------------------------------------------------------/
		$aExp   = StringSplit((StringRegExp($regEx[0], '(?s)\((.*?)\)',2))[1], ' ',2)
		$string = (StringRegExp($regEx[0], '(?s)\)(.*?)@next',2))[1]


		;----------------------------------------------------------------------------------------------/
		; Prüfe ob $var im String vorhanden ist.
		;----------------------------------------------------------------------------------------------/
		$string = StringReplace($string, '{! '&$aExp[0]&' !}', '@var')


		;----------------------------------------------------------------------------------------------/
		; Führe Loop aus
		;----------------------------------------------------------------------------------------------/
		$file = StringReplace($file, '{!!INSERT_LOOP!!}', _loop_ebene1(StringStripWS($string, 3), $aExp[2], $aExp[4]))
		ConsoleWrite('@@@ Debug line #49' & '  var: $file --> ' & $file & @CRLF)
	endif
endfunc


func _loop_ebene1($string, $start, $stop)


	Local $newString
	for $i = int($start) to int($stop)
		$newString &= StringReplace($string, '@var', $i)
	next


	return $newString
endfunc

Lorem ipsum dolor sit amet, consetetnonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet.   


@for ($i = 0 to 10)
	{! $i !} - Einfache Schleife
@next


Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Deros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi.


@for ($i = 0 to 10)
	@for ($n = 0 to 10)
		{! $i !}:{! $n!} - Verschachtelte Schleife
	@next
@next