[Holon]

Судя повсему проблемма заключается в типе данных в

Код:

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

(if ( >= cdate lic)

игнорируется сравнение, вот для наглядности в функцию добавил,

Код:

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

(list lic cdate (type lic) (type cdate))

что-бы внести ясность. Я впринципе хотел создать функцию
для ограничения своих функций по времени, к примеру приходит определенное число
функция обращается к файлу сравнивает его с данными в файле и если дата совпала
или больше то функция перестает запускать остальные функции загруженнуе с ней в одном файле, и в добавок в файл прописывает всякий бред

Код:

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

(write-line(strcat "License Manager" "_" licpath licfile) test_lic)

для того,что-бы нельзя было перевести дату назад. В самом файле прописано 20070812 Вот пример кода

Код:

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

(defun tmp_lic (/ test_lic cdate lic basepath licpath licfile)
  (setq	cdate	 (fix(getvar "cdate"))
	basepath "U:\\lisp\\"
	licpath	 (strcat basepath "lic\\")
	licfile	 "License.lic"
  )
  (setq	test_lic (open (strcat licpath licfile) "r")
	lic	 (read-line test_lic)
        lic (atoi lic)
	)
  (close test_lic)
  (if ( >= cdate lic)
  (progn
  (setq test_lic (open (strcat licpath licfile) "a"))
	   (write-line(strcat "License Manager" "_" licpath licfile) test_lic)
	   (close test_lic)
  );end progn
  );end if
  (if (< cdate lic)(c:Glass))
  (list lic cdate (type lic) (type cdate))
  )

[Holon]

Объясните пожалуйста почему выдает ошибку, есть некоторая функция (y_month_d) возвращающая строку,
эту строку я хочу присвоить списку строк, что я делаю неправильно?

Код:

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

_$ (y_month_d)
"14.9.2007"
_$ (setq all ((y_month_d) "aaaaaa" "bbbbbb" "cccccc"))
; error: bad function: "14.9.2007"
_$

[Кулик Алексей aka kpblc]

(setq all (list (y_month_d) "aaaaaa" "bbbbbb" "cccccc"))

[Holon]

Да уж

[Кулик Алексей aka kpblc]

:?: Чего, и так не сработало?

[fixo]

Как бы не и тему, просто тут заикались
насчет работы с Экселем...
http://dwg.ru/forum/viewtopic.php?t=9468

~'J'~

[Holon]

Сообщение от Кулик Алексей aka kpblc :?: Чего, и так не сработало?

Конечно сработало просто я был подуставший, начал тупить :?