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

Ergebnis 1 bis 2 von 2

Thema: VB-Skript Zeile aus CSV-Datei per Selektion durch E/A Feld auslesen

  1. #1
    Registriert seit
    08.07.2015
    Beiträge
    1
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Beitrag


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo Zusammen,

    wir drehen uns seit Tagen im Kreis und erhoffen an dieser Stelle einen Hinweis zum Lösungsansatz.

    Wir wollen eine csv-Datei die im Netzwerk gespeichert ist, mittels VB-Script auf einem Comfort-Panel auslesen. Dabei soll eine Selektion des auszulesenden Datensatzes mittel eines E/A Feldes (Interne Variable) erfolgen. Das heißt in der IF Anweisung soll die "1" durch die Variable des E/A Feldes ersetzt werden. ´Wir haben schon alle möglichen uns bekannten Varianten versucht, aber bis jetzt ohne Erfolg. Datentypen sind in beiden Variablen Int.
    Das Skribt funktioniert nur bei " fester Eingabe" des Artikelcodes.

    Code:
    'Read data from file
    Do While fo.EOF = False
    data=fo.LineInputString
    data=Replace(data,vbTab & vbTab,delimiter)
    splitdata=Split(data,delimiter)
    If "1" = splitdata(0) Then
    SetBitInTag "flak", 1
    Exit Do
    End If
    ResetBitInTag "flak", 1
    Loop
    
    'Write data to HMI-Tags 
    data=Replace(data,vbTab & vbTab,delimiter)
    splitdata=Split(data,delimiter)
    SmartTags("Artikelcode")=splitdata(0)
    SmartTags("U_Nenn")= splitdata(1)
    SmartTags("U_Einschleif")=splitdata(2)
    SmartTags("I_max")=splitdata(3)
    SmartTags("t_ein")=splitdata(4)
    SmartTags("t_aus")=splitdata(5)
    SmartTags("Anzahl")=splitdata(6)
    SmartTags("Momentbereich")=splitdata(7)
    SmartTags("cx")=splitdata(8)
    Ich hoffe ihr könnt uns weiter helfen !!!

    Gruß
    Ralf
    Zitieren Zitieren VB-Skript Zeile aus CSV-Datei per Selektion durch E/A Feld auslesen  

  2. #2
    Registriert seit
    22.06.2009
    Ort
    Sassnitz
    Beiträge
    11.314
    Danke
    932
    Erhielt 3.326 Danke für 2.688 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Code:
    If SmartTags("EA_Feld_1") = CInt(splitdata(0)) Then
    ...
    Und "Write data to HMI-Tags" natürlich nur, wenn tatsächlich der Wert gefunden wurde.

    Harald
    Es ist immer wieder überraschend, wie etwas plötzlich funktioniert, sobald man alles richtig macht.

    FAQ: Linkliste SIMATIC-Kommunikation über Ethernet

Ähnliche Themen

  1. Antworten: 7
    Letzter Beitrag: 27.02.2015, 17:04
  2. Antworten: 11
    Letzter Beitrag: 01.09.2011, 20:24
  3. Antworten: 4
    Letzter Beitrag: 12.10.2009, 11:27
  4. Antworten: 6
    Letzter Beitrag: 05.01.2009, 11:09
  5. Antworten: 1
    Letzter Beitrag: 28.08.2007, 10:06

Stichworte

Lesezeichen

Berechtigungen

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