LISP如何限制使用次数?

paulpipi

这个问题不好说呀

t18-13nil

这东西会的就很简单，不会的写出的程序也没几个想用

ZMB7211

(defun c:cishu()
(IF (SETQ TMPTXT (open "C:\\Program Files\\次数计数.TXT" "R"))
  (progn
  (setq tmpxx(READ-LINE tmptxt))
  (CLOSE TMPTXT)
  (setq tmpxx(1+(fix(atof tmpxx))))
  (SETQ TMPTXT (open "C:\\Program Files\\次数计数.TXT" "w"))
  (write-line (itoa tmpxx) tmptxt)
  (CLOSE TMPTXT)
)
  (progn
    (SETQ TMPTXT (open "C:\\Program Files\\次数计数.TXT" "w"))
    (write-line "1" tmptxt)
    (CLOSE TMPTXT)
  )
)

(if (< tmpxx 100)
(progn
(prompt "试用次数内")
)
(progn
(alert "试用超过限制")
)
)
)

烟盒迷唇

这样写的话，只要把文件使用数次修改了，不是就能长久使用了。

bssurvey

烟盒迷唇 发表于 2021-8-10 10:56
这样写的话，只要把文件使用数次修改了，不是就能长久使用了。

是没錯啦 但他要找得到文件放在哪
我是用日期去限制 再加上要找到特定的檔案才可以使用 過了期限 就把特定檔案刪除 就無法使用