per batch text aus datei ab einem best. zeichen in andere datei kopieren

hallo,

ich möchte aus mehreren txt-Dateien ab einem bestimmten Text (nämlich <!!!><???>) den nachfolgenden Text in eine neue
Datei kopieren.
also so:
suche in Datei 1 nach dem Begriff <!!!><???> und schreibe alle Zeichen danach in die Datei gesamt-neu.txt.
suche in Datei 2 nach dem Begriff <!!!><???> und schreibe alle Zeichen danach in die Datei gesamt-neu.txt.
suche in Datei 3 nach dem Begriff <!!!><???> und schreibe alle Zeichen danach in die Datei gesamt-neu.txt.

kann mir da jemand helfen? von batch-befehlen hab ich nicht so viel Ahnung. (ich kenne nur mkdir, copy, ren und so Standardsachen..)

viele Grüße

marc

@echo off & setlocal
set "Neu=D:\gesamt-neu.txt"  
set "Quelle=D:\Datei*.txt"  

if exist "%Neu%" del "%Neu%"  
set E=%temp%\Extract.vbs
> %E% echo S="<!!!><???>":T=CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)).ReadAll:P=InStr(T,S):If P^>0 Then WScript.Echo Mid(T,P+Len(S))  

for %%i in ("%Quelle%") do cscript //nologo %E% "%%i">>"%Neu%"  

@echo off & setlocal
set "Neu=D:\gesamt-neu.txt"  
set "Quelle=D:\Datei*.txt"  

if exist "%Neu%" del "%Neu%"  
set E=%temp%\Extract.vbs
> %E% echo S="<!!!><???>":Set fso=CreateObject("Scripting.FileSystemObject"):T=fso.OpenTextFile(WScript.Arguments(0)).ReadAll  
>>%E% echo P=InStr(T,S):If P^>0 Then fso.OpenTextFile(WScript.Arguments(1),8,1).Write Mid(T,P+Len(S))

for %%i in ("%Quelle%") do cscript //nologo %E% "%%i" "%Neu%"