Hallo,
mein Problem ist folgendes:
Ich habe ein Converter-Programm, das für mich Clips (.mp4) in Musik Dateien umwandelt (.mp3).
Nur leider nimmt das Programm den ganzen Namen+Endung und setzt .mp3 dahinter. (Also "Dateiname.mp4.mp3)
Da mich das stört, würde ich gerne ein Programm schreiben, welches diese "doppelte Dateiendung" entfernt.
Bisher habe ich diese Funktion gefunden, die das ".mp4" aus dem Dateinamen löschen sollte, suche nun aber noch nach einer Methode, wie ich den Ordner "abscannen" kann um dann bei allen Dateien die Endung zu kürzen.
Delphi-Quellcode:
function RemoveInvalidCharsFromFileName(const sPFileName: String): String;
var
sFilePath, sFileName: String;
i_lastBS, i : integer;
begin
i_lastBS := 0; //Variable initialisieren
//Herausfinden welcher Teil des Strings Pfad und welcher Dateiname ist
for i := 1 to length(sPFileName) do
begin
if sPFileName[i] = '\' then
begin
i_lastBS := i; //letztes Auftreten des Backslash merken
end;
end;
//Pfad und Dateiname trennen
sFileName := copy(sPFileName, i_lastBS+1, length(sPFileName)-i_lastBS+1);
sFilePath := copy(sPFileName, 0, i_lastBS);
//Den Dateinamen säubern
sFileName := StringReplace(sFileName, '.mp4', '', [rfReplaceAll, rfIgnoreCase]);
Result := sFilePath + sFileName;
end;
Würde mich über Hilfe/Ansätze/etc. freuen.
Gruß,
gasty