Public Function auslesen_u_extrahieren() As Boolean
 
        Dim tags_split() As String
 
        'Leere Ausgabedatei erstellen
        Dim sw As New StreamWriter(extractfile) 
 
        For Each line As String in File.ReadAllLines(sourcefile)
 
            'Wenn der Searchstring in Zeile enthalten ist, dann ausgeben
            If InStr(line, searchstring) > 0 Then
                tags_split = Split(line, "/")
                sw.WriteLine(extractfile, tags_split(4)) 
            End If
        Next
 
        sw.Close()
 
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist