Вопрос № 116140: Добрый день !!! Это опять Я :)) У меня на работе есть архив. Работники не хотят сохранять файлы под номерами которые предоставляет наш архивариус, а сохраняют как им в голову придется. И мне нужно создать прогу чтоб сортровала по имени файла, лишнее ...Вопрос № 116146: Здравствуйте, уважаемые эксперты!!!
Для своего проекта мне необходимо реализовать такую задачу: возможность запуска моей программы из командной строки с какими-либо параметрами. Например "rar e -o+ 1.rar c:\" -извлечение из архива или ...Вопрос № 116161: Приложение, открывающее файлы форматов *.doc, *.rtf, *.pdf в собственном окне. ...
Вопрос № 116.140
Добрый день !!! Это опять Я :)) У меня на работе есть архив. Работники не хотят сохранять файлы под номерами которые предоставляет наш архивариус, а сохраняют как им в голову придется. И мне нужно создать прогу чтоб сортровала по имени файла, лишнее тупо удаляла или перебрасывала в другую папку. Может так будет более понятно.
Отвечает: Проходящий Мимо
Здравствуйте, Кирилюк Александр Сергеевич!
Есть такой тип TSearchRec, с его помощью можно искать файлы для последующей работы с ними. Он описан в SysUtils. В приложении процедура ScanDir поиска файлов по маске в заданной директории. То есть, первым делом нам надо найти все файлы работников для последующего анализа. Названия и путь к файлам будем хранить в структуре TStringList. Итак:
procedure TForm1.Button1Click(Sender: TObject);
var StList: TStringList; //наш список файлов
i:integer; //счетчик
begin
StList:=TStringList.Create; //создаем пустой список, не забываем прибить по окончанию
ScanDir('c:Наш_каталог', '*.rar', StList);
if StList.Count=0 then //если файлов нет, уходим
StList.Free; //прибиваем
else //если есть, работаем
for i:=0 to StList.Count-1 do //проходим в цикле все файлики
begin
Application.ProcessMessages;
if FileExists('c:Наш_каталог'+ExtractFileName(StList[i])) //если фай существует, то работаем с ним
//название будет хранится в StList[i], где і - порядковый номер, начинается с 0
then
// а здесь работает Ваша фантазия, анализируйте имя, и работайте
//MoveFile - переносит файл в другую директорию или переименовывает его
MoveFile(PChar(StList[i]), 'c:Новый каталогНовое_имя_файла');
end;
StList.Free; //прибиваем
end;
Приложение:
--------- Carpe diem!
Ответ отправил: Проходящий Мимо (статус: 10-ый класс)
Ответ отправлен: 27.12.2007, 10:06
Вопрос № 116.146
Здравствуйте, уважаемые эксперты!!!
Для своего проекта мне необходимо реализовать такую задачу: возможность запуска моей программы из командной строки с какими-либо параметрами. Например "rar e -o+ 1.rar c:\" -извлечение из архива или "notepad.exe 1.txt" - запуск блокнота с открытием файла 1.txt. Как и мне также сделать, чтобы запуск моей программы с ключем что-то означал и что-то выполнялось???
Отвечает: Raptor3
Здравствуйте, Чеботок Алексей Андреевич!
Данный код взят из стандартного мануала
Приложение:
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 3-ий класс)
Ответ отправлен: 27.12.2007, 10:59 Оценка за ответ: 3 Комментарий оценки: много неточностей с мануалом, хотя в глаза его не видел.но за идею спасибо
Отвечает: Selya
Здравствуйте, Чеботок Алексей Андреевич!
Используй стандартную функцию ParamStr()
ParamStr(0) - имя exe файла
ParamStr(1) - первый параметр и.т.д.
ParamCount - количество параметров
Параметры разделяются пробелами. Если в параметре необходимо передать пробел (напр. в имени папки), то параметр необходимо заключить в двойные кавычки "
Ответ отправил: Selya (статус: 2-ой класс)
Ответ отправлен: 27.12.2007, 11:23 Оценка за ответ: 5 Комментарий оценки: Пасиба
Вопрос № 116.161
Приложение, открывающее файлы форматов *.doc, *.rtf, *.pdf в собственном окне.
Отправлен: 27.12.2007, 12:29
Вопрос задал: Semen13 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Raptor3
Здравствуйте, Semen13!
Легко - бросаем TWebBrowser на форму
Приложение:
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 3-ий класс)
Ответ отправлен: 27.12.2007, 12:50
