Textpasagen aus einer .txt-Datei finden und rausfinden

Hallo Leute,

ich habe folgendes Problem:

Ich habe eine riesen .txt-Datei. Hier gibt es immer Absätze, die sich wiederholen. Beispiel:

<a> ....bla bla bla </a>
<a> ....123 </a>
<a> ....????? </a>
<a> ....blupp</a>

Ich brauche nun ein Programm/Funktion, die das ganze Dokument nach folgenden Textpasagen absucht <a> [Test/Zeichen] </a> und mir dann diese jeweils rausgibt.

Ich bedanke mich schonmal im Voraus für eure Hilfe.

Magic09

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

Content-ID: 124024

Url: https://administrator.de/forum/textpasagen-aus-einer-txt-datei-finden-und-rausfinden-124024.html

Ausgedruckt am: 16.06.2025 um 09:06 Uhr

4 Kommentare

Neuester Kommentar

Hi,

Einstieg gleich mit Doppelpostings. Die Regeln sind wohl uninteressant?

Entschuldigt. Ich dachte beim ersten Mal hätte das Posting nicht geklappt. Brauche wirklich dringend Hilfe.

Wäre schön, wenn ihr trotzdem helfen könntest!

Danke

Ich verstehe dein Problem nicht wirklich.. aber hilft dir strg+f denn nicht weiter? : E

Hallo Magic09 und willkommen im Forum!

Ich nehme an, Du möchtest alle enthaltenen "Links" aus der "Riesen.txt" extrahieren - falls ja, kannst Du es mit diesem VBScript versuchen:

FilePath = "D:\Riesen.txt"  
Suffix = "-Links.txt"  
LookFor = "<a>.*</a>"  

Set fso = CreateObject("Scripting.FileSystemObject")  
If Not fso.FileExists(FilePath) Then WScript.Quit

T = fso.OpenTextFile(FilePath).ReadAll

Set rE = New RegExp
rE.Global = True
rE.IgnoreCase = True
rE.Pattern = LookFor

ResultPath = fso.GetParentFolderName(FilePath)
If Right(ResultPath, 1) <> "\" Then ResultPath = ResultPath & "\"  
Set ResultFile = fso.CreateTextFile(ResultPath & fso.GetBaseName(FilePath) & Suffix, True)

Set Matches = rE.Execute(T)
For Each Match In Matches
    ResultFile.WriteLine Match
Next

Damit wird eine Datei mit dem Zusatz "-Links.txt" mit allen Fundstellen erzeugt.

[Edit] Soferne mehrere Fundstellen in einer Zeile enthalten sind, könnte folgender Ersatz für die Zeile 3 dafür sorgen, dass alle einzeln erfasst werden: