Eine Funktion um mehrere Clips zu öffnen/bearbeiten?

REM Diese Batch erzeugt automatisch ein Script für alle Dateien
REM in einem Verzeichniss um diese per Avisynth
REM bearbeiten zu können.


:erstellen
set Script="MoreClips.avs"


echo.#Dies ist eine automatisch erzeugte Datei:>%Script%
echo.#--------------Import-------------->>%Script%
echo.#>>%Script%
echo.Import("TxtAni.avs")>>%Script%
echo.#>>%Script%
echo.#>>%Script%
echo.#--------------Quellen------------->>%Script%
echo.#>>%Script%
FOR %%a in (%cd%\*.avi) do call :weiter "%%~fa"


:next
echo.return last>>%Script%
echo.


:exit
exit


:weiter
set quelle=%1
echo.AviSource("%~1", pixel_type="rgb32").FadeIO(25).TxtAni("%~t1")++\>>%Script%
echo.

@echo off
REM Diese Batch erzeugt automatisch ein Script für alle Movies
REM in einem oder mehreren Verzeichniss(en) um diese per Avisynth bearbeiten zu können.
REM
REM Auf Wunsch kann man ein Liste der zu verarbeitenden Verzeichnisse
REM anlegen, eine Vorhandene benutzen oder ohne auskommen.


set a=0
set b=0
set c=0


echo.Moechtest du eine Verzeichnissliste anlegen oder eine
echo.bestehende Liste verwenden? [A(nlegen)/B(estehende)/K(eine)]
echo.
:nochmal
set /P Auswahl=
echo.
cls
if /I %Auswahl% EQU B set c=1 
if /I %Auswahl% EQU K set c=2




:abfrage
if /I %Auswahl% EQU B goto erstellen
if /I %Auswahl% EQU K goto erstellen
if /I %Auswahl% NEQ A goto auswahl else goto list


cls
:list
set List="Liste.txt"
echo.Wie viele Verzeichnisse?
echo.
set /P Ordner=
echo.
echo.
echo.>%List%
:liste
if %Ordner%==0 goto erstellen
cls
set /A Ordner-=1
set /A a+=1
echo.gib deine Verzeichnisse nach einander und in gewuenschter Reihenfolge ein.
echo.das %a% Verzeichniss:
echo.
set /P Eingabe=
echo.%Eingabe%>>%List%
cls
goto liste


:weiter
echo.Nun haben wir die Liste complett!!


:erstellen
set Script="MoreClips.avs"


echo.#Dies ist eine automatisch erzeugte Datei:>%Script%
echo.#--------------Import-------------->>%Script%
echo.#>>%Script%
echo.import("F:\AviSynth Scripts\funktionen\FunctTxTAni2.avs")>>%Script%
echo.#>>%Script%
echo.#--------------Quellen------------->>%Script%
echo.#>>%Script%


if %c%==1 goto mitliste
if %c%==2 goto ohneliste


:mitliste
if not exist Liste.txt goto fehler1
For /F "delims=" %%I in (%cd%\Liste.txt) do call :source %%~fI
goto next


:ohneliste
FOR /R %%I in (*.avi) do call :source %%~fI
goto next


:next
echo.#>>%Script%
echo.#---------------Output------------->>%Script%
echo.#>>%Script%
echo.#>>%Script%
echo.#Weitere bearbeitungs Schritt, je nach Lust und Laune.>>%Script
echo.#>>%Script%
echo.return last>>%Script%


:exit
if /I %Q% EQU A del %Script%
exit


:auswahl
cls
echo.Ungueltige Eingabe, bitte noch einmal!
echo.
goto nochmal


:fehler1
echo.Keine Liste vorhanden!
echo.Willst du eine neue erstellen oder abbrechen? [N(eu)/A(bbrechen)]
:nochmal2
set /P Q=
cls
If /I %Q% EQU N goto list 
If /I %Q% EQU A goto exit
cls
echo.Ungueltige Eingabe, bitte noch einmal!
goto nochmal2


:source
set Pfad=%1
FOR %%a in (%Pfad%*.AVI) do call :runter %%a


:runter
set file=%~1
set datum=%~t1
set /A b+=1
If /I "%~x1"==".avi" echo.AviSource("%file%", pixel_type="rgb24").FadeIO(25).TxtAni("%datum%")++\>>%Script%