Hallo,
getestet habe ich das Programm mit WinnCC flexible Runtime Simulator und da hat alles so funktioniert wie es sollte, sprich csv Datei wurde erstellt und auch reingeschrieben. nur in der Anlage macht er es nicht außer das eine Fehlermeldung kommt das in Zeile 12 in Variablen_schreiben ein Fehler ist. Was auch okay ist da er ja nix schreiben kann wenn die csv auch nicht da ist. Wenn ich mir den String online anschaue wird nicht hinein geschrieben oder kann nicht schreiben ich weis es nicht. der String hat eine länge von 100 zeichen.
Archiv_erstellen Typ: Function
'Erstellt eine neue Archivdatei und liefert den Pfadnamen zurück
'
Dim fso, f, ts, Header, FName, Datum, Zeit
'Datums und Zeit als String erzeugen
Datum = CStr(DatePart("d",Date)) & "_" & CStr(DatePart("m",Date)) & "_" & CStr(DatePart("yyyy",Date))
Zeit = CStr(DatePart("h",Now)) & "_" & CStr(DatePart("n",Now))
'Dateinamen erzeugen
FName = Ablagepfad & Dateiname & "_" & Datum & "_" & Zeit & ".csv"
'Tabellenkopf zusammenstellen
Header = "Zeit;Variable;Wert" & Chr(10)
'FileSystemObject erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
'Prüfen ob das Verzeichnis vorhanden ist
If Not fso.FolderExists(Ablagepfad) Then
SetBit SmartTags("Pfad not OK")
Else
ResetBit SmartTags("Pfad not OK")
End If
' Wenn Datei noch nicht vorhanden ist, dann wird eine Datei erzeugt
If Not fso.FileExists(FName) Then
fso.CreateTextFile FName
'File Objekt erzeugen
Set f = fso.GetFile(FName)
'Datei zum anhängen öffnen
Set ts = f.OpenAsTextStream(8, -2)
'Pfad- & Dateiname und Tabellenkopf in die Datei schreiben
ts.WriteLine(FName)
ts.WriteLine(Header)
'Datei schließen
ts.Close
End If
'Pfad der erzeugten Datei zurückliefern
Archiv_erstellen =FName
'Schreibt die Variablen Druck,Temperatur und Sollwert an das Ende einer
'vorher erzeugten Archivdatei
'
Variablen_schreiben Typ:Sub
Dim fso, f, ts, Datum, Zeit
Datum = CStr(DatePart("d",Date)) & "." & CStr(DatePart("m",Date)) & "." & CStr(DatePart("yyyy",Date))
Zeit = CStr(DatePart("h",Now)) & ":" & CStr(DatePart("n",Now)) & ":" & CStr(DatePart("s",Now))
'FileSystemObject erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
'File Objekt erzeugen
Set f = fso.GetFile(FName)
'Datei zum anhängen öffnen
Set ts = f.OpenAsTextStream(8, -2)
' Werte der Variablen in die Archivdatei schreiben (Parameter "TagName"z.B. Tag_01)
ts.WriteLine(Datum & " " & Zeit & ";" & "Druck" & ";" & CStr(SmartTags("DB_MW.Druck1")))
ts.WriteLine(Datum & " " & Zeit & ";" & "Temperatur" & ";" & CStr(SmartTags("DB_MW.Temperatur_Mittelwert1")))
ts.WriteLine(Datum & " " & Zeit & ";" & "Sollwert" & ";" & CStr(SmartTags("Daten Autoklave.SW_Temp_Programm_akt")))
ts.WriteLine(Datum & " " & Zeit & ";" & "Sollwert Grenze Max" & ";" & CStr(SmartTags("DB_GW.GW_Berechnet_Temp_Max")))
ts.WriteLine(Datum & " " & Zeit & ";" & "Sollwert Grenze Min" & ";" & CStr(SmartTags("DB_GW.GW_Berechnet_Temp_Min")))
'Datei schließen
ts.Close