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ß

so mal eben auf die schnelle, aber sollte funktionieren

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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