用VisualLISP程序查看明经社区的最新帖子

mccad · 发表于 2006-12-20 14:17:00

本帖最后由作者于 2006-12-21 8:42:52 编辑

呵呵，昨天写了一个用VBA查看论坛新帖的程序，今天把它改成用通过VisualLISP程序完成，大家可以试试。
这应该是一种网络编程的方式，通过读取网站的RSS文件来完成。再写下去，可能可以写成一个在AutoCAD中使用的RSS阅读器。如果与网站的程序配合，可能还可以完成直接在AutoCAD在论坛上发帖的功能。
程序并没有使用出错处理，只是个简单的试用功能,：

(vl-load-com)
(defun c:getnew(/ objHttp objXML Nodes Node i)
(setq objHttp (vlax-create-object "Msxml2.XMLHTTP"))
(vla-open objHttp "GET" (strcat "http://www.mjtd.com/bbs/rssfeed.asp?rssid=4&rnd=" (rtos(getvar"date") 1 8)) 0)
(vlax-invoke-method objHttp "send")
(if (= (vlax-get-property objHttp "readyState" ) 4)
(progn
(textpage)
(setq objXML (vlax-get-property objHttp "responseXML" ))
(princ (strcat "\n〖"
(vlax-get-property
(vlax-invoke-method
objXML
"selectSingleNode"
"rss//channel//title")
"text"
)
"〗\n"
)
)
(setq Nodes (vlax-invoke-method objXML "selectNodes" "rss//channel//item"))
(setq i 0)
(repeat (vlax-get-property Nodes "length")
(setq Node(vlax-get-property Nodes "item" i))
(princ (strcat "\n● "
(vlax-get-property
(vlax-invoke-method Node "selectSingleNode" "title")
"text"
)
" (发表人:"
(vlax-get-property
(vlax-invoke-method Node "selectSingleNode" "author")
"text"
)
" 最后更新:"
(vlax-get-property
(vlax-invoke-method Node "selectSingleNode" "pubDate")
"text"
)
")"
)
)
(setq i (+ i 1))
)
(vlax-release-object objXML)
)
)
(vlax-release-object objHttp)
(princ)
)

(vl-load-com)
(defun c:getnew(/ objHttp objXML Nodes Node i)
  (setq objHttp (vlax-create-object  "Msxml2.XMLHTTP"))
  (vla-open objHttp  "GET" (strcat "http://www.mjtd.com/bbs/rssfeed.asp?rssid=4&rnd=" (rtos(getvar"date") 1 8)) 0)
  (vlax-invoke-method  objHttp "send")
  (if (= (vlax-get-property objHttp "readyState" ) 4)
    (progn
      (textpage)
      (setq objXML (vlax-get-property objHttp "responseXML" ))
      (princ (strcat "\n〖"
                     (vlax-get-property
                       (vlax-invoke-method
                         objXML
                         "selectSingleNode"
                         "rss//channel//title")
                       "text"
                     )
                     "〗\n"
              )
      )
      (setq Nodes  (vlax-invoke-method objXML "selectNodes" "rss//channel//item"))
      (setq i 0)
      (repeat (vlax-get-property Nodes "length")
        (setq Node(vlax-get-property Nodes "item" i))
        (princ (strcat "\n● "
                       (vlax-get-property
                   (vlax-invoke-method Node "selectSingleNode" "title")
                         "text"
                       )
                       " (发表人:"
                       (vlax-get-property
                   (vlax-invoke-method Node "selectSingleNode" "author")
                         "text"
                       )
                       " 最后更新:"
                       (vlax-get-property
                   (vlax-invoke-method Node "selectSingleNode" "pubDate")
                         "text"
                       )
                       ")"
               )
        )
        (setq i (+ i 1))
      )
      (vlax-release-object objXML)
    )
  )
  (vlax-release-object objHttp)
  (princ)
)

mccad · 发表于 2006-12-20 14:20:00

这是运行后的效果：

oyxx1023 · 发表于 2006-12-20 15:40:00

这样也行。NB

phoenixdjq · 发表于 2006-12-20 21:14:00

斑竹好厉害

谢谢斑竹，我已经下载，从今天开始使用

mccad · 发表于 2006-12-21 08:18:00

本帖最后由作者于 2006-12-21 8:26:05 编辑

呵呵，对于繁体系统，应该还需要对所有文字进行内码转换，在RSS中有一个项为
<language>zh-cn</language>
指的就是语言，需要和AutoCAD中的语言比较后再做处理。

而对于内码转换，需要的就是字符表的比较和替换，做个对照表都比较累。

另外，本站的RSS还可以读取以下列表，基本上是非常齐全，有兴趣的朋友可以试试：

呵呵，都是新的语言啊。

tcsl9621 · 发表于 2006-12-22 20:48:00

收到，还是版主高。呵……

研究中。

正研究PYTHON。不知有没有这方面的高手？

mccad · 发表于 2006-12-22 22:04:00

我有空得去研究C#去，这样编网站的程序也行，编AutoCAD的程序也行，一举两得。呵呵!

它山之石 · 发表于 2006-12-26 13:04:00

居然想出这个主意来　

真是绝了

gjh · 发表于 2007-1-6 11:51:00

开眼见了!!

Thanks!

vken7az2p · 发表于 2007-12-15 12:13:00

请教版主,我使用
(SETQ objText (VLAX-GET-PROPERTY objHttp "ResponseText"))
取得资料,但却是一连串的字串,
且文中有中文字的部份均被解释成为 ?
有解决方法吗?

另外一般网页使用
(SETQ objXML (VLAX-GET-PROPERTY objHttp "responseXML"))
似乎不会有像在这网址中出现的资料,
是因为这取得方法是针对 XML 吗?

另外版主最后提到 “正则表达式的替换”,
是否就是HTML网页的读取方法呢?

烦请各位高手可以解答一下
谢谢~

账号		自动登录	找回密码
密码			注册

用VisualLISP程序查看明经社区的最新帖子

评分

本帖子中包含更多资源