Dateien in Ordner umsortieren mit dem MPR

Moderator: MVogt

Post Reply
User avatar
Theo_Gottwald
Posts: 367
Joined: 03. Oct 2009, 08:57
Location: Herrenstr.11 * 76706 Dettenheim
Contact:

Dateien in Ordner umsortieren mit dem MPR

Post by Theo_Gottwald » 17. May 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: Select all

' 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) Downloaded 280 times
Image

Post Reply

Return to “Package Robot”

Who is online

Users browsing this forum: No registered users and 5 guests