TIA Bestimmte Teile aus Meldearchiv in neue CSV-Datei kopieren

DEWA

Member
Beiträge
10
Punkte Reaktionen
0
Zuviel Werbung?
->Hier kostenlos registrieren
Hallo zusammen,

ich habe folgendes Problem.
Ich soll ein Skript schreiben, welches das befüllen des Meldearchives beendet, die Eintäge in eine weitere CSV schreiben.
Anschließend die Aufzeichnung wieder Starten.

Kniff dabei ist es nur Datum/Zeit/Meldetext aus dem Archiv zu ziehen.

Mein Wissenstand bezogen auf Skripte hält sich sehr in Grenzen...
Hab mir aber schon mal ein paar Anregungen geholt und schonmal ein Grundgerüst entworfen so wie ich es mir denke.

Steuerung ist eine 1214 und Panel ein KTP400 Comfort.

Bin für jede Hilfe dankbar.

Code:
Sub VBFunktion_1()

'Variablen definieren

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, f,  temp, Filepath,i, 
Set fs = CreateObject ("FileCtl.Filesystem")
Set f = CreateObject ("FileCtl.File") 


'Alle Archive stoppen
CloseAllLogs

'Pfad erzeugen
Filepath = "\Storage Card SD\QuickTOC\" & "Meldungen" & ".csv" 

 'Verzeichnis erzeugen
If fs.dir("\Storage Card SD\QuickTOC\") = "" Then 
    fs.mkdir("\Storage Card SD\QuickTOC\")  
End If    

'Tabellenkopf anlegen
If fs.Dir(Filepath) = "" Then   
   f.Open Filepath, ForAppending     
   f.lineprint "Datum;Zeitstempel;" &_
                   "Meldetext;"          
   f.close
End If


'CSV Einlesen
'Zeile auslesen
For i = 1 To 50000
   data = fo.LineInputString
Next

'neue CSV beschreiben
f.Open Filepath, ForAppending
f.LinePrint FormatDateTime(Date,2) & ";" & FormatDateTime(Time,3) & ";" & "Meldetext"  & ";" 
f.Close

'Daten In Datei schreiben
 
OpenAllLogs
End Sub
 
Oben