[Shoorup]

Возникла задача считать приборы. Похожую программу сделал мне Alaspher тут но теперь мне нужно считать приборы. Все то же самое. Должна быть таблица в которй будут посчитаны содержимое однострочных текстов. Например НМШ2-4000, НМШ1-1440 и их количество. Все остальные тексты игнор. Может кто поможет с программой?

В программе должны быть две колонки. В первой название прибора (для примера достаточно пока двух - остальные я сам могу вбить) во второй количество этих приборов.

[Donhuan]

Извиняюсь, что долго не отвечал - не было времени.
Дополненный код в #9.
Добавил глобальную переменную *way_custom*, если отлична от nil, то диалог с выбором файла в программе будет пропускаться. Для этого в код вместо (setq *way_custom* nil) надо вставить, например, (setq *way_custom* "D:\\book.xls"), то есть путь к своему файлу-шаблону.
Макрос для кнопки, если код помещен в файл lpribor.lsp и данный файл находится в каталогах поддержки:

Код:

[Выделить все]

^C^C(if (not *dir_custom*) (load "lpribor.lsp")) lpribor

Насчет выбора объектов: у меня ошибки не возникает. Если имеются предварительно выбранные объекты, то после вызова функции операции будут производиться с этими объектами, если выбранных объектов до вызова нет, то будет предложено выбрать объекты.

[Shoorup]

Не работает всеравно...
Ошибка Automation. BOF или EOF имеет значение True, либо текущая
запись удалена. Для выполняемой операции требуется текущая запись.

[Donhuan]

Так в #18 работала же?

[Shoorup]

Сообщение от Donhuan Так в #18 работала же?

с учетом изменений после #21 не работает

[Donhuan]

Судя по тому, что у тебя возникает такая же ошибка как и в #12 и ты ее в дальнейшем как-то поборол самостоятельно, посоветовать ничего не могу, так как это точно не связано с теми незначительными дополнениями которые я внес. У меня все работает.

[Shoorup]

Вроде разобрался. Проблему не могу решить при условии что программа и файл эксселя лежит не в корне диска. Закидываю все в корень С:\ все работает, если перекидываю все C:\ShSCB то не работает.
Так должна выглядеть первая строка в лиспе?

Код:

[Выделить все]

(setq *dir_custom* "C:\\ShSCB\") ; начальный путь поиска
(setq *way_custom* "C:\\ShSCB\lpribor.xls")

чую что ошибка именно тут.
При запуске в корне С:\ появляется экселевский файл размером в 6 кило который не удаляется (пока кад работает) и не открывается.

[Alaspher]

Сообщение от Shoorup Так должна выглядеть первая строка в лиспе? Код: [Выделить все] (setq *dir_custom* "C:\\ShSCB\") ; начальный путь поиска (setq *way_custom* "C:\\ShSCB\lpribor.xls")

Не вникая в детали, только по формату записи, если добавлять каталог, то должно быть так:

Код:

[Выделить все]

(setq *dir_custom* "C:\\ShSCB\\") ; начальный путь поиска
(setq *way_custom* "C:\\ShSCB\\lpribor.xls")

[Shoorup]

Alaspher, спасибо! Заработало. Остальное подкрутить "под себя" вполне сам смогу.
Donhuan, спасибо большое за программу! Всё работает как надо.

[Елпанов Евгений]

Вот ведь...
Бывает же!

Функцию чтения *.xls я писал только с одной целью - показать Алексею Кулику, что это возможно! Все было без проверок и в два раза короче, чем в последней версии... С одной стороны, я люблю эксель, как очень удобный калькулятор, но ненавижу его, как программу, для связи с акадом! Для таких целей, во много раз удобнее использовать базы данных. Каждый раз, когда меня просят адаптировать эту программу к каким либо новым условиям или исправить ошибки - мне приходится долго собираться с духом - мне противна сама возможность связки акада и экселя...

PS. Самая последняя версия программы:
Data reading from Microsoft Excel not using Excel.