LogFile Auswerten mit VBS und Access

  • Allgemein

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Unknown.

    LogFile Auswerten mit VBS und Access

    Hallo

    ich habe vor 4 tagen mit VBS angefanngen und soll nun eine Logfile.txt üver VBS ind eine Access bringen und auswerten das habe ich auch schon soweit geschafft nur mein Porbelm besteht darin das der mir alles in die Access schreibt.

    Ich möchte das so haben das der Computername dort steht , die IP , der Anfangszeitraum, Das ende der Session und dann die gesammte Zeit des Log´s.

    den VBS und die LOG habe ich als Dateianhang abgelegt damit ihr euch das mal anschauen Könnt ich hoffe auf eure Hilfe :-)



    Liebe grüsse Zanzi

    Logfile auswerten.vbs.txtlog.txt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „XxZanZarahxX“ ()

    Hier eine kleine Funktion zum auswerten deiner
    Logdaten. Die Funktion gibt die Werte in einem
    Array zurück - und zwar sortiert in der Reihenfolge,
    in der die Schlüsselwörter übergeben worden sind.
    Beachte, dass das erste Schlüsselwort als Schlüssel
    dient:

    VB.NET-Quellcode

    1. Function DateiAuswerten(ByVal vDateiname, _
    2. ByRef vSchluesselwoerter(), _
    3. ByRef vWerte())
    5. Const ForReading = 1
    7. Dim objFSO
    8. Dim objDatei
    9. Dim vTexzeile
    10. Dim vWert
    11. Dim vAnzahlWerte
    12. Dim vIndexWert
    13. Dim i
    16. Set objFSO = CreateObject("Scripting.FileSystemObject")
    17. Set objDatei = objFSO.OpenTextFile(vDateiname, ForReading, False)
    19. ReDim vWerte(0)
    20. While Not objDatei.AtEndOfStream
    21. vTextzeile = objDatei.ReadLine()
    23. If Len(vTextzeile) > 0 Then
    24. For i = 0 To UBound(vSchluesselwoerter)
    25. If InStr(1, vTextzeile, vSchluesselwoerter(i)) <> 0 Then
    26. vWert = Mid(vTextzeile, _
    27. InStr(1, vTextzeile, vSchluesselwoerter(i)) + _
    28. Len(vSchluesselwoerter(i)))
    30. If i = 0 Then
    31. ReDim Preserve vWerte(vAnzahlWerte + UBound(vSchluesselwoerter))
    32. vIndexWert = vAnzahlWerte
    33. vAnzahlWerte = vAnzahlWerte + UBound(vSchluesselwoerter) + 1
    34. End If
    36. vWerte(vIndexWert + i) = vWert
    37. End If
    38. Next
    39. End If
    40. Wend
    42. If vAnzahlWerte = 0 Then Erase vWerte
    43. DateiAuswerten = (vAnzahlWerte > 0)
    44. End Function


    Wenn die Funktion keine Werte findet, gibt sie False
    zurück. Benutzten kannst du sie z.B. so:

    VB.NET-Quellcode

    1. If Not DateiAuswerten("log.txt", _
    2. Array(" Schluessel: ", " Wert1: ", " Wert2: "), _
    3. vWerte) Then
    4. MsgBox "Keine Werte im Logfile gefunden"
    5. WScript.Quit
    6. End If
    8. For i = 0 To UBound(vWerte)
    9. MsgBox vWerte(i)
    10. Next


    Um eine Logdatei die so aussieht:

    Quellcode

    1. UHRZEIT; Schluessel: Name1
    2. UHRZEIT; Wert1: TestWert1
    3. UHRZEIT; Wert2: TestWert2
    4. UHRZEIT; <Andere Nachricht>
    5. UHRZEIT; <Andere Nachricht>
    6. UHRZEIT; Schluessel: Name2
    7. UHRZEIT; Wert2: TestWert4
    8. UHRZEIT; Wert1: TestWert3


    auszuwerten und folgende Ausgabe zu erhalten:

    Quellcode

    1. Name1
    2. TestWert1
    3. TestWert2
    4. Name2
    5. TestWert3
    6. TestWert4