怎样提取网页百度词典上某些成语的内容？ - VFP论坛

得分:0

<div class="tab cn-detailmean dict-cn-detailman-idiom" id="cn-detailmean"> <ul><li>【解释】：趋：快走；鹜：野鸭。象鸭子一样成群跑过去。比喻很多人争着赶去。</li><li>【出自】：清·曾朴《孽海花》第二十七回：“京外的官员，那个不趋之若鹜呢！”</li></ul> <div class="source">以下结果由<a href='http://www.' target="_blank">汉典</a>提供</div></div> <div class="tab cn-baike-mean dict-cn-baikemean-idiom" id="cn-baike-mean"> <div>趋之若鹜是个成语，本义是像鸭子一样成群跑过去。比喻许多人争着去追逐某些事物。 <a href="http://baike.baidu.com/view/142527.htm" target="_blank">查看更多>></a></div></div> </div>

看到上面红字的地方，所提取内容很有规律
提取后的内容

【解释】：趋：快走；鹜：野鸭。象鸭子一样成群跑过去。比喻很多人争着赶去。</li><li>【出自】：清·曾朴《孽海花》第二十七回：“京外的官员，那个不趋之若鹜呢！”

然后把上面提取到内容中不需要的字符</li><li>替换为回车加换行符就行了，后续工作用VFP中有关的函数操作。

【解释】：趋：快走；鹜：野鸭。象鸭子一样成群跑过去。比喻很多人争着赶去。
【出自】：清·曾朴《孽海花》第二十七回：“京外的官员，那个不趋之若鹜呢！”

[ 本帖最后由 sdta 于 2014-4-6 15:37 编辑 ]

坚守VFP最后的阵地

第 22 楼

得分:0

可以调用DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
=Shellexecute(0,"Open",网页0,"","",0)
来打开默认浏览器
但怎样获得代码呢？？？

第 23 楼

得分:0

不是一句两句说明白的，还是用前面你贴出的代码下载数据吧

坚守VFP最后的阵地

第 24 楼

得分:10

IE6浏览器提取结果

图片附件: 游客没有浏览图片的权限，请登录或注册

坚守VFP最后的阵地

第 25 楼

得分:0

回复 24楼 sdta

多谢sdta的热心支持！！！

第 26 楼

得分:0

IE不支持 http://dict.baidu.com/s?wd=有头有脑
“有头有脑”的中文，把有头有脑转成%E6%9C%89%E5%A4%B4%E6%9C%89%E8%84%91
输入http://dict.baidu.com/s?wd=%E6%9C%89%E5%A4%B4%E6%9C%89%E8%84%91
才有效

第 27 楼

得分:0

153【成语】炊金馔玉
【解释】：炊：烧火做饭；馔：饮食，吃。形容丰盛的菜肴。
【出处】：唐·骆宾王《帝京篇》：“平台戚里带崇墉，炊金馔玉待鸣钟。”
【例句】：此邦百万多豪家，～纷如麻。 ◎清·施润章《悲老牛》诗
154【成语】并蒂芙蓉
【解释】：蒂：花或瓜果跟枝茎相连的部分；芙蓉：荷花别名。两朵荷花并生一蒂。比喻夫妻相亲相爱。也比喻两者可以相媲美。
【出处】：唐·杜甫《进艇》诗：“俱飞蛱蝶元相逐，并蒂芙蓉本自双。”

虽然没有得到满意的答案，也要感谢“sdta”的热心指导！！！

第 28 楼

得分:0

程序代码：

ctmp = Strconv(Strconv(成语0,9),15)
    FOR qi= Len(ctmp) TO 2 STEP -2
        ctmp = Stuff(ctmp,qi-1,0,"%")
    ENDFOR
thisform.edit2.Value=ctmp
*
clear
网页0=ALLTRIM("http://dict.baidu.com/s?wd="+ctmp)
xmlhttp =createObject("Msxml2.XMLHTTP.3.0")
xmlhttp.open("GET",网页0, .f.) &&&"http://dict.baidu.com/s?wd=%E8%B6%8B%E4%B9%8B%E8%8B%A5%E9%B9%9C"
xmlhttp.send()
字符=xmlhttp.responseText
字符=STREXTRACT(字符,'<ul><li>','<></ul>',1)
字符=STRTRAN(STRTRAN(字符,'<><li>',CHR(13)+CHR(10)),'<br>','')&&&显示的字符
thisform.edit1.Value=ALLTRIM(期成0+字符)
*
&&&录入成语内容

终于完成成语的自动录入，虽然还会有错和过程比较慢，感谢朋友的热心指导！！！