Hi,

Ich suche ein Programm, mit dem man die Dateinamen von (in meinem Fall) Musikdateien massenhaft bearbeiten kann, sodass unnötige Zeichen wie Unterstriche antfernt/durch anderes ersetzt werden.
z.B.

aus "101_michael_mind_-_ride_like_the_wind.mp3" wird "michael mind - ride like the wind.mp3"

Ich habe etwa 10 Monate Delphi Erfahrung und habe mir mithilfe einer Prozedur, die ich unter http://www.delphi-library.de/topic_n...chen_1107.html gefunden habe, ein Programm dafür zusammengebastelt. Da ich also nicht alles selber geschrieben habe kam es natürlich zu Komplikationen.

Frage: Kann man kleine Verbesserungen an dem Programm vornehmen, sodass es funktioniert, oder sollte ich lieber vorerst die Finger davon lassen, bis ich es selbst verstehe?
In dem Fall würde ich trotzdem gerne wissen ob es bereits ein Programm gibt, das mein Problem löst.

zusammenfalten · markieren

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function lastSlash(path: string):string;
var
hilfStr: string;
slashPos: integer;
begin
hilfStr:=path;
while (pos('\',hilfStr) > 0) do
hilfStr:=copy(hilfStr,slashPos+1,length(hilfStr)-slashPos);
result:=hilfStr;
end;

procedure RenameFiles (var datei: string; Ren, RenIn: string);
Var
  FindRec: tSearchRec;
  DateiName: string;
Begin
 If (datei = '') Then Exit;

  If FindFirst (datei, faAnyFile, FindRec) <> 0
  Then Repeat
       If (FindRec.Name <> '.') and (FindRec.Name <> '..')
       Then begin
            DateiName:=datei+FindRec.Name;
            if (pos(Ren,DateiName) > 0)
            then begin
                 insert(RenIn,DateiName,(pos(Ren,DateiName)));
                 delete(DateiName,pos(Ren,DateiName),length(Ren));
                 RenameFile(datei,lastSlash(datei)+DateiName);
                 end

            else writeln('Teilstring nicht gefunden');
            end;
       Until FindNext (FindRec) <> 0;

  FindClose (FindRec);



end;




var
  dir, Ren, RenIn, datei,namestring: string;

begin
write('Ordner (mit Backslash): ');
readln(dir);
namestring:=lastSlash(dir);
write('Umzubenennender Teilstring: ');
readln(Ren);
write('Zu ersetzen durch: ');
readln(RenIn);
RenameFiles (dir,Ren,RenIn);
readln;
end.

Moin,

Also erstmal wäre es nett, wenn du mal beschreibe würdest wo dein Fehler überhaupt liegt.
Soweit ich des grad übersehen hab wird "lastslash" schonmal überhauptnicht verwendet

Weiter rate ich jetz einfach mal, das das problem beim Umbenennen liegt:
soll heißen, die Dateien werden umbenannt, aber falsch

In diesem Fall schau dir nochmal die Funktionsweise von Insert und Delete an
(Du Deletest an der gleichen Stelle, an der du vorher eingefügt hast)

Um dir die Funktionsweise ein bisschen darzustellen:
Die Funktion FindFirst sucht solange nach Dateinamen in dem angegebenen Verzeichnis, bis FindNext nichts mehr findet.
Man kann sich das ganze wie beim lesen einer Datei vorstellen, die man liest, bis EOF das Dateiende angibt.

mfg

lastSlash wird bei RenameFile verwendet

vorher wird erst der neue, ersetzende Teilstring "renIn" eingesetzt, womit ja der Rest des Strings verschoben wird (oder habe ich die insert Prozedur falsch interpretiert und sie erhöht die Länge des Strings gar nicht...??), somit ändert sich auch die Position von "Ren", das dann gelöscht wird.

Wenn ich zuerst "Ren" löschen würde, wüsste ich ja nicht mehr an welcher Stelle "RenIn" eingefügt werden soll, ohne das ich eine Hilfsvariable benutze, die die Position speichert.

Zum Programmfehler: Das Programm lief, veränderte aber rein gar nichts an meinen Dateinamen.

Total Commander (übrigens auch sonst zu empfehlen)

Habe nochmal die Prozedur insert nachgeschlagen... sie macht das, was ich auch erwartet habe... eine Prozedur, die beim Einfügen des Teilstrings die schon an dieser Stelle vorhandenen zeichen dabei löscht (wobei also die Länge des String gleich bleibt), gibt es auch, sei heißt "StringReplace"
(http://www.delphi-treff.de/no_cache/...f8f&sword_list[0]=stringverarbeitung)

ok, sorry
da hast du recht
Du bestimmst die Position von Ren ja nochmals neu

Die Variable "datei" in RenameFiles enthält nur den OrdnerPfad (?)
Und so eine Datei kannst du nicht umbenennen
geb bei RenameFile mal den ganzen Dateinamen an

markieren

Delphi-Quellcode:

RenameFile(datei+FindRec.Name,datei+DateiName);
// alter Dateiname | neuer Dateiname

Oh stimmt

dann wird die Funktion LastSlash (die von einem Pfad + Dateinamen den Pfad wegschneidet, sodass der Dateiname übrigbleibt) ja sogar überflüssig.
habe auch durch einen Hinweis von Delphi festgestellt, das die Variable Slashpos in dieser Funktion gar nicht initialisiert wurde... hab sie mal gestrichen und sie durch das längere "pos('\',hilfStr)" ersetzt.

trotzdem funktioniert es so nicht, ich blocke auch gar nicht mehr so gut durch wegen den vielen Variablen....

Zitat von NamenLozer:

Total Commander (übrigens auch sonst zu empfehlen)

Danke für den Tipp!
Kannst du mir sagen, ob/wie man Leerzeichen ENTFERNEN kann?

Hallo,

evtl. hilft dir hier mein Programm RenamePack

Viele Grüße

der_hugo

Dein insert und rename ersetzt immer nur das erste Vorkommen des gesuchen Strings/Zeichens.

Für alle Vorkommen müßtest du es in einer Schleife solange wiederholen, bis der String/das Zeichen nicht mehr vorkommt.

Aber zum Ersetzen würde ich dir StringReplace empfehlen.


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.



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