Форум Кургана и Курганской области и наших друзей

Зима. Форум Кургана и Курганской области и наших друзей
03 Июль 2020, 23:13:27 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Программка  (Прочитано 1764 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Flamingo
Титулярный советник
*****

Карма: 69
Offline Offline

Сообщений: 796


Награды
« : 09 Июнь 2007, 10:31:32 »

Вообщем задача такая. В папке лежит нное количество файлов с расширением .jar ну и сама программа. Она должна просмотреть содержимое этой папки и создать ровно столько же текстовых файлов, с тем же именем. Например лежит файл java1.jar. Прога должна создать текстовый файл с именем java1.jar.txt И так для всех файлов... В принципе можно и на пхп.. главное чтобы код работал, т.е. запихнул его к примеру в паскаль нажал Компилировать и юзай!
Записан
xzv
Местная достопримечательность. :D
Канцлер
**********

Карма: 708
Offline Offline

Пол: Мужской
Сообщений: 13877


90027_veteran.gif

СКАЖЕМ НЕТ - ВНЕШНЕМУ УПРАВЛЕНИЮ!


WWW Награды
« Ответ #1 : 09 Июнь 2007, 17:08:33 »

Вот тебе скрипт который нужно запустить в деректории с файлами в unix shell (bash).
Нужно чтобы был установлен awk
Код:
ls -1F | grep -v "./$" | awk '{ print "echo > "$1".txt"; }' > create_txt.sh | chmod 0777 create_txt.sh
Там будет создан файл "create_txt.sh" который просто надо будет запустить в этом-же каталоге и будет тебе счастье!
Записан

xzv
Местная достопримечательность. :D
Канцлер
**********

Карма: 708
Offline Offline

Пол: Мужской
Сообщений: 13877


90027_veteran.gif

СКАЖЕМ НЕТ - ВНЕШНЕМУ УПРАВЛЕНИЮ!


WWW Награды
« Ответ #2 : 09 Июнь 2007, 18:35:31 »

Этот скрипт можно запустить с любого Live CD линуксового.
Записан

Eraser
Провинциальный секретарь
*

Карма: 11
Offline Offline

Пол: Мужской
Сообщений: 32


Награды
« Ответ #3 : 10 Июнь 2007, 01:12:04 »

для дельфи
Код:
procedure TForm1.Button1Click(Sender: TObject);
var sr: TSearchRec;
    FA: Integer;
    f: textfile;
begin
 FA := SysUtils.faReadOnly;
 FA := FA + SysUtils.faHidden;
 FA := FA + SysUtils.faSysFile;
 FA := FA + SysUtils.faArchive;
 FA := FA + SysUtils.faAnyFile;
 if FindFirst('c:\temp\*.jar', FA, sr) = 0 then
  begin
   repeat
    if (sr.Name<>'.') and (sr.Name<>'..') then
     begin
      AssignFile(f,sr.Name+'.txt');
      rewrite(f);
      closefile(f);
     end;
   until FindNext(sr) <> 0;
   FindClose(sr);
  end;
end;
Записан
Flamingo
Титулярный советник
*****

Карма: 69
Offline Offline

Сообщений: 796


Награды
« Ответ #4 : 10 Июнь 2007, 19:30:50 »

Eraser спасибо большое! Все работает ))) С меня +
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.11 | SMF © 2006-2008, Simple Machines LLC
rss | wap
Valid XHTML 1.0! Valid CSS!