获取CSDN论坛帖子列表
2010-08-23 14:31
260 查看
*!* 作 者:十豆三
*!* 日 期:2010-06-30
*!* 说 明:本例是获取VFP版的帖子列表,同理也可以获取其他版块的帖子列表。
Set Century On
Set Date YMD
Create Cursor CSDN_VFP (帖子标题 C(254),帖子链接 C(254),发帖人 C(50),发帖时间 T,发帖星期 C(6),更新时间 T) && CSDN没有提供 帖子分数、回复数和最后回复人
Declare Integer DeleteUrlCacheEntry In Wininet.Dll String szUrl
lcCSDNXML="http://forum.csdn.net/Rss/VFP/UnClosedList/" && 更改此链接可以获取其他版块的帖子列表
=DeleteUrlCacheEntry(lcCSDNXML) && 清理缓存
loXMLHTTP=Newobject("Microsoft.XMLHTTP")
loXMLHTTP.Open("get",lcCSDNXML,.F.) && 最近200个帖子
loXMLHTTP.Send()
*!* =Strtofile(loXMLHTTP.responseBody,"C:/CSDN_VFP.xml")
loDom=Newobject("Msxml2.DOMDocument")
loDom.LoadXML(loXMLHTTP.responseText)
lnItemCount=loDom.SelectNodes("/rss/channel/item").Length
For lnI=0 To lnItemCount-1
lcpubDate=loDom.SelectNodes("/rss/channel/item/pubDate").Item(lnI).Text && 发帖星期及英文日期
Insert Into CSDN_VFP Values (;
loDom.SelectNodes("/rss/channel/item/title").Item(lnI).Text,; && 帖子标题
loDom.SelectNodes("/rss/channel/item/link").Item(lnI).Text,; && 帖子链接
loDom.SelectNodes("/rss/channel/item/a10:author/a10:name").Item(lnI).Text,; && 发帖人
Ctot(Substr(lcpubDate,13,4)+"-"+Padl(Ceiling(At(Substr(lcpubDate,9,3),"JanFebMarAprMayJunJulAugSepOctNovDec")/3),2,"0")+"-"+Substr(lcpubDate,6,2)+Substr(lcpubDate,17,9)),; && 发帖时间
"星期"+Substrc("一二三四五六日",Ceiling(At(Substr(lcpubDate,1,3),"MonTueWedThuFriSatSun")/3),1),; && 发帖星期
Ctot(Chrtran(loDom.selectNodes("/rss/channel/item/a10:updated").Item(lnI).Text,[TZ],Space(1)))+8*60*60; && 更新时间
)
Endfor
Locate
Browse
Release loXMLHTTP,loDom
*!* 日 期:2010-06-30
*!* 说 明:本例是获取VFP版的帖子列表,同理也可以获取其他版块的帖子列表。
Set Century On
Set Date YMD
Create Cursor CSDN_VFP (帖子标题 C(254),帖子链接 C(254),发帖人 C(50),发帖时间 T,发帖星期 C(6),更新时间 T) && CSDN没有提供 帖子分数、回复数和最后回复人
Declare Integer DeleteUrlCacheEntry In Wininet.Dll String szUrl
lcCSDNXML="http://forum.csdn.net/Rss/VFP/UnClosedList/" && 更改此链接可以获取其他版块的帖子列表
=DeleteUrlCacheEntry(lcCSDNXML) && 清理缓存
loXMLHTTP=Newobject("Microsoft.XMLHTTP")
loXMLHTTP.Open("get",lcCSDNXML,.F.) && 最近200个帖子
loXMLHTTP.Send()
*!* =Strtofile(loXMLHTTP.responseBody,"C:/CSDN_VFP.xml")
loDom=Newobject("Msxml2.DOMDocument")
loDom.LoadXML(loXMLHTTP.responseText)
lnItemCount=loDom.SelectNodes("/rss/channel/item").Length
For lnI=0 To lnItemCount-1
lcpubDate=loDom.SelectNodes("/rss/channel/item/pubDate").Item(lnI).Text && 发帖星期及英文日期
Insert Into CSDN_VFP Values (;
loDom.SelectNodes("/rss/channel/item/title").Item(lnI).Text,; && 帖子标题
loDom.SelectNodes("/rss/channel/item/link").Item(lnI).Text,; && 帖子链接
loDom.SelectNodes("/rss/channel/item/a10:author/a10:name").Item(lnI).Text,; && 发帖人
Ctot(Substr(lcpubDate,13,4)+"-"+Padl(Ceiling(At(Substr(lcpubDate,9,3),"JanFebMarAprMayJunJulAugSepOctNovDec")/3),2,"0")+"-"+Substr(lcpubDate,6,2)+Substr(lcpubDate,17,9)),; && 发帖时间
"星期"+Substrc("一二三四五六日",Ceiling(At(Substr(lcpubDate,1,3),"MonTueWedThuFriSatSun")/3),1),; && 发帖星期
Ctot(Chrtran(loDom.selectNodes("/rss/channel/item/a10:updated").Item(lnI).Text,[TZ],Space(1)))+8*60*60; && 更新时间
)
Endfor
Locate
Browse
Release loXMLHTTP,loDom
相关文章推荐
- 关于获取CPU温度的CSDN帖子
- CSDN论坛管理员太垃圾了,乱删帖子!
- discuz论坛主题帖子列表页面的最后回复人的url改成id形式的伪静态
- Java数据采集-5.获取CSDN个人博客列表(翻页-1)
- 使用ClientSocket控件实现CSDN论坛帖子的自动回复
- 树型目录的XML实现(二)jsp+XML+js,跟CSDN的论坛列表相同?
- 摘自CSDN论坛的一篇帖子
- CSDN论坛如何查看自己发的或者关注的帖子?!!!
- 分析一下CSDN论坛中一个比较字段值保留最大并删除其它的帖子
- python实例-通过cookie实现登录csdn获取自己微博的文章列表
- BBS 设计思路系列 ---- 论坛帖子列表排序,默认应该再加上价值的加权
- 网站开发-php开发手机论坛(10)-帖子列表显示
- Discuz 论坛 版主回复后在帖子列表后加版主回复字样
- Android应用开发-小巫CSDN博客client之获取评论列表
- DiscuzNT改造系列之删除帖子后论坛版块列表同步更新
- CSDN论坛帖子摘选 (1) -- 职业生涯规划
- BBS 设计思路系列 ---- 论坛帖子列表排序,默认应该再加上价值的加权
- csdn与CU姊妹论坛精华帖子收集中……
- 初试Scrapy(三)上---CSDN自动登录获取博客分类列表
- 通过rss取csdn帖子URL列表(java版)