Fieles parsen und Dokumentenlinks in txt schreiben

Hallo Miteinander,
ich habe ein kleines Problem. Ich muss ca 4500 Datein auf einen String durchsuchen und hoffe das Ihr mir weiterhelfen könnt, sonst bin ich 2015 noch nicht fertig *smile*.
Ich freue mich auf eure Antworten.

MfG
scottt

Hallo Miteinander,
ich habe ein kleines Problem, ich möchte gern eine Datei mittels Batch auf den String (http://*.tpl) parsen und diesen Sting der auch mehrfach vorkommen kann in eine andere Datei schrieben. Ich muss ca. knapp 4500 Datein nach diesen Sting durchsuchen. Kann mir jemand hierbei weiterhelfen?

So sieht es bei mir zur Zeit aus:

Die Datein liegen unter: c:\temp
und heißen: 1, 2, 3, 12, 123, 1515 etc.
die Strucktur, stark vereinfacht:

c:\temp\112



Die URL soll nun in einer anderen .txt Datei geschrieben werden. Kann mir hierbei jemand weiterhelfen?

Vielen Dank ich freue mich auf eure Antworten.

MfG
scottt

@echo off &setlocal

:: anpassen:
set inputfolder=c:\temp
set outputfile=c:\text.txt

pushd "%inputfolder%"  
for /f "tokens=*" %%i in ('dir /a-d /b') do (  
 for /f "tokens=*" %%j in ('findstr /i /c:"a href=" "%%i"') do set "Zeile=%%j" &call :sub  
)
popd
pause
goto :eof

:sub
set Zeile=%Zeile:<=%
set Zeile=%Zeile:>=%
set Zeile=%Zeile:&=%
set Zeile=%Zeile:"=°%  
set Zeile=%Zeile:.tpl=°%
for /f "tokens=2 delims=°" %%k in ("%Zeile%") do echo %%k.tpl>>"%outputfile%"  
goto :eof

@echo off & setlocal
set "Ordner=C:\Temp"  
set "Dateien=*."  
set "Aus=D:\Links.txt"  
set "Suche=<a href=""(http://.*\.tpl)"">.*</a>"  

set "G=%temp%\GetURL.vbs"  
>%G%  echo Set fso=CreateObject("Scripting.FileSystemObject"):T=fso.OpenTextFile(WScript.Arguments(0)).ReadAll  
>>%G% echo Set rE=New RegExp:rE.Pattern="%Suche%":rE.IgnoreCase=True:rE.Global=True:Set Ms=rE.Execute(T):If Ms.Count^<1 Then WScript.Quit  
>>%G% echo Set Aus=fso.OpenTextFile("%Aus%",8,True):For Each M In Ms:Aus.WriteLine M.SubMatches(0):Next  

if exist "%Aus%" del "%Aus%"  
for %%i in ("%Ordner%\%Dateien%") do cscript //nologo %G% "%%~fi"