Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 5 von 5

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

  1. #1
    Registriert seit
    19.06.2012
    Ort
    Bayern
    Beiträge
    53
    Danke
    18
    Erhielt 2 Danke für 2 Beiträge

    Standard


    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
    Zitieren Zitieren WinCC TIA 13 / Zwei Ausgelagerte *.TXT Dateien zusammenfügen zu einer Datein  

  2. #2
    Registriert seit
    13.10.2007
    Beiträge
    12.024
    Danke
    2.784
    Erhielt 3.268 Danke für 2.156 Beiträge

    Standard

    - - -
    Wer als Werkzeug nur einen Hammer hat, sieht in jedem Problem einen Nagel.

  3. Folgender Benutzer sagt Danke zu rostiger Nagel für den nützlichen Beitrag:

    Dantical (06.10.2014)

  4. #3
    Registriert seit
    19.06.2012
    Ort
    Bayern
    Beiträge
    53
    Danke
    18
    Erhielt 2 Danke für 2 Beiträge

    Standard

    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
    Geändert von Dantical (06.10.2014 um 15:17 Uhr)

  5. #4
    Registriert seit
    17.07.2009
    Ort
    Am Rande der Ostalb
    Beiträge
    5.476
    Danke
    1.140
    Erhielt 1.238 Danke für 971 Beiträge

    Standard

    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.

  6. #5
    Registriert seit
    19.06.2012
    Ort
    Bayern
    Beiträge
    53
    Danke
    18
    Erhielt 2 Danke für 2 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Handelt sich um ein TP900 Comfort (6AV2 124-0JC01-0AX0)

Ähnliche Themen

  1. Antworten: 4
    Letzter Beitrag: 22.06.2012, 15:16
  2. TXT Dateien in eine Exeltabelle schreiben
    Von Guste im Forum PC- und Netzwerktechnik
    Antworten: 4
    Letzter Beitrag: 27.04.2012, 10:39
  3. Zwei CoDeSys-Teile zu einem Zusammenfügen
    Von visu90 im Forum CODESYS und IEC61131
    Antworten: 1
    Letzter Beitrag: 10.09.2011, 12:57
  4. Antworten: 5
    Letzter Beitrag: 17.03.2011, 12:12
  5. Antworten: 4
    Letzter Beitrag: 10.09.2005, 04:29

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •