ADN Club > AutoLisp / VisualLISP и DCL
Создание лог-файла для LISP
Пашин Евгений:
Доброе утро!
Подскажите как грамотно создать лог-файл для LISP-функции, в котором должна быть информация:
Название файла должно содержать в себе Имя компьютера и дату в формате __ДДММГГГГ_ЧЧММСС, то есть Имя_компьютера__ДДММГГГ_ЧЧММСС.txt.
Внутри файла:
1) Дата: ДД-ММ-ГГГГ
2) Имя пользователя: #####
3) Имя компьютера: #####
4) Начало функции: ЧЧ:ММ:СС
5) Имя функции: «Вставка стандартного блока»
6) Конец функции: ЧЧ:ММ:СС
Буду признателен за помощь.
Цель: генерировать лог-файл для LISP - функции.
Что я делаю не так?
--- Код - Auto/Visual Lisp [Выбрать] ---(setq str1 "Дата создания:"); как определить?(setq str2 "Имя компьютера:"); как определить?(setq str3 "Имя пользователя:"); как определить?(setq str4 "Начало:"); как определить?(setq str5 (strcat str2 "__" str1 "_" str4)); имя файла(setq str6 (strcat "\\server-1\SAPR_report\" str5 ".txt")); полный путь к файлу(setq myFile (open str6 "w"))(write-line str1 myFile)(write-line str2 myFile)(write-line str3 myFile)(write-line str4 myFile)(close myFile)
Владимир Шу:
Посмотрите тут: http://adn-cis.org/forum/index.php?topic=2580.0 , возможно появиться пара идей как получить имя компьютера и имя пользователя.
Александр Ривилис:
--- Цитировать ---Command: (setq comp (getenv "COMPUTERNAME")) "RIVILISAN"
Command: (setq user (getenv "USERNAME")) "Rivilis-AN"
Command: (setq sdate (rtos (getvar "CDATE") 2 6)) "20151124.082957"
--- Конец цитаты ---
Думаю, что этой информации предостаточно.
Пашин Евгений:
--- Цитата: Александр Ривилис от 24-11-2015, 09:31:22 ---Думаю, что этой информации предостаточно.
--- Конец цитаты ---
Увы, Александр Наумович, не достаточно!
Lisp-функция не работает:
--- Код - Auto/Visual Lisp [Выбрать] ---(setq username (getenv "username"))(setq copname (getenv "computername"))(setq sdate (rtos (getvar "CDATE") 2 6))(setq str5 (strcat copname "__" sdate))(setq str6 (strcat "\\server-1\SAPR_report\" str5 ".txt"))(setq myFile (open str6 "w"))(write-line username myFile)(write-line copname myFile)(close myFile)
Файл как не формировался, так и не хочет. Даже если задаю локальный путь, а не сетевой, то все равно кочевряжится.
Александр Ривилис:
--- Цитата: Пашин Евгений от 24-11-2015, 09:36:19 ---Lisp-функция не работает:
--- Конец цитаты ---
Кто не работает? Куда не работает? Какие сообщения выдаёт?
Навигация
Перейти к полной версии