新版大富翁论坛揭密之一:数据提取 (0分)

  • 主题发起人 主题发起人 yysun
  • 开始时间 开始时间
Y

yysun

Unregistered / Unconfirmed
GUEST, unregistred user!
新版大富翁论坛 http://www.delphibbs.com/delphibbs 提供了三个数据提取程序
1.提取分类列表 rooms.asp
2.提取贴子 LID 列表 chkl.asp 可选参数 datefrom, dateto,例如,
提取今天的贴子LID列表 chkl.asp
提取4月8日到4月9日的贴子LID列表 chkl.asp?datefrom=4/9/2001&dateto=4/9/2001
提取4月8日一天的贴子LID列表chkl.asp?datefrom=4/8/2001 0:00&dateto=4/8/2001 23:59
(限制:最多返回 5000个LID)
3.提取贴子内容 getl.asp?LID=[贴子的ID]
返回数据的格式为:DFWML (大富翁论坛数据的XML格式的表达)
离线阅读器的作者,请注意,您可以使用 HTTP 控件连接新版大富翁论坛,
用上述命令得到 DFWML,处理这些 DFWXML,保存数据到本地离线数据库。
这样就实现了离线数据库按日/月的同步更新。
 
有点此贴,新版离线阅读器可是如虎添翼!


 
补充一点:chkl.asp 有个可选参数 recnum 返回前 20个记录 (时间倒序)
例如 chkl.asp?recnum=20 当天,最新的 20 个记录
 
好东西,我喜欢
 
好呀!感谢前辈了。
 
yysun好厉害啊,
商量一下能不能提供源代码?
 
Good!
该出手该谁出手?
 
原以为需要个HTTP控件,但是实际上如果您接受了本论坛灌输给您的 MSXML 3.0,
则可以用这个简短的 Delphi 程序。(不需要任何控件)
var xmlobj, node: Variant;
begin
xmlobj := CreateOLEObject('MSXML2.DOMDocument');
xmlobj.async := false;
xmlobj.load('http://www.delphibbs.com/xml/new2/chkl.asp');
node := xmlobj.selectSingleNode('LIST/HEADER/RecCount');
if not VarIsEmpty(node) then
ShowMessage('大富翁论坛今天更新的贴子数:' + node.Text);
xmlobj.Save('c:/updates_today.xml');
xmlobj := unAssigned;
end;
 
DFWML 公布了,请看: 新版大富翁论坛揭密之二:DFWML (lid=498951)
 
yysun: 提一个问题,我提取到XML格式的数据后,怎样保存到Access里面呢?
 
我有个想法,能否做一个dfw的在线的客户端,这样可以提供一些更强大的功能。
 
既保留页面形式,又有客户端,投小猪一票!
 
甭想!客户端权力太大了,可能会删除数据
 
既保留页面形式,又有客户端,再投小猪一票!
 
<b>yysun: 提一个问题,我提取到XML格式的数据后,怎样保存到Access里面呢?</b>
 
有道理。应该多种方式共存。
 
小毛毛, 谢谢您提示的 <font color="red" face="Marlett">8</font>。
得到 XML 后,需要对它解析,得出里面的内容后才能存入 Access。
解析的方法很多,例如:
- 用 XSLT 把 XML 转换成 txt 文件后转入 Access,或者
- 用do
M 分析 XML,MSXML 3 的do
M 带 XPATH 功能,例如
do
mdocument.selectNodes([XPATH 表达式]);
do
mdocument.selectSingleNode([XPATH 表达式]);
用XPATH 表达式可以直接提取 XML 中的多个节点或者单个节点,非常方便。
这些 XPATH 表达式如何写?'LIST/HEADER/RecCount'还是 'LIST/RECCOUNT'
就需要一个标准,这就是 DFWML http://www.delphibbs.com/dfwml/dfwml-0.1.doc
小猪,您说的客户端很重要,功能就是在线更新本地离线数据库,可在后台悄悄干哦。
这个功能应该成为离线阅读器的标准功能。
这样以后我就不用发布离线数据库了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部