Hallo

warum speichert runtime meinen string nicht in einer csv?

Iich habe eine E/A-feld eingefügt und dieser die hmivariable "Bezeichnung" zugeordnet. Dann rufe ich durch eine Schaltfläche folgendes script auf aber irgendwie passiert nix...

'Declaration of local tags - Deklaration von lokalen Variablen
Dim fso, f, ts, path, Screen_Name
'Definition of file extension - Definition der Datei-Extension



path = "C:\Logs" & "\" & "Daten.csv"

'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)

Set ts = f.OpenAsTextStream(2, -1)

'Write values into the file - Werte in die Datei schreiben
ts.WriteLine(SmartTags("Bezeichnung"))

'Close file - Datei schließen
ts.Close
Set ts = Nothing
Set f = Nothing
Set fso = Nothing

Hallo,

an welcher Plattform arbeitest du:

* Comfortpanel

* WinCC Advanced Runtime

* WinCC Professional Runtime

Mfg
mm76

Hallo wincb,

ich habe dein Script 1:1 in ein neues Projekt bei mir kopiert (nur die Variable, E/A-Feld, Skript und Button konfiguriert).

Bei mir hat es funktioniert. Allerdings musste dazu die Datei existieren - sonst hat es nicht getan.

Hast Du einen Debugger installiert? Sonst könntest du den Mal anwerfen.

Hallo,

hab gesehen, dass das Thema gelöst ist.

Nur als Tipp: Du kannst beim Öffnen der Datei mit einem Parameter angeben, ob diese bei Bedarf erstellt werden soll, dadurch wird der Code um einiges kürzer:

'tags
Dim fs, file

'create file (2 = ForWritting, True = CreateFile, if doesn't exists)
Set fs = CreateObject("Scripting.FileSystemObject")
Set file = fs.OpenTextFile("C:\Logs\Daten.csv", 2, True)
   
'write data
file.WriteLine (SmartTags("Bezeichnung"))

'close file and de-allocate of memory 
file.Close
Set file = Nothing
Set fs = Nothing

Mfg
mm76

Nochmals zur Info:

Set file = fs.OpenTextFile("C:\Logs\Daten.csv", 2, True)

-> erstellt eine neue leere Datei (=ForWriting)

Set file = fs.OpenTextFile("C:\Logs\Daten.csv", 8, True)

-> öffnet eine bestehende Datei und hängt die Daten an (=ForAppending)