Избежать удаления троечки, в mp3

[HellMercenariess]

Здравствуйте!
Как избежать удаления '3' и '4' если они в расширении файла?
Только что переименовал пачку файлов, хорошо что сразу вскрылся недостаток такого метода.

Также нельзя выкидывать любые цифры из названий каталогов.

procedure TForm1.ClearDig;
    const
  D = ['0'..'9'];
 var
  S : String;
  i,ix ,len,exa: Integer;
begin
    for Ix:=1 to FileListBox1.Count-1 do
      begin
   S:=FileListBox1.Items.Strings[ix];
    Len := Length(S);
    for i := Len downto 1 do
    if S[i] in D then Delete(S, i, 1);
    RenameFile(FileListBox1.Items[ix],S);
  end;
end;

Наделанное поправил вернув всем расширение.

begin
 for i:=1 to FileListBox1.Count-1 do
  begin
 s:=ChangeFileExt(FileListBox1.Items.Strings[i],'.mp3');
 RenameFile(FileListBox1.Items[i],S);
  end;

[Stilet]

Какова цель такого переименовывания и что в результате нужно получить?

[HellMercenariess]

Сообщение от Stilet

Какова цель такого переименовывания и что в результате нужно получить?

упорядочить хоть немного захламленные папки.

[DiemonStar]

Ну так выделите из имени файла перед обработкой имя и расширение. Имя обрабатывайте, а расширение прицепляйте обратно. Да и вообще, есть tag-эдиторы которые неплохо перебирают всю музыку - главное правильно им маски задавать))

[Аватар]

  for Ix:=1 to FileListBox1.Count-1 do begin  //почему с 1, а не с 0?
    s1:=ExtractFileName(FileListBox1.Items.Strings[ix]);
    s2:=Copy(FileListBox1.Items.Strings[ix],1,Length(FileListBox1.Items.Strings[ix])-Length(s1)); //путь
    s3:=ExtractFileExt(s1); //расширение
    s1:=Copy(s1,1,Length(s1)-Length(s3)); //имя без пути и расширения
    for i := Length(s1) downto 1 do
      if s1[i] in D then Delete(s1, i, 1); //а вдруг в имени все цифры были?
    s:=s2+s1+s3;
    RenameFile(FileListBox1.Items[ix],S); //может и не переименовать, хотя бы потому, что сновым именем уже существует
  end;

А вообщето странноватый алгоритм переименования. Посмотрел на картинку, что делать с оставшимися точками в начале имени?

[hon]

AntRenamer твой лучший друг.

[HellMercenariess]

Сообщение от Аватар

А вообщето странноватый алгоритм переименования. Посмотрел на картинку, что делать с оставшимися точками в начале имени?

 procedure TForm1.ClearPref;
const ssd=['-', '_', '.'];
 var
  S : String;
  i,ix ,len,exa: Integer;
begin
    for Ix:=1 to FileListBox1.Count-1 do
      begin
   S:=FileListBox1.Items.Strings[ix];
    Len := Length(S);
    for i :=1 to 3 do
    if S[i]in ssd then Delete(S, i, 1);
    RenameFile(FileListBox1.Items[ix],S);
end;
  end;

В результате этих двух манипуляций, остались только по одному пробелу в начале имен и некоторое безобразие в серединах имен:
вроде этого "_-_"
Из середины выкидывать тире пока не рискну, оно обычно разделяет исполнителя и название трэка.
Та папка что уже обработал вообще по жести была, по 4-6 цифер бессмысленных где попало в имени файла.


hon, без исходников некатит.

[Stilet]

упорядочить хоть немного захламленные папки.

Не знаю как у тебя, а у моего тотала есть возможность именования по артистам и альбомам. Достаточно использовать эту опцию, чтоб правильно поименовать файлы.
А вообще медиатеку нужно держать в идеальнейшем порядке изначально.