Dateiname über Batch ändern
Hallo liebe Community,
folgendes Problem!:
Ich habe einen Ordner mit 500 PDF Dateien. Diese sind nach folgendem Schema aufgebaut.
XXX_123_456_789_ABC.pdf
XXX_123_456_ABCDEF.pdf
XX_123_456_789_ABCDEFG.pdf
Die Nummerierung kann mal länger sein, mal kürzer. Was in jedem fall gleich ist ist, dass alle alphanumerischen zeichen nach dem letzten unterstrich auf .pdf enden.
Ich suche nach einer Möglichkeit Alle "Chars" vor ".PDF" bis zum letzten "_" zu entfernen. Das Ergebnis soll so aussehen:
XXX_123_456_789.pdf
XXX_123_456.pdf
XX_123_456_789.pdf
Hat jemand eine Idee wie ich das umsetzen kann?
Gerne auch mit Bulk Rename o.ä.
Danke!!!
folgendes Problem!:
Ich habe einen Ordner mit 500 PDF Dateien. Diese sind nach folgendem Schema aufgebaut.
XXX_123_456_789_ABC.pdf
XXX_123_456_ABCDEF.pdf
XX_123_456_789_ABCDEFG.pdf
Die Nummerierung kann mal länger sein, mal kürzer. Was in jedem fall gleich ist ist, dass alle alphanumerischen zeichen nach dem letzten unterstrich auf .pdf enden.
Ich suche nach einer Möglichkeit Alle "Chars" vor ".PDF" bis zum letzten "_" zu entfernen. Das Ergebnis soll so aussehen:
XXX_123_456_789.pdf
XXX_123_456.pdf
XX_123_456_789.pdf
Hat jemand eine Idee wie ich das umsetzen kann?
Gerne auch mit Bulk Rename o.ä.
Danke!!!
Please also mark the comments that contributed to the solution of the article
Content-Key: 343892
Url: https://administrator.de/contentid/343892
Printed on: April 24, 2024 at 06:04 o'clock
6 Comments
Latest comment
Mit etwas simplem Regex kein Thema.
In deinem Bulk-Rename trage folgendes unter Regex ein
Feddich.
Oder Powershell:
Gruß
In deinem Bulk-Rename trage folgendes unter Regex ein
Feddich.
Oder Powershell:
gci 'C:\Ordner\*.pdf' | rename-item -NewName {$_.Name -replace '(.*)_.*(\.pdf)$','$1$2'}
Gruß
Bearbeitet Spalte A2:A<ENDE>
Sub BearbeiteSpalteA()
With ActiveSheet
For Each cell In .Range("A2:A" & .Cells(Rows.Count,"A").End(xlUp).Row)
cell.Value = Left(cell.Value, InStrRev(cell.Value, "_") - 1) & ".pdf"
Next
End With
End Sub