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-ID: 80056

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

Ausgedruckt am: 22.11.2024 um 19:11 Uhr

bastla
bastla 06.02.2008 um 14:35:17 Uhr
Goto Top
Hallo Ironbar!

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

Grüße
bastla
Ironbar
Ironbar 06.02.2008 um 14:56:00 Uhr
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?
bastla
bastla 06.02.2008 um 15:02:20 Uhr
Goto Top
Hallo Ironbar!

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

Grüße
bastla
Ironbar
Ironbar 06.02.2008 um 15:10:29 Uhr
Goto Top
Jetzt noch die If-Schleife und dann sollte es klappen.

Danke Dir noch mal.