Dateinamen aus Datei auslesen und kopieren

@echo off & setlocal

set "Basis=D:\test\files"  
set "Typ=.html"  
set "Ext=pdf|dxf"  
set "Ziel=%Basis%\Dokumente"  
set "Log=D:\Log.txt"  

if not exist "%Ziel%" md "%Ziel%"  
if exist "%Log%" del "%Log%"  

set F=%temp%\FindLinks.vbs
>  %F% echo T = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)).ReadAll  
>> %F% echo Set R = New RegExp
>> %F% echo With R
>> %F% echo     .Pattern = "<a href=.*\.(%Ext%)""?>"  
>> %F% echo     .IgnoreCase = True
>> %F% echo     .Global = True
>> %F% echo     Set Links = .Execute(T)
>> %F% echo End With
>> %F% echo For Each L In Links
>> %F% echo     WScript.Echo Replace(Trim(Split(Left(L.Value, Len(L.Value) - 1), "=")(1)), "/", "\")  
>> %F% echo Next

for %%a in ("%Basis%\*%Typ%") do (  
    for /f "delims=" %%i in ('cscript //nologo %F% %%a') do (  
        if exist "%Basis%\%%~i" (  
            copy "%Basis%\%%~i" "%Ziel%">nul  
        ) else (
            echo Nicht gefunden: "%Basis%\%%~i">>"%Log%"  
        )
    )
)
if exist "%Log%" type "%Log%"  

::REM Name der logdatei
set log=%~n0.log.txt
::REM Verzeichnis Dokumente erstellen und log initialisieren.
mkdir Dokumente >%log% 
::REM alle Dateien *html zeilenweise einlesen; an den Trennzeichen <, =, > in Tokens splitten.
::REM Das erste Token sei Variable %a; das zweite Token wird dann %b: der relative Pfad (inkl. ").  
::REM Wegen Verwendung im Script ist dem Variablennamen ein weiteres % voranzustellen: %%a,...
::REM Wenn Token 1 ein »a href« ist, in die Bearbeitung einsteigen ...
::REM Wenn die Extension von %b dxf oder pdf ist, Datei nach Ordner Dokumente kopieren.
for /F "tokens=1,2 delims=<=>" %%a in (*.html) do if "%%a"=="a href" (  
echo %%b >>%log%
if "%%~xb"=="dxf" copy /y %%b Dokumente >>%log%  
if "%%~xb"=="pdf" copy /y %%b Dokumente >>%log%  
)

if "%%~xb"=="dxf" copy /y %%b Dokumente >>%log%  

if /i "%%~xb"==".dxf" copy "%%~b" Dokumente && echo Kopiert: "%%~b">>"%log%"  

>set temp
TEMP=C:\Dokumente und Einstellungen\kristov\Lokaler Firlefanz\Temp

...
set F="%temp%\FindLinks.vbs"  
> %F% echo T = CreateObject
...

... cscript //nologo C:\DOKUME~1\kristov\LOKALE~1\Temp\FindLinks.vbs

    for /f "delims=" %%i in ('cscript //nologo %F% "%%a"') do (  

cscript //nologo "C:\DOKUME~1\cwimmer\LOKALE~1\Temp\FindLinks.vbs" "N:\html\z0302_03\html\z0318AA-06.html" 

D:\>type "%temp%\FindLinks.vbs"  
T = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)  
).ReadAll
Set R = New RegExp
With R
    .Pattern = "<a href=.*\.(pdf|dxf)""?>"  
    .IgnoreCase = True
    .Global = True
    Set Links = .Execute(T)
End With
For Each L In Links
    WScript.Echo Replace(Trim(Split(Left(L.Value, Len(L.Value) - 1), "=")(1)), "  
/", "\")  
Next

D:\>type "D:\Test\files\Eine Datei.html"  
1. Durchsuche alle .html-Dateien in einem Verzeichnis (dieses hat keine Unterver
zeichnisse mehr) nach Pfadangaben zu einer pdf und einer dxf-Datei.
So eine Pfadangabe in einer .html-Datei sieht etwa so aus: <a href="../../pdf/we  
b/7211.pdf">, also relative Pfadangaben.  

D:\>cscript "%temp%\FindLinks.vbs" "D:\Test\files\Eine Datei.html"  
"..\..\pdf\web\7211.pdf"  

D:\>