c64b311ee9
Goto Top

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!!!

Content-Key: 343892

Url: https://administrator.de/contentid/343892

Ausgedruckt am: 29.03.2024 um 01:03 Uhr

Mitglied: 133417
Lösung 133417 19.07.2017 aktualisiert um 13:56:36 Uhr
Goto Top
Mit etwas simplem Regex kein Thema.
In deinem Bulk-Rename trage folgendes unter Regex ein

screenshot

Feddich.

Oder Powershell:
gci 'C:\Ordner\*.pdf' | rename-item -NewName {$_.Name -replace '(.*)_.*(\.pdf)$','$1$2'}  

Gruß
Mitglied: c64b311ee9
c64b311ee9 19.07.2017 um 14:04:22 Uhr
Goto Top
Woher weiß man das?? Wahnsinn!
Danke !!!
Mitglied: 133417
133417 19.07.2017 aktualisiert um 14:24:09 Uhr
Goto Top
Woher weiß man das??
Regular Expressions

Bidde face-smile.
Mitglied: c64b311ee9
c64b311ee9 19.07.2017 um 14:46:50 Uhr
Goto Top
Und weisst du zufällig auch, wie man das in Excel macht?
Wenn ich den Dateinamen als UNC Pfad habe z.B:
Laufwerk
X:\PDF\XXX_123_456_789_ABC.pdf
Mitglied: 133417
133417 19.07.2017 aktualisiert um 17:05:44 Uhr
Goto Top
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
Mitglied: c64b311ee9
c64b311ee9 20.07.2017 um 08:50:48 Uhr
Goto Top
Ich danke vielmals!!!