让 Lisp 程序联网自动更新的一种方法

yxp

软件程序很难一步设计到位，通常有各种 bug，如何让 lisp 代码自动联网更新，获取最新代码？本文提供了一种轻量级的方法。用 lisp 连接 FTP 下载肯定是最快的，但是不直观，不知道更新了哪些代码。
实现思路： 用 lisp 后台分析一个网页或微博，如果找到关键字，则说明程序已更新，未找到则说明当前是最新版，不需要更新。
方法举例： 运行 lisp 打开本人的明经微博 http://www.mjtd.com/?77098，分析微博里的 lisp 代码，并下载到本地磁盘，然后让 CAD 自动加载、运行这段下载的代码。

以下代码在 win10 (x64) 系统中调试通过。

1. ;;代码原创       by: yxp  2018/04/18
   
2. (defun c:test()
   
3. (vl-load-com)
   
4. (setq addr "http://www.mjtd.com/?77098")
   
5. (setq txt (loadhtml addr))
   
6. (setq txt (car (RegExp txt "code=lisp.*/code" nil "i")))
   
7. (setq txt (substr txt 10 (- (strlen txt) 14)))
   
8. (setq txt (RegExp txt """ "\042" "gi"))
   
9. (setq f (open "d:\\test1.lsp" "w")) ;;保存到磁盘
   
10. (write-line (car txt) f)
    
11. (close f)
    
12. (load "d:\\test1.lsp")
    
13. (princ)
    
14. )
    
15. 
    
16. 
    
17. ;; Lisp 读取网页信息   by: yxp  2017-4-18
    
18. ;;可以用 ActiveX 方法调用 post 事件，用 Lisp 写一个网络留言本在 CAD 里运行，收集客户对程序的意见。
    
19. (defun loadhtml( address / ob html)
    
20.   (setq ob (vlax-create-object "Msxml2.XMLHTTP"))
    
21.   (vlax-invoke-method ob "open" "get" address "false")
    
22.   (if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke-method (list ob "send")))
    
23.     (princ "\n当前无网络连接")
    
24.     (setq html (vlax-get-property ob "responseText"))
    
25.   )
    
26.   (vlax-release-object ob)
    
27.   html
    
28. )
    
29. 
    
30. 
    
31. ;;加载正则表达式
    
32. (defun RegExp (str mode nstr key / L)
    
33.   (setq reg (vlax-create-object "vbscript.regexp"))
    
34.   (vlax-put-property reg 'Pattern mode)
    
35.   (foreach x '(("Global" . "*g*,*G*")("IgnoreCase" . "*i*,*I*")("Multiline" . "*m*,*M*"))
    
36.     (vlax-put-property reg (car x) (if (wcmatch key (cdr x)) 1 0)))
    
37.   (if nstr (setq L (list (vlax-invoke reg 'replace str nstr)))
    
38.     (vlax-for x (vlax-invoke reg 'Execute str)(setq L (cons (vla-get-value x) L))))
    
39.   (vlax-release-object reg)
    
40.   (reverse L)
    
41. )

;;代码原创       by: yxp  2018/04/18<br /> (defun c:test()<br /> (vl-load-com)<br /> (setq addr "http://www.mjtd.com/?77098")<br /> (setq txt (loadhtml addr))<br /> (setq txt (car (RegExp txt "code=lisp.*/code" nil "i")))<br /> (setq txt (substr txt 10 (- (strlen txt) 14)))<br /> (setq txt (RegExp txt """ "\042" "gi"))<br /> (setq f (open "d:\\test1.lsp" "w")) ;;保存到磁盘<br /> (write-line (car txt) f)<br /> (close f)<br /> (load "d:\\test1.lsp")<br /> (princ)<br /> )<br /> <br /> <br /> ;; Lisp 读取网页信息   by: yxp  2017-4-18<br /> ;;可以用 ActiveX 方法调用 post 事件，用 Lisp 写一个网络留言本在 CAD 里运行，收集客户对程序的意见。<br /> (defun loadhtml( address / ob html)<br />   (setq ob (vlax-create-object "Msxml2.XMLHTTP"))<br />   (vlax-invoke-method ob "open" "get" address "false")<br />   (if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke-method (list ob "send")))<br />     (princ "\n当前无网络连接")<br />     (setq html (vlax-get-property ob "responseText"))<br />   )<br />   (vlax-release-object ob)<br />   html<br /> )<br /> <br /> <br /> ;;加载正则表达式<br /> (defun RegExp (str mode nstr key / L)<br />   (setq reg (vlax-create-object "vbscript.regexp"))<br />   (vlax-put-property reg 'Pattern mode)<br />   (foreach x '(("Global" . "*g*,*G*")("IgnoreCase" . "*i*,*I*")("Multiline" . "*m*,*M*"))<br />     (vlax-put-property reg (car x) (if (wcmatch key (cdr x)) 1 0)))<br />   (if nstr (setq L (list (vlax-invoke reg 'replace str nstr)))<br />     (vlax-for x (vlax-invoke reg 'Execute str)(setq L (cons (vla-get-value x) L))))<br />   (vlax-release-object reg)<br />   (reverse L)<br /> )

fl202

yxp 发表于 2018-4-19 16:07
创建 Msxl2.XMLHTTP对象，调用 post 方法，发送网卡地址给服务器的 ACCESS 数据库....

是不是这样？服务器的 ACCESS 数据库是什么？
(defun posthtml(address txt1 / ob )
;;发送文字txt1到网址address
    (setq ob (vlax-create-object "Msxml2.XMLHTTP"))
    ;(setq txt1 "abc123" address "http://www.mjtd.com/home.php?mod=space&uid=344850" )
        ;(vlax-invoke-method ob "open" "get" address "false")
        (vlax-invoke-method ob "open" "post" address "false")
    ;;;...... 此处怎么写？
   
    (vlax-release-object ob)
(princ)
)

情迷法兰西0

在下以前也写过一个，只是年久失修，源码没了，(好在可以把代码直接更新在网页端，此程序仍可下载)为此很是心痛啊，告戒大家不要轻易重装系统，装系统之前一定要备份资料啊

yxp

fl202 发表于 2018-4-19 15:41
如果说：
我的程序发布后，我想知道我的程序大概有多少人在用？
怎么做法？谢谢！

创建 Msxl2.XMLHTTP对象，调用 post 方法，发送网卡地址给服务器的 ACCESS 数据库....

xinxirong

沙发，yxp太牛了

fl202

如果说：
我的程序发布后，我想知道我的程序大概有多少人在用？
怎么做法？谢谢！

ntwison

牛了，这样也行

vectra

服务器端也要有脚本才行

qhdycm2017

非常不错呀，谢谢楼主共享！

airuyi

楼主高明，创意无限啊。