Hallo,
ich habe jetzt die Siemens Skripte mal abgeändert vielleicht kann da mal jemand drüberschauen und mir sagen ob das so funktionieren könnte.
Skript Schreiben:
Dim f
Dim fwModeAppend
'Daten in die Datei schreiben
fwModeAppend = 8
'Object erzeugen
Set f = CreateObject("FileCtl.File")
'Datei öffnen/anlagen
f.Open "\Storage Card2\Daten.csv",fwModeAppend
'Var schreiben
f.LinePrint SmartTags("Stop_Taster_Eltako_verzögert")
f.linePrint "Datum;Zeit;Auftragsnummer;Artikelnummer"
f.LinePrint Date&";"&Time&";"&"Arbeits_DB.Auftragsnummer"&";"&"Arbeits_DB.ArtikelNummer"
'Datei schließen
f.Close
Set f = Nothing
'Rückgabe
SmartTags("quittung") = "Datei angelegt und beschrieben"
Skript Lesen:
Dim f
Dim fwMode
Dim varListe
'Daten aus Datei lesen
fwMode = 1
'Object erzeugen
Set f=CreateObject("FileCtl.File")
'Datei öffnen/anlagen
f.Open "\Storage Card2\Daten.csv",fwMode,1
'Var aus Datei lesen
'erste Zeile einfach nur einlesen und unverarbeitet überspringen
varListe = f.LineInputString
'ab hier 2. Zeile einlesen
'split zerlegt einen langen String in mehrere kleinere Strings immer wenn das Trennzeichen
'im langen String auftaucht.
varListe = Split(f.LineInputString,";")
'varListe ist nun ein Array von Strings, die nun den Variablen zugewiesen werden können
Archiv_Datum=varListe(0)
Archiv_Zeit=varListe(1)
Archiv_Auftragsnummer=varListe(2)
Archiv_Artikelnummer=varListe(3)
'Datei schließen
f.Close
Set f = Nothing
'Rückgabe
SmartTags("quittung") = "Datei gelesen"
Skript löschen:
Dim f
Dim a
'Object erzeugen
Set f=CreateObject("FileCtl.FileSystem")
'Datei löschen
f.Kill "\Storage Card2\Daten.csv"
Set f = Nothing
'Rückgabe
SmartTags("quittung") = "Datei gelöscht"
gruß Marc