02.05.2013, aktualisiert um 21:53:46 Uhr

2588

Links in Textdatei kopieren

Hallo Leute,
Ich habe eine Textdatei (HTML-Format), die viele Downloadlinks enthält. Name der Datei: dlinks.html

Jetzt möchte ich, dass alle Links in dieser Datei, die die folgenden Bedingungen erfüllen, Zeilenweise in eine neue Textdatei (newlinks.txt) kopiert/geschrieben wird:

Bedingungen:
-beginnt mit http://
-enthält das Wort Photoma
-endet mit .jpg

Ich habe bereits mit findstr probiert, aber da funktionieren die Platzhalter * nicht...

Mein Ansatz:

for /f %%i in ('findstr /c:"*http://*Photoma*.jpg*" dlinks.html') do (echo "%%i">>newlinks.txt)

funktioniert jedoch leider nicht

Könnt ihr mir helfen?
Vielen Dank für eure Hilfe.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 205966

Url: https://administrator.de/forum/links-in-textdatei-kopieren-205966.html

Ausgedruckt am: 05.04.2025 um 23:04 Uhr

11 Kommentare

Neuester Kommentar

Hallo xtrollra und willkommen im Forum!

Ich habe bereits mit findstr probiert, aber da funktionieren die Platzhalter * nicht...

... vor allem, weil "*" kein Platzhalter ist

- kannst Du der Onlinehilfe (aufzurufen mit findstr /?) entnehmen ...

Abgesehen davon kann "findstr" nur zeilenweise verarbeiten - besteht denn Deine Datei aus lauter Zeilen mit je einem Link?

Grüße
bastla

hallo Bastla,
nein, die Datei ist eine HTML-Datei...also HTML-Code mit vielen Zeilen.
Irgendwo gibt es einen Link zu einer Datei und genau diesen Link will ich quasi herauskopieren und in eine Datei schreiben.

Hallo xtrollra,

ohne mehr Infos zur "dlinks.html" kann man so nix sagen.

Gruss!

... aber es ganz schematisch mit einem VBScript der Art

Ein = "D:\dlinks.html"  
Aus = "D:\newlinks.txt"  

Set fso = CreateObject("Scripting.FileSystemObject")  
T = fso.OpenTextFile(Ein).ReadAll

Set rE = New RegExp
rE.Pattern = "http://.*Photoma.*\.jpg"  
rE.Global = True
rE.IgnoreCase = True

For Each Match In rE.Execute(T)
    Liste = Liste & vbCrLf & Match
Next
fso.CreateTextFile(Aus).Write Mid(Liste, 3)

versuchen ...

Grüße
bastla

jaaa, mega vielen Dank bastla

))
Funktioniert genau wie ich es haben will. Klasse.
Geht das ganze auch rein per Batch? also ohne vbs?

@Endoro
Hintergrund ist, dass ich mit einer Batchdatei Updatedateien für ein Programm mit einem Klick downloaden möchte.

Der Downloadlink zu dieser Datei ändert sich aber logischerweise ständig, wenn neue Versionen verfügbar sind. D.h. der Dateiname auf dem Server ändert sich und damit auch der Link dazu.

Deshalb lasse ich per Batch die HTML-Datei zuerst herunterladen, um dann diese zu "verarbeiten" und den Link darin rausfischen...
Hoffe das ist verständlich ;)

Hallo xtrollra!

Geht das ganze auch rein per Batch? also ohne vbs?

Grundsätzlich möglich, aber mühsam - zur Not lässt sich das VBScript aber durch einen Batch erzeugen und ausführen, etwa so:

set "Ein=D:\dlinks.html"  
set "Aus=D:\newlinks.txt"  

set "G=%temp%\GetLinks.vbs"  
 >"%G%" echo Set fso=CreateObject("Scripting.FileSystemObject"):T=fso.OpenTextFile("%Ein%").ReadAll  
>>"%G%" echo Set rE=New RegExp:rE.Pattern="http://.*Photoma.*\.jpg":rE.Global=True:rE.IgnoreCase=True  
>>"%G%" echo For Each Match In rE.Execute(T):Liste=Liste^&vbCrLf^&Match:Next:fso.CreateTextFile("%Aus%").Write Mid(Liste,3)  

cscript //nologo "%G%" 

Grüße
bastla

Zitat von @xtrollra:

Geht das ganze auch rein per Batch? also ohne vbs?

Sicher nicht ohne mehr Info

Gruss!

ich könnte dir eine lösung in powershell anbieten. oder in awk, perl.

@ micneu

awk, perl

Wenn's noch nicht einmal VBS sein soll?

Grüße
bastla

@micneu
vielen Dank für deine Hilfe, aber mit bastla's VBS-Skript funktionierts super.

ich habe aber noch ein Problem, für das ich noch keine gute Lösung gefunden habe:
Die Batch soll die 3. Zeile (oder x-te) einer Textdatei als Variable speichern.

for /f "tokens=* delims= " %%a in (Datei.txt) do (  
	set /a N+=1
	set v!N!=%%a
	set vLineThree=!v3!
	)

Leider durchläuft dieser Code unnötig jede Zeile der ganzen Textdatei, was Zeit usw. kostet.
Ist es möglich gezielt einfach die x. Zeile auszulesen?
Danke für Eure Hilfe

Hallo xtrollra!

Etwa so:

set "Line=3"  
for /f "tokens=1* delims=]" %%i in ('find /n /v "§§§§§§"^<Datei.txt^|findstr /b "\[%Line%\]"') do set "vLineThree=%%j"  
if not defined vLineThree echo Zeile %Line% leer oder nicht vorhanden!