-> 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.
Ich hoffe ihr könnt uns weiter helfen !!!
Gruß
Ralf
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