Dateiname: Ersetzen/Löschen von Teilstrings

[Steku]

Und noch ein Freeware Tool...

Bulk Rename Utility

Gruß,
Steku

[Delphi_gn7]

Zitat:

Zitat von himitsu

Für alle Vorkommen müßtest du es in einer Schleife solange wiederholen[...].

Ok hab ich eingebaut.

Zitat:

Zitat von himitsu

Aber zum Ersetzen würde ich dir StringReplace empfehlen.

Warum denn?

Zitat:

Zitat von himitsu

Dann macht es sich besser erstmal alle (nötigen) Dateien in eine Liste aufzunehmen und anzuzeigen, so daß man da nochmal schnell drüberschauen und eventuell noch was ändern kann, bevor umbenannt wird.

Dazu komme ich wenn überhaupt erst, wenn es überhaupt mal funktioniert :)

Zitat:

Zitat von himitsu

PS: du läßt doch dein Programm erstmal nur über ein Testverzeichnis laufen, bzw. hast dir von den Dateien ein Backup gemacht?

ja, bisher hab ich es nur mit leeren Textdateien versucht

[himitsu]

Zitat:

Zitat von Delphi_gn7

Warum denn?

ist ja kein Muß, aber ein Befehl einmal ausgeführt und alles ist ersetzt :angel:

Delphi-Quellcode:

DateiName := StringReplace(DateiName, Ren, RenIn, [rfReplaceAll]);

in der CodeLib ist sogar (glaub ich) irgendwo eine Version, welcher man mehrere Zeichen/Strings übergibt und wo die alle auf einmal ersetzt werden.

Zitat:

Zitat von Delphi_gn7

ja, bisher hab ich es nur mit leeren Textdateien versucht

die Art der Dateien und deren Inhalt ist ja egal ... es wär nur etwas blöd, wenn man sowas auf "wichtige" Dateien losläßt und danach dann alle/viele Dateiname "unbrauchbar"/unverständlich wären :angel2:

[Delphi_gn7]

Ach jetzt hab ich das verstanden mit dem Stringreplace :)
Aber was bedeutet das [rfReplaceAll] ?

Und weißt du nicht vielleicht auch warum das Programm immer noch nicht funktioniert (ich kann es mit den Änderungen nochmal posten falls nötig)?

[mkinzler]

Zitat:

Aber was bedeutet das [rfReplaceAll] ?

Es werden dann alle Vorkommen des Suxhstrings ersetzt.

[himitsu]

siehe StringReplace

Die Delphi-OH

Beschreibung
TReplaceFlags besteht aus einer Menge von Flags, die steuern, wie ein Teilstring innerhalb eines Strings gesucht und ersetzt wird. Diese Menge kann folgende Werte enthalten:

rfReplaceAll Alle Fundstellen werden ersetzt. Wenn dieses Flag nicht vorhanden ist, wird nur die erste Fundstelle des gesuchten Teilstrings ersetzt.
rfIgnoreCase Bei der Suche nach dem Teilstring wird die Groß-/Kleinschreibung nicht berücksichtigt. Wenn dieses Flag nicht vorhanden ist, werden nur Fundstellen berücksichtigt, deren Schreibweise genau mit dem Suchstring übereinstimmt.

PS:

Delphi-Quellcode:

write('Ordner (mit Backslash): ');

das "mit Backslash" kannst weglassen

Delphi-Quellcode:

dir := IncludeTrailingBackslash(dir);

hängt das \ notfalls an ... siehe IncludeTrailingBackslash

für lastSlash gibt es ExtractFileName

FindFirst sucht übrigens so auch Verzeichnisse, welche dann ebenfalls umbenannt würden.

ja und namestring wird nie verwendet

der Fehler liegt hier

Delphi-Quellcode:

RenameFile(datei,lastSlash(datei)+DateiName);

lastSlash(datei) liefert kein Verzeichnis und datei ist nicht die gefundene Datei.
und bei der suche würde ich zumindestens eine Suchmaske mit angeben ... damit auch was gefunden wird

Delphi-Quellcode:

datei := IncludeTrailingBackslash(datei);
If FindFirst (datei + '*.*', faAnyFile, FindRec) <> 0
Then Repeat
     If (FindRec.Name <> '.') and (FindRec.Name <> '..')
     Then begin
          DateiName := FindRec.Name;
          if (pos(Ren,DateiName) > 0)
          Then begin
               DateiName := StringReplace(DateiName, Ren, RenIn, [rfReplaceAll]);
               RenameFile(datei + FindRec.Name, datei + DateiName);
          end

// PS: den Variablennamen "datei" besser in "verzeichnis" umbenennen

[juergen]

Hallo Delphi_gn7,

Mp3's umbenennen habe ich hinter mir.
Wie NamenLozer im Thread #4 schon geschrieben hat ist Total Commander hier eine gute Wahl.

Zu deiner Frage wie man z.B. Leerzeichen mit dem Total Commander entfernt:
Du markierts alle gewünschten Dateien, drückst dann Strg + M und trägst oben rechts ein Leerzeichen ein (im Feld Suchen&ersetzen).
In der Vorschau siehst du sofort das Ergebnis.
Um das Ganze auch anzuwenden, drückst du unten rechts auf "Start".
Abschließend auf den "gebogenen" Pfeil neben "Start" um weiter zu machen. Das war's.

Wenn dein Hauptziel ein schnelles Umbenennen deiner MP3's ist, wäre es besser dir mal den Total Commander etwas näher anzuschauen. Er bietet wirklich einige Möglichkeiten, ist schnell, einfach zu bedienen und funktioniert.
Solltes du aber deine Anforderung als Anlass nehmen um in Delphi etwas zu lernen, wäre dieser Weg auch in Ordnung, kostet aber natürlich "etwas" mehr Zeit. :mrgreen:

[Delphi_gn7]

Vielen Dank für die hilfreichen Tipps, ich werde sie veruschen anzuwenden!

Mfgn7 ;)

[Delphi_gn7]

Ich habe (hoffe ich) alle Änderungen eingebracht, aber es tut sich noch immer nichts:

Delphi-Quellcode:

program FileRenamer;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure RenameFiles (var datei: string; Ren, RenIn: string);
Var
  FindRec: tSearchRec;
  DateiName: string;
Begin
datei:=IncludeTrailingBackslash(datei);
 If FindFirst (datei + '*.*', faAnyFile, FindRec) <> 0
Then Repeat
     If (FindRec.Name <> '.') and (FindRec.Name <> '..')
     Then begin
          DateiName := FindRec.Name;
          if (pos(Ren,DateiName) > 0)
          Then begin
               DateiName := StringReplace(DateiName, Ren, RenIn, [rfReplaceAll]);
               RenameFile(datei + FindRec.Name, datei + DateiName); 
                 end;
            end;

        Until FindNext (FindRec) <> 0;
FindClose (FindRec);
end;  // Ende Prozedur

var
  dir, Ren, RenIn: string;

begin
  write('Ordner: ');
  readln(dir);
dir:=IncludeTrailingBackslash(dir);
dir:=ExtractFileName(dir);
  write('Umzubenennender Teilstring: ');
  readln(Ren);
  write('Zu ersetzen durch: ');
readln(RenIn);
RenameFiles (dir,Ren,RenIn);
end.

Mfgn7...