ironbar
Goto Top

Textzeile mit Datum und Zeit aus einer TxT Datei Lesen

Hallo.

Habe ein Problem und komme nicht weiter:

Erstelle mit einer Batchscript eine Logdatei mit folgendem Inhalt:
06.02.2008 13:31:54,19

Dies steht alles in der ersten Zeile.

Ich würde nun gerne das Datum 10 Zeichen und die Zeit 8 Zeichen auslesen und in Variablen Speichern. Das ganze soll unter VB6 sein. Diese Daten sollen dann mit der Systemzeit und Systemdatum verglichen werden.

Unten habe ich meine alte Version vom auslesen einer Zeile mit trennung eines =.
Hat einer einen Vorschlag wie das aussehen könnte?

Open Testpr_INI For Input As #1
Do While Not EOF(1)
Line Input #1, Zeile
If Left(Zeile, 1) <> "#" And Zeile <> "" Then
Zeile_Laenge = Len(Zeile)
Zeile_Delimitter_Pos = InStr(1, Zeile, "=")
Zeile_Teil_Links = Left(Zeile, Zeile_Delimitter_Pos - 1)
Zeile_Teil_Rechts = Right(Zeile, Zeile_Laenge - Zeile_Delimitter_Pos)
Select Case Zeile_Teil_Links

Danke schon mal für die Hilfe
Gruß
Iron

Content-Key: 80056

Url: https://administrator.de/contentid/80056

Printed on: April 16, 2024 at 21:04 o'clock

Member: bastla
bastla Feb 06, 2008 at 13:35:17 (UTC)
Goto Top
Hallo Ironbar!

Soferne die Position verlässlich ist:
...
D = Left(Zeile, 10)
T = Mid(Zeile, 12, 8)
...

Grüße
bastla
Member: Ironbar
Ironbar Feb 06, 2008 at 13:56:00 (UTC)
Goto Top
Danke bastla.

Das klappt super.

Kannst Du mir einen Tipp geben wie ich zu der Zeit 13:31:54, 00:30:00 dazu addieren kann?
Member: bastla
bastla Feb 06, 2008 at 14:02:20 (UTC)
Goto Top
Hallo Ironbar!

T = "13:31:54"  
L = DateAdd("n", 30, T)  

Grüße
bastla
Member: Ironbar
Ironbar Feb 06, 2008 at 14:10:29 (UTC)
Goto Top
Jetzt noch die If-Schleife und dann sollte es klappen.

Danke Dir noch mal.