-> Hier kostenlos registrieren
Mahlzeit,
habe leider ein "böse" Überraschung auf der Baustelle.
Habe ein Skript um einen Datenbaustein auszulesen und in .csv abzuspeichern geschrieben.
Mit Win 7 hat das auch geklappt. Aber nun habe ich vor Ort Win CE Verion 5.00 Buil 1400)
S7 V5.5+SP4+HF8 Ausgabestand K5.5.4.8
WinCC Flexible 2008 SP3 Stand V1.4.0.0_1.16.0.16
Das Skript habe ich entsprechend umgeschrieben. Problem: Es geht gar nichts!
Trotz intensiver Internetsuche, habe ich bisher keine Lösung gefunden. Hat vielleicht jemand eine Idee?
Gruß
habe leider ein "böse" Überraschung auf der Baustelle.
Habe ein Skript um einen Datenbaustein auszulesen und in .csv abzuspeichern geschrieben.
Mit Win 7 hat das auch geklappt. Aber nun habe ich vor Ort Win CE Verion 5.00 Buil 1400)
S7 V5.5+SP4+HF8 Ausgabestand K5.5.4.8
WinCC Flexible 2008 SP3 Stand V1.4.0.0_1.16.0.16
Das Skript habe ich entsprechend umgeschrieben. Problem: Es geht gar nichts!
Code:
[INDENT]Dim f, Path
'Auswahl des Speicherortes
If SmartTags("DB800\DB_VISU_Daten.Allgemein.Steuern.Uebernahme_Schraubtech") = 0 Then
Path = "\Storage Card MMC\Logs\Schrauberdaten_Cockpit.csv"
Else
Path= "\Storage Card USB\Schrauberdaten_Cockpit.txt"
End If
'Fehlerroutine
On Error Resume Next
'Objekt erstellen
Set f = CreateObject("FileCtl.File")
'Fehlerroutine
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr (Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
'Datei öffnen bzw. Datei erstellen
f.open Path
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr (Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
'Daten werden in die neue Datei geschrieben
'Spindel 1 Typtabelle 1
f.LinePrint("TaktNo; " & "212100_SR1_SP1\212100+SR1-SP1.Typ[1].Takt[1].TaktNo" & ";")
f.LinePrint("StatSeq; " & "212100_SR1_SP1\212100+SR1-SP1.Typ[1].Takt[1].StatSeq"& ";")
'Datei schließen
f.Close
'Objekt wird freigegeben
Set f = Nothing
ShowSystemAlarm "Datensicherung ist erfolgt"
[/INDENT]
Trotz intensiver Internetsuche, habe ich bisher keine Lösung gefunden. Hat vielleicht jemand eine Idee?
Gruß
Zuletzt bearbeitet: