Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Tabelle aus Einträgen in TXT-Dateien
zurück: Code bearbeiten weiter: Excel AddIns mit Visual Studio 2013 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
CarstenR
Neuling


Verfasst am:
01. Dez 2013, 09:34
Rufname:

Tabelle aus Einträgen in TXT-Dateien - Tabelle aus Einträgen in TXT-Dateien

Nach oben
       

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 )
Code:
-----------------------------------------Datei-Inhalt-----------
.
.
Neuer Logeintrag vom: 01.12.2013 07:43:19

Ping wird ausgefhrt fr 192.168.44.101 mit 32 Bytes Daten:
Zeitberschreitung der Anforderung.
Zeitberschreitung der Anforderung.
Zeitberschreitung der Anforderung.
Zeitberschreitung der Anforderung.

Ping-Statistik fr 192.168.44.101:
    Pakete: Gesendet = 4, Empfangen = 0, Verloren = 4
    (100% Verlust),
----------------------------------------Datei-Ende--------------
Dateiname , Ping erfolgreich: (System-2.txt )
Code:
-----------------------------------------Datei-Inhalt-----------
.
.
Neuer Logeintrag vom: 01.12.2013 07:52:07

Ping wird ausgefhrt fr 192.168.60.101 mit 32 Bytes Daten:
Zeitberschreitung 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 fr 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:
Code:
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.
Gast



Verfasst am:
01. Dez 2013, 18:19
Rufname:


AW: Tabelle aus Einträgen in TXT-Dateien - AW: Tabelle aus Einträgen in TXT-Dateien

Nach oben
       

Unter der Annahme, das '----------------------------------------Datei-Ende-------------- ' nicht zur Textdatei gehört und
das 'Neuer Logeintrag vom: …' nur einmal vorkommt und das alle txt-Dateien im Pfad das richtige Format haben, als Beispiel ein VBA-Code:
Code:
Sub test()
    Dim t As String
    Dim tmpArr() As String
    Dim Datei As String
    Dim Pfad As String
    Dim ze As Long, sp As Long, i As Long
   
    Pfad = "d:\#3\" ' <--- Pfad anpassen. \ am Ende!
    Cells(1, 1) = "Dateiname": Cells(1, 2) = "Neuer Logeintrag vom"
    Cells(1, 3) = "Ergebnis"
    ze = 3
    Datei = Dir$(Pfad & "*.txt")
    While Len(Datei)
        Open Pfad & Datei For Input As #1
        While Not EOF(1)
            Line Input #1, t
            If InStr(t, "Neuer Logeintrag") Then
                Cells(ze, 1) = Datei
                Cells(ze, 2) = Mid$(t, InStr(t, ":") + 1)
            End If
        Wend
        tmpArr = Split(t, ",")
        For i = 0 To UBound(tmpArr)
            Cells(ze, i + 3) = tmpArr(i)
        Next i
        Close
        ze = ze + 1
        Datei = Dir$
    Wend
    MsgBox "Fertig"
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Visual Studio und dotNet Forum: Serienmail mit E-Mail Adressen aus einer Tabelle mit Outlook 0 heli1957 388 19. Jan 2014, 15:32
heli1957 Serienmail mit E-Mail Adressen aus einer Tabelle mit Outlook
Keine neuen Beiträge Visual Studio und dotNet Forum: Excel Tabelle mi VB ausgeben ?! 1 Julian.G95 995 08. Aug 2013, 08:28
lothi Excel Tabelle mi VB ausgeben ?!
Keine neuen Beiträge Visual Studio und dotNet Forum: mit VB Excel Tabelle füllen 2 schnorklunder 1570 09. Mai 2012, 17:52
schnorklunder mit VB Excel Tabelle füllen
Keine neuen Beiträge Visual Studio und dotNet Forum: Daten an Access Tabelle binden (VB, Anfänger, Codekontrolle) 0 beat78 932 25. Feb 2012, 14:23
beat78 Daten an Access Tabelle binden (VB, Anfänger, Codekontrolle)
Keine neuen Beiträge Software Forum (Sonstige Software): Tabellen in Tabelle einfügen(HTML) 2 D.R 2525 10. Feb 2006, 14:52
schleudertrauma Tabellen in Tabelle einfügen(HTML)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS