Dim fso, f, ts, DataSet, Header, FName, Druckzwischenspeicher1, Druckzischenspeicher2, i
' Archivierungspfad (Eingangsparameter) und Dateiname zusammensetzen
' Combine archivepath (input parameter) an filename
FName = StoragePath & "\" & CStr(SmartTags("Auftragsnummer")) & "_" & CStr(DatePart("d",Date)) & CStr(DatePart("m",Date)) & "_" & CStr(DatePart("yyyy",Date)) & ".csv"
' Tabellenkopf zusammenstellen (Spalten Tag_10; Tag_11 usw.)
' Create table header (Column for Tag_10; Tag_11 and so on)
Header = "Storage Time;Anlagenbediener;Auftragnummer;Artikelnummer;Artikelbezeichnung;Losgrösse;Druck0;Druck1" & Chr(10)'Char (10) entspricht Zeilenvorschub
' FileSystemObject erstellen
' Create FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' Wenn Datei noch nicht vorhanden ist, dann wird eine Datei erzeugt
' if the file does not exist, then create a file
If Not fso.FileExists(FName) Then
fso.CreateTextFile FName
Set f = fso.GetFile(FName)
' Datei dem Skript als Objekt zur Verfügung stellen
' File as Object available for script
Set ts = f.OpenAsTextStream(8, -2)
' Datei öffnen
' open file
ts.WriteLine(FName)
ts.WriteLine(Header)
ts.Close
' Pfad- & Dateiname und Tabellenkopf in die Datei schreiben
' write path- & filename and table header into file
' Datei schließen
' close file
End If
Set f = fso.GetFile(FName)
' Die Archivdatei dem Skript als Objekt zur verfügung stellen
' Archive file as object available for script
Set ts = f.OpenAsTextStream(8, -2)
' Die Datei öffnen
' Open file
' Werte der Variablen in die Archivdatei schreiben
' Write values of variables in archive file
ts.Write(CStr(Now) & ";" & CStr(SmartTags("Anlagenbediener_Name")) & ";" & CStr(SmartTags("Auftragsnummer"))& ";" & CStr(SmartTags("Artikelnummer")) & ";" & CStr(SmartTags("Artikelbezeichnung"))& ";" & CStr(SmartTags("Losgroesse"))& ";" & CStr(SmartTags("Drucksammlung1.Druck0")))
For i=0 To 20 Step +1
Druckzwischenspeicher1="Drucksammlung1.Druck"&CStr(i)
[COLOR=Red]ts.Write(";" & CStr(Druckzwischenspeicher1))[/COLOR]
Next
ts.WriteLine()
' Datei wieder schließen
' Close file
ts.Close
' Verwendeten Speicher wieder freigeben
' Used storage will be freed
Set ts = Nothing
Set f = Nothing
Set fso = Nothing