Пример «Переименование файлов PERFO в ПЕРФО»

Файлы:

Пример программы на языке программирования Перфо:

//Эта программанаписана на языке Перфо
//и позволяет переименовывать файлы с расширением .perfo в файлы с расширением .перфо

//путем не сложной доработки можно использовать для других расширений 
//или других переименований файлов

//выбираем все файлы с расширением .perfo в текущем каталоге
(Перем ВыбФайлы (ФС.ВыбратьФайлы ФС.ТекущийКаталог "*.perfo" Истина))

//узнаем сколько файлов выбрано
(Перем КвоФайлов ВыбФайлы.Количество)

(Вывод "Выбрано " КвоФайлов " файлов..." пс)

//обходим в цикле все найденные файлы и переименовываем их
(ДляКаждого (Ф ВыбФайлы)
    
    //что бы создать новое имя файла отрежем старое расширение и добавим новое 
    (Перем НовоеИмя (& (Лев Ф (- (СтрДлина Ф) 5)) "перфо"))    
    
    //переименовываем файл
    (ФС.ПереместитьФайл Ф НовоеИмя)    
) 

(Вывод "Готово!")

К началу статьи