Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 12 von 12

Thema: Wincc flexible 2008 CSV Datei schreiben per Script

  1. #11
    Registriert seit
    22.06.2009
    Ort
    Sassnitz
    Beiträge
    10.785
    Danke
    884
    Erhielt 3.160 Danke für 2.560 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Zitat Zitat von olmuk Beitrag anzeigen
    Das Script wird nun mit Start der Prüfung ( M13.0 ) aufgerufen und mit CPU-Takt 1 sek getriggert.
    Das erzeugt leider dopplete Einträge - hat hier jemand eine Idee ?
    Am einfachsten Du prüfst am Anfang des Skriptes, ob es das 0-1-Ereignis der Wertänderung des CPU-Taktes ist:
    Code:
    If Not SmartTags("AM: Prf running") Or Not SmartTags("M: CLOCK: 1S / 1Hz") Then
        Exit Sub
    End If
    Harald
    Es ist immer wieder überraschend, wie etwas plötzlich funktioniert, sobald man alles richtig macht.

    FAQ: Linkliste SIMATIC-Kommunikation über Ethernet

  2. #12
    olmuk ist offline Benutzer
    Themenstarter
    Registriert seit
    15.03.2011
    Beiträge
    47
    Danke
    13
    Erhielt 5 Danke für 4 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo,

    anbei das funktionierende Script :

    Code:
    '*** Daten aus Prüfung in Datei schreiben       ***
    '    Informationen als Header und Abfrage ob
    '    Ordner Speicherort vorhanden
    '    UJ / 02.09.2016
    '**************************************************
    '
    Const ForAppend = 8
    Dim fso, f, file, myfile, path
    
    
    myfile = SmartTags("DB: TEXTLISTEN.Dateinamen")
    path = "C:\Checkdata\"
    file = path & myfile & ".csv"
    
    'Objekt erstellen
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'Abfrage Ordner vorhanden, wenn nicht dann erzeugen
    If Not fso.FolderExists("c:\Checkdata") Then 
        fso.CreateFolder("c:\Checkdata")
    End If
    
    If Not fso.FileExists (file) Then 
        Set f = fso.CreateTextFile(file, True)
        f.WriteLine(" Dateiname :  ; " & SmartTags("DB: TEXTLISTEN.Dateinamen") & ";")
        f.WriteLine(" Datum     :  ; " & Date & ";")   
        f.WriteLine SmartTags("DB: TEXTLISTEN.Kommentar1") & ";"
        f.WriteLine SmartTags("DB: TEXTLISTEN.Kommentar2") & ";"
        f.WriteLine(" ; " & ";")
        f.WriteLine(" Zeitachse [ sek ]; " & " Temperatur [ °C ]; " & " Istdruck [ mbar ];" & " Solldruck [ mbar ];" & " Ölniveau [ 0/1 ];" & ";")
    End If
    
    If fso.FileExists (file) Then
        Set f = fso.OpenTextFile(file, ForAppend)
        f.WriteLine SmartTags("DB: INST TIMER GESAMT.TON_GESAMT.ET") & ";" & SmartTags("DB: BERECHNUNGEN.Istwert_Temp_RND") & ";" & SmartTags("DB: DATA TEMP SEQ 2 W.Anzeige_Drucksensor") & ";" & SmartTags("DB: DATA TEMP SEQ 2 W.Sollwert_PropVentil_PRF") & ";" & SmartTags("DB: BERECHNUNGEN.Status_Oelstand")
        f.Close
    End If
    Danke für die Hilfen !!

    Gruss Uwe

  3. Folgende 2 Benutzer sagen Danke zu olmuk für den nützlichen Beitrag:

    DeltaMikeAir (01.09.2016),Lord_Anubis (01.09.2016)

Ähnliche Themen

  1. Antworten: 7
    Letzter Beitrag: 02.06.2016, 12:24
  2. Step 7 Wincc Flexible CSV Datei erstellen
    Von Junge im Forum Simatic
    Antworten: 6
    Letzter Beitrag: 17.08.2015, 12:40
  3. Antworten: 7
    Letzter Beitrag: 27.02.2015, 17:04
  4. WINCC flex - Daten in csv-Datei schreiben
    Von dirknico im Forum HMI
    Antworten: 8
    Letzter Beitrag: 02.12.2013, 11:39
  5. Antworten: 1
    Letzter Beitrag: 02.03.2009, 13:04

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •