PDFs zusammenführen mit PDFtk und Befehl Suffix

Hallo zusammen,

vorab muss ich gestehen ich bin zwar IT-Techniker, auf diesem Gebiet jedoch ein ziemlicher Laie. (was sich hoffentlich bald ändern wird ;)

Was will ich erreichen?
Ich möchte 3 PDFs zu einem zusammenführen und 2 "Parameter" aus dem Titel des ursprünglichen PDF Files in den Titel des zusammengeführten übernehmen.

Ursprüngliche Files:
STx_AutoAbrAllg_20130923.PDF
STx_AutoAbrEinzelKredit_20130923.PDF
STx_AutoAbrRabattkarten_20130923.PDF

Als Dateiname sollten die 3 PDFs dann
"Stx_Report_jjjjmmtt.pdf" haben.

Sowohl x (Stationsnummer) als auch das Datum ändern sich laufend!

--> Zum Zusammenführen habe ich folgenden tollen Beitrag gefunden: PDFs per Batch zusammenfügen

Was ist mein Problem?
Wie Ihr im Script am Ende meines Beitrags seht habe ich es aus oben angeführtem Link und bereits soweit ich konnte für meine Bedürfnisse angepasst. Jedoch funktioniert das Ganze noch nicht so richtig. Vor allem weil ich nicht verstehe (auch nicht mit unsrem Freund Google) wie ich Festlege aus welchem Teil des Titels der/die/das Suffix herausgeholt wird.


Wäre sehr dankbar für eure Hilfe!
MfG, Fabian

Es folgt mein Script: (bzw. das von bastla)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

@echo off & setlocal

set "Base=\\Server1\UserData\Daten\Benutzer\Desktop\ABLAGE\Abrechnung_Station\TEST"
::Pfad an dem die Dateien abgelegt sind.
set "PDFTK=C:\Program Files\PDFtk\pdftk.exe"
::Download von: http://www.pdfhacks.com/pdftk/

set "PDFCheck=*AutoAbr*"
set "PDFAlle=*_AutoAbrAllg_* *_AutoAbrEinzelKredit_* *_AutoAbrRabattkarten_*"

set "PDFGes=Report"

for /d %%i in ("%Base%\*.*") do call :ProcessCust "%%i"
goto :eof

:ProcessCust
pushd "%~f1"
if not exist "%PDFCheck%_*.pdf" goto :EndSub

for /f "tokens=2* delims=_" %%a in ('dir /b "%PDFCheck%_*.pdf"') do set "Suffix=%%b"

set PDFListe=
for %%a in (%PDFAlle%) do call :ProcessFile "Abrechnung_Report"
:: for %%a in (%PDFAlle%) do call :ProcessFile "%%a_%Suffix%"

"%PDFTK%" %PDFListe% cat output "ST%Suffix%_%PDFGes%_%Suffix2%" dont_ask

::Loeschsimulation
for /f "delims=" %%i in ('dir /b "*_%Suffix%"^|findstr /v "ST%Suffix%_%PDFGes%_%Suffix2%"') do echo %%i
:: Um das Loeschen zu aktivieren echo durch del ersetzen.

:EndSub
popd
goto :eof

:ProcessFile
if exist "%~1" set "PDFListe=%PDFListe% %~1

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

Anmerkung: Hätte das ganze gerne als Code-Tag (mit Zeilenbezeichnung) gepostet weiß jedoch leider nicht wie. :/

for /f "tokens=3 delims=_." %%a in ('dir /b /a-d "%PDFCheck%_*.pdf"') do set "Suffix=%%a"   

@echo off & setlocal 
 
set "Base=\\Server1\UserData\Daten\Benutzer\Desktop\ABLAGE\Abrechnung_Kreuzmayr\TEST"   
::Pfad an dem die Dateien abgelegt sind!
set "PDFTK=C:\Program Files\PDFtk\pdftk.exe"   
::Download von: http://www.pdfhacks.com/pdftk/ 
 
set "PDFCheck=*AutoAbr*"   
set "PDFAlle=*_AutoAbrAllg_* *_AutoAbrEinzelKredit_* *_AutoAbrRabattkarten_*"   
 
set "PDFGes=Report"   
 
for /d %%i in ("%Base%\*.*") do call :ProcessCust "%%i"   
goto :eof 

:ProcessCust 
pushd "%~f1"  
if not exist "%PDFCheck%_*.pdf" goto :EndSub   
 
for /f "tokens=3 delims=_." %%a in ('dir /b /a-d "%PDFCheck%_*.pdf"') do set "Suffix=%%a"  
:: /f "tokens=2* delims=_" %%a in ('dir /b "%PDFCheck%_*.pdf"') do set "Suffix=%%b"   
 
set PDFListe=
for %%a in (%PDFAlle%) do call :ProcessFile "Abrechnung_Report"   
:: for %%a in (%PDFAlle%) do call :ProcessFile "%%a_%Suffix%"   
 
"%PDFTK%" %PDFListe% cat output "ST%Suffix%_%PDFGes%_%Suffix2%" dont_ask   

::Loeschsimulation 
for /f "delims=" %%i in ('dir /b "*_%Suffix%"^|findstr /v "ST%Suffix%_%PDFGes%_%Suffix2%"') do echo %%i   
 
:EndSub 
popd 
goto :eof 
 
:ProcessFile 
if exist "%~1" set "PDFListe=%PDFListe% %~1"  

for /f "tokens=1,3 delims=_." %%a in ('dir /b /a-d "%PDFCheck%_*.pdf"') do set "Suffix=%%a" & set "Suffix2=%%b"

@echo on & setlocal 
 
set "Base=D:\KUNDE\TEST"   
::Pfad an dem die Dateien abgelegt sind!!!!!!!!!!
set "PDFTK=C:\Program Files\PDFtk\bin\PdftkXp.exe"   
::Download von: http://www.pdfhacks.com/pdftk/ 

set "PDFCheck=AutoAbr.PDF"  
::set "PDFCheck=*_AutoAbr*_*.PDF"  
set "PDFAlle=*_AutoAbrAllg_* *_AutoAbrEinzelKredit_* *_AutoAbrRabattkarten_*"   
 
set "PDFGes=Report"   
 
for /d %%i in ("%Base%\*.*") do call :ProcessCust "%%i"   
:: goto :eof 

:ProcessCust 
pushd "%~f1"  
if not exist "%PDFCheck%" goto :EndSub   
 
for /f "tokens=1,3 delims=_." %%a in ('dir /b /a-d "%PDFCheck%_*.pdf"') do set "Suffix=%%a" & set "Suffix2=%%b"  
:: for /f "tokens=3 delims=_." %%b in ('dir /b /a-d "ST*_%PDFCheck%_%%a.pdf"') do set "Suffix2=%%b"  
:: /f "tokens=2* delims=_" %%a in ('dir /b "%PDFCheck%_*.pdf"') do set "Suffix=%%b"   
 
set PDFListe=
for %%a in (%PDFAlle%) do call :ProcessFile "Abrechnung_Report"   
:: for %%a in (%PDFAlle%) do call :ProcessFile "%%a_%Suffix%"   
 
"%PDFTK%" %PDFListe% cat output "%Suffix%_%PDFGes%_%Suffix2%" dont_ask   

::Loeschsimulation 
for /f "delims=" %%i in ('dir /b "*_%Suffix%"^|findstr /v "%Suffix%_%PDFGes%_%Suffix2%"') do echo %%i   
 
:EndSub 
popd 
goto :eof 
 
:ProcessFile 
if exist "%~1" set "PDFListe=%PDFListe% %~1"  

set "Base=D:\KUNDE"