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

Ergebnis 1 bis 3 von 3

Thema: Eingelesene Dateien nach Datum sortieren

  1. #1
    Registriert seit
    27.04.2006
    Ort
    Sauerland
    Beiträge
    626
    Danke
    183
    Erhielt 88 Danke für 81 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Wie man unter Flexible Dateien einliest, aussucht, Werte sucht weiss ich jetzt. Nun stehe ich vo dem nächsten Problem.....
    Wie kann ich Dateien nach erstellungsdatum Sorieren ? hatte schon mal an ein Dictonary gedacht, oder gibt es da besondere befehle? bis jetzt werden die Dateinamen alphabetisch geordnet in Variablen geschrieben.
    Zitieren Zitieren Eingelesene Dateien nach Datum sortieren  

  2. #2
    Registriert seit
    20.06.2003
    Ort
    Sauerland.NRW.Deutschland
    Beiträge
    4.850
    Danke
    78
    Erhielt 800 Danke für 543 Beiträge

    Standard

    ich beziehe mich auf das vb-script sprachverzeichnis

    grundsätzliches vorgehen

    liste der dateien einlesen und in eine dateiname(indexzähler) schreiben. siehe Files-Auflistung
    zum abfragen der eigenschaften siehe DateCreated,DateLastModified,DateLastAccess
    diese eigenschaft auch in der schleife speichern. eigenschaft(indexzähler)
    danach sortieren.
    Code:
    'dateien einlesen
        Dim fs, f, f1, fc, s, name(1000),eigenschaft(1000)
        Set fs = CreateObject("Scripting.FileSystemObject")
     folderspec="C:\meinOrdner"
        Set f = fs.GetFolder(folderspec)
        Set fc = f.Files
        For Each f1 in fc
     index=index+1        
     name(index) = f1.name 
     dla = f1.DateLastAccessed 
     eigenschaft(index)=right(dla,4)&mid(dla,4,2)&left(dla,2) 
        Next
    'schnelle sortierung
     offset = index / 2
     do while offset > 0
      limit = index - offset
      do
       tauschen = falsch
       FOR zeile = 1 TO Limit
                 IF eigenschaft(zeile) > eigenschaft(zeile + Offset) THEN
         name2 = name(zeile+1)
         name(zeile+1) = name(zeile)
         name(zeile) = name2
         eigenschaft2 = eigenschaft(zeile+1)
         eigenschaft(zeile+1) = eigenschaft(zeile)
         eigenschaft(zeile) = eigenschaft2
             Tauschen = zeile
           END IF
             NEXT
             Limit = Tauschen - Offset
         LOOP WHILE Tauschen
           Offset = Offset \ 2
     LOOP
    'daten in file schreiben
    Set TextFile1 = fs.CreateTextFile(folderspec+"\!index.tmp", True)
    for i = 1 to index
     TextFile1.Writeline eigenschaft(i) & " "& name(i)
    next
    .
    mfg Volker .......... .. alles wird gut ..

    =>Meine Homepage .. direkt zum Download

    Meine Definition von TIA: Total Inakzeptable Applikation

  3. #3
    Avatar von repök
    repök ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    27.04.2006
    Ort
    Sauerland
    Beiträge
    626
    Danke
    183
    Erhielt 88 Danke für 81 Beiträge

    Reden


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Das klappt hundertprozentig. Echt Klasse, war auf dem selben weg, allerdings kenne ich ja von VB noch nocht so richtig viel.....
    Dies Forum kann man nur empfehlen.
    Volker, nochmals danke !!
    Zitieren Zitieren Danke !!  

Ähnliche Themen

  1. Verzeichnis nach Dateien durchsuchen.
    Von Nobbie im Forum Programmierstrategien
    Antworten: 1
    Letzter Beitrag: 11.04.2012, 14:30
  2. Format Datum C# nach MySQL
    Von alexa3 im Forum Hochsprachen - OPC
    Antworten: 0
    Letzter Beitrag: 21.01.2011, 16:16
  3. Schaltuhr nach Datum
    Von Andy258 im Forum Simatic
    Antworten: 19
    Letzter Beitrag: 19.10.2010, 13:01
  4. S7 Datum von VB.NET nach SPS...
    Von paddy_cmd im Forum Hochsprachen - OPC
    Antworten: 9
    Letzter Beitrag: 17.06.2009, 13:54
  5. Antworten: 4
    Letzter Beitrag: 30.03.2007, 21:01

Lesezeichen

Berechtigungen

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