#include <Array.au3>

$Quell_Datei = @ScriptDir & "\Testdatei Regionen.au3"

Local $aFile = FileReadToArray ( $Quell_Datei )

For $i = 0 To UBound($aFile) - 1 Step 1
		If StringLeft ( ($aFile[$i]) , 8 ) = '#Region ' Then
			_ArrayInsert ( $aFile, $i + 1, "Test " & StringRight ( $aFile[$i] ,  StringLen ( $aFile[$i]  ) -8  )  )
			$i  += 1
		EndIf
Next

_ArrayDisplay ( $aFile , "Ergebnis" )