-> Hier kostenlos registrieren
Hallo zusammen,
meine Ausgangslage ist wie folgt: die einzelnen SmartTags-Variablen sind angelegte Arrays im HMI-Variablen, diese möchte ich gerne mit den 12 übergebenen Values der CSV-Datei befüllen.
Geht das dynamisch? Falls ja wie? Bei der Methode die ich momentan verwende, zeigt mir der Editor von TIA VBS einen Fehler an, jedoch halten sich meine Kenntnisse der Implementierung mit VBS sehr in Grenzen und ich finde den Fehler pertu nicht.
Vielen Dank für die Vorschläge und Anregungen für die Verbesserungen und Lösungen.
Grüße,
Martin
meine Ausgangslage ist wie folgt: die einzelnen SmartTags-Variablen sind angelegte Arrays im HMI-Variablen, diese möchte ich gerne mit den 12 übergebenen Values der CSV-Datei befüllen.
Geht das dynamisch? Falls ja wie? Bei der Methode die ich momentan verwende, zeigt mir der Editor von TIA VBS einen Fehler an, jedoch halten sich meine Kenntnisse der Implementierung mit VBS sehr in Grenzen und ich finde den Fehler pertu nicht.
Vielen Dank für die Vorschläge und Anregungen für die Verbesserungen und Lösungen.
Grüße,
Martin
Code:
Sub ReadFromCSV()
Dim file_open, file, ts
Dim FileName, data, splitdata
Dim n, delimiter
' Pfad und Dateiname zur Speicherung der Variablen und Werte bei Betätigung des Tasters
FileName = "H:\"
' Fehler abfangen
On Error Resume Next
' Objekt erstellen
Set file_open = CreateObject("Scripting.FileSystemObject")
' Fehlerabwicklung
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
' Liefert das File-Objekt zurück
Set file = file_open.GetFile(FileName, True)
' Fehlerabwicklung
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
delimiter = ';'
data = file.LineInputString 'Zeilen und Werte speichern
data = Replace(data, vbTab & vbTab, delimiter)
splitdata = Split(data, delimiter)
'Die nachfolgende Elemente lesen die ersten zwölf Zeilen ein und die dazugehörigen Spalten
For n = 0 To 11
SmartTags("Datum") = splitdata(n)
SmartTags("Uhrzeit") = splitdata(n)
SmartTags("User") = splitdata(n)
SmartTags("Produkt") = splitdata(n)
SmartTags("Laufkartennummer") = splitdata(n)
SmartTags("Materialnummer") = splitdata(n)
SmartTags("Fertigungsauftrag") = splitdata(n)
Next
End Sub
Zuletzt bearbeitet: