Bestimmten Text aus Datei auslesen und in eine andere Schreiben

[wissensdurstxxl]

Hallo,

habe das vergnügen mich VB zu befassen und gleich ein für mich noch Übermächtiges Problem lösen zu dürfen.

Ich habe eine Logdatei.TXT in der sind die Spalten wie folgt aufgebaut:
Datum;PC;User;Wert1;Wert2
für jeden Tag sind ca. 6-8 Einträge vorhanden und dies wird immer weitergeschrieben.

Nun müsste ich abfragen ob von dem gestrigen Tag einträge in der Datei stehen bei denen der Wert1 und 2 = 0 ist und diese Zeiel dann ggf. mit Datum;PC;User;Wert1;Wert2 in eine weitere Textdatei schreiben bzw. was top wäre wenn ich mir eine Mail schicken könnte mit den Werten.

Trotz langem suchen bin ich bisher nicht fündig geworden, hoffe nun hier auf Hilfe.

Gruß

 

[Woll0r]

so mal eben auf die schnelle, aber sollte funktionieren

strinfile = "c:\Logdatei.TXT"
ausgabedatei = "c:\ausgabedatei.TXT"
Open ausgabedatei For Output As #2

Open strinfile For Input As #1
   
   While Not EOF(1)
    Line Input #1, str_inputline
   
  If Left(str_inputline, InStr(1, str_inputline, ";") - 1) = Format(Now - 1, "dd.mm.yyyy") Then
   
    str_cutter = Mid(str_inputline, InStr(1, str_inputline, ";") + 1, Len(str_inputline))
    str_cutter = Mid(str_cutter, InStr(1, str_cutter, ";") + 1, Len(str_cutter))
    
    If str_cutter = "0;0" Then
     Print #2, str_inputline
    End If
  
  End If
    
  Wend
  Close #1
  Close #2