paulpipi 发表于 2019-8-17 16:28:26

这个问题不好说呀

t18-13nil 发表于 2019-8-17 18:31:53

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

ZMB7211 发表于 2021-7-22 00:26:07

(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 "试用超过限制")
)
)
)

烟盒迷唇 发表于 2021-8-10 10:56:02

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

bssurvey 发表于 2021-8-10 11:13:12

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

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

页: 1 [2]
查看完整版本: LISP如何限制使用次数?