SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

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 Posts: 4758 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
Min_Moderator Posts: 4758 Rating: (122)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users serhat_ates

Share this page:

Share this page on...

SiePortal

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

Marcel.Brinhano

Last edited by: Marcel.Brinhano at: 12/11/2014 7:03 PM

This contribution was helpful to

dmleone

This contribution was helpful to

Marcel.Brinhano

Last edited by: Marcel.Brinhano at: 12/12/2014 4:22 PM

Min_Moderator

This contribution was helpful to

4 Entries

Related topics by keywords:

Follow us on

SiePortal

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

Marcel.Brinhano

Last edited by: Marcel.Brinhano at: 12/11/2014 7:03 PM

This contribution was helpful to

dmleone

This contribution was helpful to

Marcel.Brinhano

Last edited by: Marcel.Brinhano at: 12/12/2014 4:22 PM

Min_Moderator

This contribution was helpful to

4 Entries

Related topics by keywords:

Follow us on

Rating (2)

Thanks 3