Dateien in Ordner umsortieren mit dem MPR

Moderator: MVogt

Antworten
Benutzeravatar
Theo_Gottwald
Beiträge: 321
Registriert: 03. Okt 2009, 08:57
Wohnort: Herrenstr.11 * 76706 Dettenheim
Kontaktdaten:

Dateien in Ordner umsortieren mit dem MPR

Beitrag von Theo_Gottwald » 17. Mai 2020, 09:30

Im Zuge von Projekten speichert man Dateien ab.
Oft mit einer Nummer dahinter. Zum Beispiel "Stand_01.txt" ... "Stand_99.txt".

Später hat man einen ganzen Ordner voll mit unsortierten Files.
In meinem Fall kam noch dazu, dass es zu der jeweiligen Datei noch Backups gibt,
also "Stand_01.bak".

Also wie bekomme ich nun diese Stände schön jedes einzeln in seinen Ordner.
Dazu kann man ein kleines MPR Skript "Files sortieren" nehmen.

Der MPR geht hier durch das ganze Verzeichnis,

1. holt sich von den Dateien den Dateinamen (z.B. "Stand_01"). Dies erfolgt mit dem GFT\-Befehl (GetFIleToken).
2. Erstellt ein Unterverzeichnis "Stand_01" (einfach mit MKD\)
3. Verschiebt alle Dateien, mit "Stand_01.*" in dieses neu erstellte Unterverzeichnis (MOV\-Befehl)

Und das mit allen Dateien. Und schon ist Ordnung.

Hier nun das Skript. Es wird ein zweifach verschachteltes FEF\-Konstrukt (For Each File/Folder) verwendet.
Dadurch werden alle Dateien erfasst.

Code: Alles auswählen

' Hier startet das Main-Skript.
'
' Dateiname des Ordners wo die zu sortierenden Dateien liegen. Das ist auch der Pfad wo die neuen Einsortier- Sortier-Ordner erstellt werden.
VAR\$$PAT=C:\Files
FEF\$$PAT|*.rem|DoIt|$$TXA
MBX\Ready
' Hier ist das Skript schon zu Ende
@
'------------------------------------------
' Hier ist die erste FEF-Schleife diese erfasst alle Files mit der genannten Endung.
' Hier wird der <Dateiname>Ordner erstellt
:DoIt
GFT\$$TXA
VAR\$$VER=$v2$
VAR\$$FIN=$v3$
' Neues Verzeichnis
VAR\$$NVZ=$$VER\$$FIN
NEF\$$NVZ\
   MKD\$$NVZ
EEF\
FEF\$$PAT|$$FIN.*|Dothat|$$TXB
@

'------------------------------------------
' Hier ist die zweite FEF-Schleife diese erfasst alle Files mit dem gleichen Dateinamen und jeder Endung.
' Hier werden dann diese Datein in den erstellten Ordner verschoben.
:Dothat
' Zieldateiname ermitteln
GFT\$$TXB
VAR\$$FIB=$v3$
VAR\$$EXT=$v4$
VAR\$$TFN=$$FIB.$$EXT
' KompletterZielpfad 
VAR\$$TAP=$$NVZ\$$TFN
' Jetz die Dateien da hinein verschieben
MOV\$$TXB->$$TAP
@
main_Files_to_Folder.rem
(725 Bytes) 45-mal heruntergeladen
Bild

Antworten

Zurück zu „Package Robot“

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste