Tabelle aus Einträgen in TXT-Dateien

Hallo,
ich suche nach einer Lösung, in Textdateien in einem Ordner nach Einträgen zu suchen und diese Einträge dann in einer Excel-Tabelle auszugeben.
Die Textdateien sind Logausgaben von Pingtasks
Das Ende der Textdateien hat folgenden Aufbau, abhängig vom Ergebnis der Pings:
Dateiname , Ping nicht erfolgreich: (System-1.txt )
-----------------------------------------Datei-Inhalt-----------
.
.
Neuer Logeintrag vom: 01.12.2013 07:43:19
Ping wird ausgefhrt fr 192.168.44.101 mit 32 Bytes Daten:
Zeitberschreitung der Anforderung.
Zeitberschreitung der Anforderung.
Zeitberschreitung der Anforderung.
Zeitberschreitung der Anforderung.
Ping-Statistik fr 192.168.44.101:
Pakete: Gesendet = 4, Empfangen = 0, Verloren = 4
(100% Verlust),
----------------------------------------Datei-Ende--------------
Dateiname , Ping erfolgreich: (System-2.txt )
-----------------------------------------Datei-Inhalt-----------
.
.
Neuer Logeintrag vom: 01.12.2013 07:52:07
Ping wird ausgefhrt fr 192.168.60.101 mit 32 Bytes Daten:
Zeitberschreitung der Anforderung.
Antwort von 192.168.60.101: Bytes=32 Zeit=177ms TTL=28
Antwort von 192.168.60.101: Bytes=32 Zeit=187ms TTL=28
Antwort von 192.168.60.101: Bytes=32 Zeit=181ms TTL=28
Ping-Statistik fr 192.168.60.101:
Pakete: Gesendet = 4, Empfangen = 3, Verloren = 1
(25% Verlust),
Ca. Zeitangaben in Millisek.:
Minimum = 177ms, Maximum = 187ms, Mittelwert = 181ms
----------------------------------------Datei-Ende--------------
Die Tabelle sollte dann folgenden Aufbau haben:
Dateiname , Neuer Logeintrag vom , Ergebnis
System1.txt , 01.12.2013 07:43:19 , 100% Verlust
System2.txt , 01.12.2013 07:52:07 , Minimum = 177ms, Maximum = 187ms, Mittelwert = 181ms
Ich bin in dem Gebiet leider totaler Anfänger und bin über jeden Tip dankbar.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datei_importieren() 'Code stammt in Teilen aus der Feder von 'Alfons Seeberger, Rüsingstr. 83, 44894 Bochum 'E -Mail: page456@ web.de Dim Datei As String, Text As String Dim txtZe As Long Dim ze As Long On Error GoTo Fehler Datei = "C:\Temp\test.txt" 'hier Speicherort der Textdatei anpassen Open Datei For Input As #1 txtZe = 1 ze = 2 Do While Not EOF(1) Line Input #1, Text Debug.Print Text If InStr(1, Text, ": (") Then Cells(ze, 1) = Replace(Mid(Text, InStr(1, Text, "(") + 1, 99), " )", "") End If If InStr(1, Text, "Neuer Logeintrag") Then Cells(ze, 2) = Replace(Text, " Neuer Logeintrag vom:", "") End If If InStr(1, Text, "(100%") Then Cells(ze, 3) = Replace(Replace(Text, "(", ""), ")", "") ze = ze + 1 End If If InStr(1, Text, "Minimum") Then Cells(ze, 3) = Text ze = ze + 1 End If txtZe = txtZe + 1 Loop Close #1 Exit Sub Fehler: Close #1 MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _ & "Beschreibung: " & Err.Description _ , vbCritical, "da ist leider ein Fehler aufgetreten" End Sub

Sub Alle_txt_Dateien_importiern() Const strPfad$ = "C:\log\" Set fso = CreateObject("Scripting.FileSystemObject") strFile = Dir(strPfad & "*WP*.txt", vbNormal) Rw = Cells(Rows.Count, 2).End(xlUp).Row Do Until Len(strFile) = 0 Cells(Rw, "A").Value = strFile Set FileIn = fso.OpenTextFile(strPfad & strFile, 1, False, True) If Not FileIn.AtEndOfStream Then For Each Line In Split(FileIn.ReadAll, vbNewLine) Cells(Rw, "B") = Line Rw = Rw + 1 If InStr(Line, "Warnings: None") > 0 Then Exit For Next End If Rw = Rw + 1 'Zeilenabstand nach Datei FileIn.Close strFile = Dir$ Loop Columns("A:B").AutoFit End Sub

Beliebteste Forumthreads (12 Monate)

Tabelle aus Einträgen in TXT-Dateien

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle aus Einträgen in TXT-Dateien

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread