编程取得CSDN的所有帖子

Question

CSDN太不安全了，收藏夹中的内容经常丢失，所以我编写程序来取得所有CSDN的帖子放到自己的硬盘里。
取得CSDN的帖子的方法很简单，只要使用INET1控件，循环使用帖子号码就可以。
dim i as long
dim s as string
for i=3138568 to 1 step -1
s=inet1.openurl("http://community.csdn.net/export/topicview1.asp?id=" & i)
if instr(s,"主　　题：")>0 then
s=mid(s,instr(s,"主　　题：")-1)
'取出主题，作者、分类以及内容，如果需要，还可以根据回复数量进行筛选，比如取得回复数大于3的帖子
'保存内容到数据库或文件
'如果重复运行，还可以检查当前ID是否已经保存过，如果已经保存就刷新，或不保存。
end if
next i
'这方法肯定是慢了一些，但如果你有宽带，然后运行一夜，收获还是不小的。

Answer 1

'经测试的源码
Private Sub Form_Load()
Dim RR() As Byte, SP As String
For i = 3143780 To 1 Step -1
SP = Inet1.OpenURL("http://community.csdn.net/expert/topicview1.asp?id=" & i)
If InStr(SP, "主　　题：") > 0 Then
    SP = Mid(SP, InStr(SP, "主　　题：") - 1)
    SP = Mid(SP, InStr(SP, "<td>") + 4)
    zhuti = Left(SP, InStr(SP, "</") - 1)
    SP = Mid(SP, InStr(SP, "作　　者：") - 1)
    SP = Mid(SP, InStr(SP, "<td>") + 4)
    SP = Mid(SP, InStr(SP, ">") + 1)
    zuozhe = Left(SP, InStr(SP, vbCrLf) - 1)
    SP = Mid(SP, InStr(SP, "所属论坛：") - 1)
    SP = Mid(SP, InStr(SP, "<td>") + 4)
    fenlei = Left(SP, InStr(SP, "</") - 1)
    SP = Mid(SP, InStr(SP, "回复次数："))
    SP = Mid(SP, InStr(SP, "<td>") + 4)
    huifu = Left(SP, InStr(SP, "</") - 1)
    If Val(huifu) > 3 Then
        Debug.Print zhuti: Debug.Print fenlei: Debug.Print huifu
    End If
End If
Next i
End Sub
'可惜太慢了，我拨号上网，每分钟大概10多个。呵呵。

Answer 2

直接从
http://community.csdn.net/expert/deeptree/RoomForum.asp?bigroomid=51
获取信息，应该会快些

Answer 3

几年前我就写过的， 于是就有了个网络卡车， 你可以到GOOGLE里去找 网络卡车   3年前转到SQL SERVER中的CSDN论题的大小是3G
 没有优化执行个SELECT 要5分钟
我还分离出了全部的回复现在的可能就没有那么大把

Answer 4

欢迎使用CSDN浏览器，可以自如的用符号写大字：
http://pay500.com/s/s51807.htm该软件是一款方便实用的浏览器，能够方便的浏览中国程序员网站(CSDN)。它拥有各种辅助浏览CSDN帖子的功能，像是一款朴素版的MyIE，但是是专门为浏览CSDN论坛量身定制的。作为程序员来讲，拿这个工具当作浏览器来用都不为过，因为它拥有IE的所有主干功能。
这个软件的视觉设计宗旨就是“朴素、简单、直接、实用”.界面图：
http://www.pdriver.com/bbs5/UploadFile/200462623482085294.jpg
http://www.pdriver.com/bbs5/UploadFile/20047421335127760.jpg
http://www.pdriver.com/bbs5/UploadFile/20047421395968710.jpg
它能够成为所有软件工作者的好伴侣。

Answer 5

不过大概最近CSDN改版，有许多功能都不能使用了吧？

Answer 6

CSDN浏览器早就适应了新版论坛了

Answer 7

呵呵，有兴趣也可以试试俺的这老牌子的冬冬！
绝对体现客户端的价值所在！
快，简，易，便！！
==========================================
欢迎使用 Forums Helper 论坛助手... [助您多、快、好、爽上CSDN...]
程序最后更新2004年7月13日          [Powered By ChinaOK]

Answer 8

http://forumshelper.vicp.net/
来这里SeeSee吧。==========================================
欢迎使用 Forums Helper 论坛助手...      [助您多、快、好、爽上CSDN...]
程序最后更新２００４年０７月１３日   [Powered By ChinaOK]

Answer 9

关键是，你使用的是CSDN网站的什么接口？是CSDN提供的？还是天然接口（任何人都可以使用）？

Answer 10

当然是任何人都可以用的了，
csdn的xml接口有一些的啊。
以前有专门的帖子说明http://forumshelper.vicp.net/俺这里完全是通过 xmldom来 处理网站数据，直接本地转化，和网站的交互大都是静态的xml文件，所以速度飞快啊。。