WinCC Textdatei schreiben auf Comfort Panel?

Geisterkarle

Level-1
Beiträge
126
Reaktionspunkte
9
Zuviel Werbung?
-> 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:
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
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
 
Das hast Du richtig bemerkt. "Scripting.FileSystemObject" gibt es auf dem Panel nicht und das Skript wird an dieser Stelle abgebrochen. Auf dem Panel mußt Du andere Funktionen und Methoden verwenden, z.B. Set objFileSystem = CreateObject("FileCtl.File")

siehe FAQ Protool/WinCCflex/TIA Daten lesen / schreiben mit VB-Script

Ab Beitrag #2 sind kleine VBS-Beispiele wo Du direkt funktional gleichen Code für PC-Windows und Windows CE vergleichen kannst.

Standard-Tip 1: mache mal in ein Bild eine Meldeanzeige für Meldeereignisse der Meldeklasse "System" damit Du die Runtimeerror-Meldungen sehen und in Ruhe lesen kannst.

Tip 2: zum Debuggen kann man mit ShowSystemAlarm "mein Text" Meldungen mit Testausgaben erzeugen

Tip 3: Damit die Skripte bei Runtimeerrors nicht abgebrochen werden, schreibt man noch "On Error Resume Next" und wertet das Err-Objekt aus - Beispiel siehe Beitrag #7 in der FAQ

Tip 4: Leider hat Siemens in TIA die VBS-Hilfe fast vollständig weggelassen. Die VBS-Referenz findest Du in der FAQ in Beitrag #1 und #10.
Nachtrag: es scheint so, als wäre in TIA V15 die VBS-Hilfe wieder mit dabei (ich kenne TIA V15 nicht)
Welche VBS-Informationen und VBS-Programmierhilfen gibt es in WinCC (TIA Portal)?

Hier auch noch ein Siemens FAQ
Wie greifen Sie mit SIMATIC WinCC (TIA Portal) auf einem Panel über ein Skript auf Prozessdaten in einer Datei zu?

Harald
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Ah, sorry!
Gar nicht mehr geantwortet!
Muss mich aber noch bedanken, waren genau die Informationen, die ich gesucht habe und hat hervorragend funktioniert! Irgendwie nach den falschen Stichworten gesucht...

Der Tipp mit den Systemmeldungen ist gut. Normalerweise zeig ich die mir auch an ... aber in einem eigenem Bild. Und als ich mal zu meiner Test-Schreib-Taste direkt nen Störmeldefenster hingemacht hab, hab ich auch ca. 3sek die Rückmeldung gesehen :p

Danke! Zurück zur Arbeit! ;)
 
Zurück
Oben