Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

Problem - overwriting txt / csv file WinCC Advanced V13 - PC Station

Created by: Marcel.Brinhano at: 12/11/2014 6:58 PM (3 Replies)

Rating (2)

Thanks 3

4 Entries

12/11/2014 6:58 PM	Rate (0)
Marcel.Brinhano Posts: 2 Rating: (0)	Hi guys. I am using a srcipt to write data to txt / csv, material, temperature, pressure. However need to keep track of the saved files. The example I got: http://support.automation.siemens.com/WW/view/en/26106419 When you save a new record, it overwrites the previous record. Would anyone can help me. Script VBS Sub Write_data() 'Declaration of local tags - Deklaration von lokalen Variablen Dim fso, f, ts, path, i 'Definition of file extension - Definition der Datei-Extension If bExtension = 0 Then path = "c:\textfile.txt" Else path = "c:\textfile.csv" End If 'Error Routine - Fehlerroutine On Error Resume Next 'Create object - Objekt erstellen Set fso = CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If 'if no file exist a text file will be created – Datei erstellen, wenn kein vorhanden If Not fso.FileExists(path) Then fso.CreateTextFile path End If Set f = fso.GetFile(path) If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If Set ts = f.OpenAsTextStream(2, -2) If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If 'Write values into the file - Werte in die Datei schreiben ts.WriteLine("material; " & SmartTags("szMaterial") & ";") ts.WriteLine("pressure; " & SmartTags("iPressure") & "; mbar;") ts.WriteLine("temperature; " & SmartTags("iTemperature") & "; °C;") ts.WriteLine(i) 'Close file - Datei schließen ts.Close Set ts = Nothing Set f = Nothing Set fso = Nothing ShowSystemAlarm "Storage of the data was successful!" End Sub
Marcel.Brinhano Posts: 2 Rating: (0)	Last edited by: Marcel.Brinhano at: 12/11/2014 7:03 PM
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users UDT

12/11/2014 7:04 PM	Rate (1)
dmleone Posts: 21 Rating: (2)	Not sure if valid Set ts = f.OpenAsTextStream(2, -2) should be Set ts = f.OpenAsTextStream(8, 2) optin 2 instead of 8 is for OVERwriting http://msdn.microsoft.com/en-us/library/aa265341%28v=vs.60%29.aspx
dmleone Posts: 21 Rating: (2)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users serhat_ates

12/12/2014 4:21 PM	Rate (0)
Marcel.Brinhano Posts: 2 Rating: (0)	Set ts = f.OpenAsTextStream(8, -2) Solve my problem Thx dmeleone
Marcel.Brinhano Posts: 2 Rating: (0)	Last edited by: Marcel.Brinhano at: 12/12/2014 4:22 PM
Suggestion To thank Quote Answer

8/7/2015 3:43 PM	Rate (1)
Min_Moderator Platinum Member Joined: 9/3/2014 Last visit: 3/13/2019 Posts: 4766 Rating: (122)	New question published by mnabaes is split to a separate thread with the subject Wincc TIA Portal V13, save data in a txt file with VB Script. Best regards Min_Moderator

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users serhat_ates

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on