WinCC TIA 13 / Zwei Ausgelagerte *.TXT Dateien zusammenfügen zu einer Datein

Dantical

Level-2
Beiträge
94
Reaktionspunkte
2
Zuviel Werbung?
-> Hier kostenlos registrieren
Sehr geehrte Damen & Herren;

Habe ein Problem wo ich nicht mehr weiter komme....

Habe einmal eine *.TXT Datei wo ich einige Strings ausgelagert habe und eine *.TXT Datei
wo ich meine Archivierung ausgelagert habe. Nun möchte ich gerne die beiden
Dateien zu einer fusionieren.

Kann ich dies mithilfe eines VB-Skripts in Wincc realisieren? Wenn ja wie ?

Desweiteren wäre es möglich die neu erstellte Datei als Titel mit dem aktuellen Datum und einer fortlaufenden Nr zu versehen?

Gruß
aus Bayern :cool:
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Danke für die schnelle Antwort rostiger Nagel,

hab jetzt ein Skript erstellt dass aber nicht wirklich funktioniert :-/

Bin jetzt auch ehrlich gesagt relativ neu in der Sktipt-Welt....

könntest du evtl mal kurz drüber schauen? Es kommt auch kein Fehler beim debuggen....

Code:
'Verzeichnis abfragen/erstellen für Prüfprotokoll

Dim fs, PathSearch, Path, fso, Result1,Result2, Index, SourceFile1,SourceFile2, DestFile, dummy 

Set fs = CreateObject("filectl.filesystem")
If fs.dir("Storage Card USB\Archiv") = "" Then fs.mkdir ("Storage Card USB\Archiv")



'TXT-Daten suchen, mit neuem Namen kopieren und Attribut auf Normal setzen     
     
                
Result1 = fs.Dir("\Storage Card USB\Archiv\Datenarchiv\record.txt")       
Result2 = fs.Dir("\Storage Card USB\Archiv\Datenarchiv\Datenarchiv0.txt")     
       
                        
                            SourceFile1 = "\Storage Card USB\Archiv\Datenarchiv" & Result1
                            SourceFile2 = "\Storage Card USB\Archiv\Datenarchiv" & Result2
                            DestFile   = "\Storage Card USB\" & "Pruefprotokoll" & "_" & fs.fileDateTime(SourceFile2) & ".txt"
                            SmartTags("DataSourceFileName")= SourceFile1 & SourceFile2
                            SmartTags("DataDestFileName")= DestFile
                            fs.FileCopy SourceFile1 & SourceFile2,DestFile
                            fs.SetAttr  SourceFile1 & SourceFile2, 0


Bei dem Versuch der Datenzusammenführung kam jetzt doch ein fehlertext.....

fehler_activeX.jpg
 
Zuletzt bearbeitet:
Welche runtime hast du?
Panel oder PC?
Es gibt Unterschiede bei den Objekten ... Wenn ich mich nicht täusche, dann gibt es auf dem Panel kein filectl.filesystem.
 
Zurück
Oben