Dateien umbenennen: Monat in Zahl umwandeln

[phantom]

Hallo,

ist es mit dem TC möglich den ausgeschriebenen Monatsnamen in Dateien in die entsprechende Zahl umzubenennen?
Ich suche natürlich eine elegantere Lösung als alle Monate nach und nach mit MUT umzubenennen.

[Dalai]

Suchen nach:

Code: Select all

Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec

Ersetzen durch:

Code: Select all

01|02|03|04|05|06|07|08|09|10|11|12

Geht logischerweise auch mit deutschen und/oder Langnamen im "Suchen nach" Feld.

Grüße
Dalai

[tuska]

Mit diesem Feld kann man den Dateinamen auf eine Zahl -
von in diesem Monat ERSTELLTEN GEÄNDERTEN (-> Änderungsdatum!) Dateien - ändern:

Code: Select all

[=filedatetime.Monat(hex)] ... oder [=filedatetime.Monat]

Plugin "FileDateTime 2.07"

Beispiele (erstellt mit "[=filedatetime.Monat(hex)"]):

Code: Select all

VON: Test.txt		      1	 04.03.2021 16:39 -a--
AUF:    3.txt		      1	 04.03.2021 16:39 -a--

VON: Sonderzeichen.doc	 37 888	 06.07.2003 20:52 -a--
AUF:    7.doc		 37 888	 06.07.2003 20:52 -a--

Vielleicht hilft Dir das schon etwas...
EDIT: Die Lösung von Dalai ist natürlich universeller

[Stefan2]

Hallo,

ist es mit dem TC möglich den ausgeschriebenen Monatsnamen in Dateien in die entsprechende Zahl umzubenennen?
Ich suche natürlich eine elegantere Lösung als alle Monate nach und nach mit MUT umzubenennen.

Zum Beispiel über ein Skript, welches durch einen Button ausgelöst wird:

Code: Select all

'_ForEachSelFileDo - Rename File - Chance MonthNAME to MonthNUMBER.vbs
'VBScript to rename selected files, here: replace all "January"-strings in file name to "01", and so on...
'ATTENTION: in this script there is NO error handling, it simple renames 'A' to 'B'!!!
'Stefan 2021-03-04 Thu 17:20:47
'Found at: https://ghisler.ch/board/viewtopic.php?p=397195#p397195
' --Save this as "my.vbs" text file in TC-folder
' --Create a new button:
' ----Command: "%Commander_Path%\my.vbs"
' ----Parameters: "%F"
' ----Start path:
' ----Icon: WCMICONS.DLL
' --select files
' --click at your button
' Or create an UserDefinedCommand and assign a keyboard shortcut to.

IF (WScript.Arguments.Count>0) Then vTCsParam=WScript.Arguments(0) ELSE MsgBox "Missing param" : WScript.Quit
SET strTCTempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(vTCsParam, 1)
SET FSO = CreateObject("Scripting.FileSystemObject")
Do While Not strTCTempFile.AtEndOfStream
    sFileName = strTCTempFile.ReadLine
    sOriginalFN = sFileName
    '===============  HERE is your Business:
    sFileName = replace(sFileName,"Januar","01")
    sFileName = replace(sFileName,"January","01")
    REM sFileName = replace(sFileName,"Jan","01") - - ACHTUNG, kann Fehler produzieren, ändert auch "Janosch"
    sFileName = replace(sFileName,"Februar","02")
    sFileName = replace(sFileName,"February","02")
    sFileName = replace(sFileName,"März","03")  
    REM sFileName = replace(sFileName,"Mai","05") - - ACHTUNG, kann Fehler produzieren, ändert auch "Mainz"
    REM Ein Ankerpunkt wie zB das Jahrhundert könnte hier helfen:
    REM sFileName = replace(sFileName,"Mai 20","05 20")  ' "Besuch in Mainz 21. Mai 2020"
    REM sFileName = replace(sFileName,"Mai 19","05 19")  ' "Urlaub in Mainz 15. Mai 1989"
    '===============
    FSO.MoveFile sOriginalFN, sFileName
LOOP

TC-Hilfe vom Button-Dialog aus aufgerufen:
%L, %l, %F, %f, %D, %d, %WL, %WF, %UL, %UF erzeugt im TEMP-Verzeichnis eine Listendatei mit den Namen der markierten Dateien und Verzeichnisse.
Es können 10 verschiedene Arten von Listen erzeugt werden:
%L Lange Dateinamen inkl. kompletten Pfads, z. B. c:\Eigene Dateien\langer Name.txt
%F Lange Dateinamen ohne Pfad, z. B. langer Name.txt





 

[phantom]

Vielen Dank Stefan.

Es wird zwar anders als erwartet umgesetzt, funktioniert aber. Und lässt sich, einmal angelegt, immer wiederverwenden.

Gute Idee Dalai, Danke! Da hätte ich wirklich auch selber drauf kommen können.

@tuska, deine Lösung muss mir noch näher ansehen. Die Dateinamen enthalten den Monat, aber entsprechen nicht den Datumsattributen.

[tuska]

@tuska, deine Lösung muss mir noch näher ansehen.
Die Dateinamen enthalten den Monat, aber entsprechen nicht den Datumsattributen.

Das Plugin "FileDateTime 2.07" stellt meines Erachtens auf das "Änderungsdatum" ("Date modified) ab und nicht auf das "Erstelldatum" - sorry!

[phantom]

Ausgeschriebene Monatsnamen mit MUT ersetzen

Suchen nach:

Code: Select all

Januar|Februar|März|Maerz|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember

Ersetzen durch:

Code: Select all

01|02|03|03|04|05|06|07|08|09|10|11|12

[gdpr deleted 6]

2phantom
beachte, dass diese Ersetzung nicht nur ausschliesslich Monatsnamen durch Zahlen ersetzt.

Z.B. wuerden diese (Beispiel-)Dateinamen

Code: Select all

Frankfurt am Main - 3. Februar 2020.jpg
Kopie Mail vom Hasen - 1. Januar 2019.pdf

zu

Code: Select all

Frankfurt am 05n - 3. 02 2020.jpg
Kopie 05l vom Hasen - 1. 01 2019.pdf

Ob dies nun ein potentielles Problem fuer dich darstellen wuerde, kann ich natuerlich nicht bewerten. Aber es sollte nicht schaden, dies im Hinterkopf zu behalten...

[phantom]

@elgonzo Danke für den Hinweis. Für meine Zwecke genügt dieses kleine Script.