LOGDATEI DURCHSUCHEN UND DARAUFFOLGENDE ZEILEN KOPIEREN

Habe verschiedene Logfiles, welche unterschiedliche grössen haben können.Jedes files hat abschnitte welche aus 15 zeilen bestehen und immer drei mal die gleiche 18 stellige nummer haben.(Druckbefehl für eine Labeldrucker).

Möchte nu8n mittels VBA ein File mit einer Nummer, von der ich weiss das sie vorkommt, durchsuchen und bei der ersten Zeile die diese nummer hat stoppen, drei zeilen nicht beachten und dann sechs Zeilen kopieren.


die files sehen ungefähr so aus:


2011-10-01 10:25:54.133 MPP INFO Warten auf Antwort des Printers
2011-10-01 10:25:54.742 MPP INFO Printer zugewiesen: false
2011-10-01 10:25:54.742 MPP INFO PrinterData_inquiry zum Markpoint Printer gesendet
2011-10-01 10:25:54.742 MPP INFO InquiryBefehl: !S1

2011-10-01 10:25:54.742 MPP INFO Warten auf Antwort des Printers
2011-10-01 10:25:54.945 MPP INFO Received data:
2011-10-01 10:25:54.945 MPP INFO Printer zugewiesen: false
2011-10-01 10:25:54.961 BPort INFO Opening port to Mettler: COM3
2011-10-01 10:25:54.992 METT INFO BalanceData_inquiry zur Waage gesendet
2011-10-01 10:25:54.992 METT INFO InquiryBefehl: I2

2011-10-01 10:25:54.992 METT INFO Warten auf Antwort der Waage
2011-10-01 10:25:55.195 METT INFO BalanceData_inquiry zur Waage gesendet
2011-10-01 10:25:55.195 METT INFO InquiryBefehl: I2
011-10-01 10:26:01.648 openPPort INFO Opening port to Printer {0} COM6
2011-10-01 10:26:02.414 toprinter INFO sent to printer...123456789123456789 .....................DAS IST DIE ERSTE
LEERZEILE
LEERZEILE
LEERZEILE
!C ....von hier an kopieren
!Y24 60
!Y35 10
!Y42 1
!F C S 55 840 C 240 4 43 " (00) 123456789123456789 (413) ".........................HIER DIE ZWEITE
!F S S 15 930 C 10 12 94029" (00) 123456789123456789 (413) ".......................UND DIE DRITTE
!P2 .... hier aufhören zu kopieren

Hoffe das irgend jemand mir helfen kann

gruss lee

Ein = "D:\Dein.log"  
Aus = "D:\Kopie.txt"  
Such = "123456789123456789"  
Abstand = 3 'Zeilen nach Suchbegriff überspringen  
Anzahl = 6' Zeilen kopieren  

Set fso = CreateObject("Scripting.FileSystemObject")  
T = Split(fso.OpenTextFile(Ein).ReadAll, vbNewline)
Do While i < UBound(T) - Abstand - Anzahl 'nur bis Dateiende - Abstand - Anzahl Zeilen lesen  
    If InStr(T(i), Such) >0 Then 'Suchbegriff in Zeile?  
        i = i + Abstand 'Zeilen überspringen  
        For j = 1 To Anzahl 'angegebene Anzahl von Zeilen ...  
            i = i + 1 'nächste Zeile  
            Ausgabe = Ausgabe & vbNewline & T(i) '... der Ausgabe hinzufügen (mit Zeilenschaltungen)  
        Next
    End If
    i = i + 1 'nächste Zeile  
Loop
fso.CreateTextFile(Aus).Write Mid(Ausgabe, 3) 'ohne Leerzeile am Anfang in Datei schreiben  

Ein = "D:\Dein.log"  
Aus = "D:\Kopie.txt"  
Such = "123456789123456789"  
Abstand = 3 'Zeilen nach Suchbegriff überspringen  
Anzahl = 6' Zeilen kopieren  

Set fso = CreateObject("Scripting.FileSystemObject")  
Set DateiEin = fso.OpenTextFile(Ein)
Set DateiAus = fso.CreateTextFile(Aus)
Do While Not DateiEin.AtEndOfStream 'alle Zeilen der Eingabedatei verarbeiten  
    Zeile = DateiEin.ReadLine 'Zeile einlesen  
    If InStr(Zeile, Such) > 0 Then 'Suchbegriff in Zeile?  
        For i = 1 To Abstand '"Abstand" Zeilen ...  
            DateiEin.SkipLine '... überspringen  
        Next
        For i = 1 To Anzahl '"Anzahl" Zeilen ...  
            DateiAus.WriteLine DateiEin.ReadLine '... einlesen und in die Ausgabedatei schreiben  
        Next
    End If
Loop
MsgBox "Fertig."