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

rle1967

Level-1
Beiträge
1
Reaktionspunkte
0
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
 
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
 
Zurück
Oben