1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Переименовать файлы

Тема в разделе "Программирование", создана пользователем Alex-ey, 3 авг 2015.

  1. TopicStarter Overlay
    Alex-ey

    Alex-ey

    Регистрация:
    26 май 2012
    Сообщения:
    513
    Симпатии:
    323
    Кодеры, напишите программу, которой на вход даём папку, на выходе программа все файлы в этой папке переименует так:1,2,3, и т. д.
    Или подскажите уже существующую.
    Если напишете, желательно сорцы мне:)
    Спасибо!
     
    Метки:
  2. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    тыж на делфи пишешь?
    --- Добавил сообщение, 3 авг 2015 ---
    подожди 20 минут ща все будет
     
  3. TopicStarter Overlay
    Alex-ey

    Alex-ey

    Регистрация:
    26 май 2012
    Сообщения:
    513
    Симпатии:
    323
    Я на дельфи, бейсике и си, си++, си# пишу, но блин. Эту тему не затрагивал и не хочу:)
    Извините за мою лень
     
  4. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    ща на bat скоренько напишу
    --- Добавил сообщение, 3 авг 2015 ---
    по идее должно работать
    @echo off
    chcp 1251
    set /A n=0

    For %%i in (*.*) Do (
    set /A n+=1
    ren "%%i" "%n%"
    )
    но блять хоть убейся не работает, ну лан ща на делфи черкану
     
  5. Crash0w3r

    Crash0w3r Head Guru

    Регистрация:
    12 май 2012
    Сообщения:
    380
    Симпатии:
    262
    На подразни этот код. он тебе ответит взаимностью :D
    Код:
    var
    m: TSearchRec;
    s: string;
    i: integer;
    
    s:='C:\IMG\'; //название папки
    FindFirst(s,m); //поиск первого файла в папке
    i:=1;
    repeat
    begin
      RenameFile(s+m.name,s+IntToStr(i)+'.docx'; //переименование найденного файла
      i:=i+1;
    end
      until findNext(m)=0; //поиск следующего, если не найдет - цикл закончится
     
    • Like Like x 2
  6. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Инет блять отрубили, точно такой как в оратора выше. Please login or register to view links
     
    • Like Like x 1
  7. googie

    googie Команда форума

    Регистрация:
    27 июл 2012
    Сообщения:
    825
    Симпатии:
    618
    В тотал коммандере можно переименовывать массово файлы, вот видео например: но там мало что показано, в программе можно посмотреть и больше, есть возможность именовать из списка текстовика
     
    • Like Like x 1
  8. TopicStarter Overlay
    Alex-ey

    Alex-ey

    Регистрация:
    26 май 2012
    Сообщения:
    513
    Симпатии:
    323
    Что то ваши программки не работали у меня, я чуток сам подписал, всё стало отлично работать. Всем спасибо :)
    А вот и мой код:
    Код:
    var
      search: TSearchRec;
      mask: string;
      count:integer; 
    
    
    
    
    
    
      count :=1;
      if edit1.Text[length(edit1.text)]<>'\' then Edit1.Text:=edit1.text+'\';
      mask :=Edit1.Text;
    
      mask:=mask+'*?*.*?*';
      if FindFirst(mask, $23, search) = 0 then
      begin
        repeat
        RenameFile(edit1.Text + search.Name,edit1.Text + inttostr(count)+copy(search.Name,pos('.',search.Name),length(search.Name)-pos('.',search.Name)+1));
        Inc(Count);
        until FindNext(search) <> 0;
      end;
    
      FindClose(search);  
    
    
     

Поделиться этой страницей

Загрузка...