Witam, otóz mam taki kod … i niestety do logów “Clamwin’a” potrzeba trochę więcej… otóż :
Program czyta od końca logi,sprawdza i wycina ostatnie daty aktualizacji … jednakże jest on na tyle upierdliwy że w momencie niepowodzenia także pisze wszystkie daty …Daty sa oddzielone “---------------” ciągiem znaków ;p… moje pytanie jak zrobić aby zaczął szukać od ostatniego ciągu znaków i jeśli pojawi sie tam “update failed” przeskoczy do poprzedniej (all od konca :P)
Imports System
Imports System.IO
Imports System.Collections
Module Module1
Sub main()
Dim NR As Integer = FreeFile()
Dim Slowo1 As String = "ClamAV"
Dim slowo2 As String = "Daily"
Dim PozycjaSlowa As Integer = 0
Dim readText() As String = File.ReadAllLines("c:\ClamUpdateLog.txt")
System.Array.Reverse(readText)
For X As Integer = 0 To readText.Length - 1
PozycjaSlowa = InStrRev(readText(X), Slowo1)
If PozycjaSlowa > 0 Then Console.WriteLine("Wiersz nr " & CStr(X) & ": " & readText(X))
PozycjaSlowa = 0
Next
For X As Integer = 0 To readText.Length - 1
PozycjaSlowa = InStrRev(readText(X), Slowo2)
If PozycjaSlowa > 0 Then Console.WriteLine("Wiersz nr " & CStr(X) & ": " & readText(X))
PozycjaSlowa = 0
Next
Console.ReadLine()
End Sub
End Module