ФОТОТЕХ
VetCAD

ДВАЖДЫ ОБНОВЛЕННАЯ прога для чистки (Purge) всех чертежей в указанной директории.

    0 оценок

Random

размещено: 14 Октября 2004
Маленький лиспик.
Прога просит указать любой файл в директории, которую вы собираетесь чистить, а затем чистит все находящиеся там файлы.

Вызов (PSF)

Добавлена проверка на уже открытые файлы.

Теперь должна работать даже у товарищей с "золотыми ручками" :-)
ДВАЖДЫ ОБНОВЛЕННАЯ прога для чистки (Purge) всех чертежей в указанной директории.1
ДВАЖДЫ ОБНОВЛЕННАЯ прога для чистки (Purge) всех чертежей в указанной директории.2
ДВАЖДЫ ОБНОВЛЕННАЯ прога для чистки (Purge) всех чертежей в указанной директории.3

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 1-10 из 28
Соня , 04 октября 2004 в 10:12
#1
Все повисло при проверке на открытый файл...
Random , 04 октября 2004 в 11:41
#2
Это настолько простенький лиспик что там даже глючить нечему. Посмотрите пожалуйста Скриншот 2.
ЮрМС , 04 октября 2004 в 18:51
#3
А У МЕНЯ НЕ ЗАПУСКАЕТЬСЯ????
Command: _appload Чистка директории.lsp ycneшнo зarpyжeн.
Чистка директории.lsp ycneшнo зarpyжeн.
Command: PurgeSomeFiles
Unknown command "PURGESOMEFILES". Press F1 for help.
Random , 05 октября 2004 в 09:13
#4
в скобках набирай
(PurgeSomeFiles)
Барабанщиков Николай , 06 октября 2004 в 20:35
#5
Подтверждаю - глючит!. При открытом к.л. файле попытка к выполнению команды в этой же папке приводит к зависанию. А так же я сделал команду короче: (Defun C:PSF()далеее по программе - проще вспоминать и набирать.
Random , 07 октября 2004 в 09:44
#6
Только что тестил следующим образом:
Один файл открыл сам, второй открыл админ на своем компе. Запустил прогу, и она отработала как надо, выдав в конце список из двух неочищеных файлов. Не понимаю в чем проблема :-(.

2 Николай: на то тут и исходник выложен чтоб под себя затачивать.


Пример для справки:
Общий объем чертежей в папке -13,4 Мб
Количество чертежей - 15
Объем каждого чертежа от 15 до 3556 Кб
ВРЕМЯ РАБОТЫ ПРОГИ - 1 минута 57 секунд - довольно долго.

Может вам просто надо набраться терпения и подождать. Или объясните в чем конкретно выражается зависание.
Николай Б , 07 октября 2004 в 19:36
#7
Прохождение команды спотыкается об открытый файл и не может его закрыть. Прога непроста (что очевидно при просмотре анимации выполнения), хотя и коротка. Предполагаю что, где-то просто списана. А если нет - то необходимо добавить запрещение работы с текущими файлами, а мне поздравить Вас с виртуозным программированием.
Соня , 08 октября 2004 в 06:34
#8
Открыла файл и его же один и пыталась очистить(любопытство чистой воды). Пошла пить чай, поработала пол дня в других программах, потом вдруг вспомнила, что где то там чистится файл:-) если это не зависание то что? пришлось снимать процесс асад.ехе
Соня , 08 октября 2004 в 06:38
#9
может быть у меня одной не работает? вообще то, меня звали раньше "сонька- кривая ручка":-)Зато из меня отличный тестер! все что МОЖЕТ зависнуть- у меня зависнет. Так что ждем-с апдейт)
Random , 08 октября 2004 в 08:46
#10
2 Николай Б
История сдесь
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=3643sk
Списана не списана - вам судить.

Суть проверки в том, что если файл уже где-то открыт, то у вас он открывается как ReadOnly. Это свойство и проверяется и при его наличии файл закрывается без сохранения - всего и делов. Может кто нить запустит прогу в отладчике и сказать на какой строке все виснет, потому что у меня все работает как часы. Или описать условия, при которых я могу сам ее повесить. Только вот сюда HAPK215@yandex.ru Заранее благодарен.

З.Ы. Мож дело в Акаде? У меня 2004.
zip

0.1 МБ

СКАЧАТЬ