Geisterkarle
Level-2
- Beiträge
- 126
- Reaktionspunkte
- 9
-> Hier kostenlos registrieren
Hallo zusammen.
Ich wollte auf einem TP700 Comfort Panel über ein VB-Skript eine Textdatei auf einem USB-Stick schreiben bzw. Daten befüllen.
Da ich keine Ahnung habe, hab ich entsprechend ein wenig herumgesucht.
Hab auch ein relativ simples Beispiel gefunden (erste Antwort).
Nun habe ich das sozusagen 1:1 übernommen und versucht, klappt aber nicht.
So sieht mein Skript aktuell aus:
Das "hochzaehlen" hab ich mal reingemacht, damit ich nachvollziehen kann, wo ich stecken bleibe. Ich ende bei "2".
Irgendwas an "Set objFileSystem = CreateObject("Scripting.FileSystemObject")" ist also falsch...
Noch weiter herumgesucht, aber irgendwie sind alle Skripte mit genau diesem Befehl versehen!
Was mir aber "aufgefallen" ist, dass falls wirkliche Dateinamen dabei waren, war das meist "C:\..." oder sowas. Ein C: hab ich auf einem TP700 nicht.
Also, warum hab ich hier nen IPC mit WinCC Runtime herumstehen, wenn nicht für sowas!
Erster versuch "3". Ok, hab ein "Open" und die Datei existiert nicht; mal erstellen...
"7"
Funktioniert!
Ok, am Skript ansich liegt es wohl nicht! Die Runtime macht das anscheinen, das TP700 nicht!
Oder mach ich was falsch? Ist es denn möglich über ein Comfort Panel Dateien zu beschreiben?
Hat da wer nähere Ahnung?
Würde mich über Tipps und Infos freuen.
grüßle
Ich wollte auf einem TP700 Comfort Panel über ein VB-Skript eine Textdatei auf einem USB-Stick schreiben bzw. Daten befüllen.
Da ich keine Ahnung habe, hab ich entsprechend ein wenig herumgesucht.
Hab auch ein relativ simples Beispiel gefunden (erste Antwort).
Nun habe ich das sozusagen 1:1 übernommen und versucht, klappt aber nicht.
So sieht mein Skript aktuell aus:
Code:
Dim objFileSystem, objOutputFile,strOutputFileConst APPEND = 8
SmartTags("hochzaehlen") = 1
strOutputFile = "\Storage Card USB\export.txt"
SmartTags("hochzaehlen") = 2
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
SmartTags("hochzaehlen") = 3
Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, APPEND)
SmartTags("hochzaehlen") = 4
objOutputFile.WriteLine Now() & " " & SmartTags("DB_A_System_Zeitstring")
SmartTags("hochzaehlen") = 5
objOutputFile.Close
SmartTags("hochzaehlen") = 6
Set objFileSystem = Nothing
SmartTags("hochzaehlen") = 7
Irgendwas an "Set objFileSystem = CreateObject("Scripting.FileSystemObject")" ist also falsch...
Noch weiter herumgesucht, aber irgendwie sind alle Skripte mit genau diesem Befehl versehen!
Was mir aber "aufgefallen" ist, dass falls wirkliche Dateinamen dabei waren, war das meist "C:\..." oder sowas. Ein C: hab ich auf einem TP700 nicht.
Also, warum hab ich hier nen IPC mit WinCC Runtime herumstehen, wenn nicht für sowas!
Erster versuch "3". Ok, hab ein "Open" und die Datei existiert nicht; mal erstellen...
"7"
Funktioniert!
Ok, am Skript ansich liegt es wohl nicht! Die Runtime macht das anscheinen, das TP700 nicht!
Oder mach ich was falsch? Ist es denn möglich über ein Comfort Panel Dateien zu beschreiben?
Hat da wer nähere Ahnung?
Würde mich über Tipps und Infos freuen.
grüßle