| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1734 人关注过本帖, 1 人收藏
标题:怎样提取网页百度词典上某些成语的内容?
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分: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最后的阵地
2014-04-06 15:36
qq860843831
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2014-3-17
收藏
得分:0 
可以调用DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
=Shellexecute(0,"Open",网页0,"","",0)
来打开默认浏览器
但怎样获得代码呢???
2014-04-06 18:22
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
不是一句两句说明白的,还是用前面你贴出的代码下载数据吧

坚守VFP最后的阵地
2014-04-06 19:32
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 
IE6浏览器提取结果

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

坚守VFP最后的阵地
2014-04-06 22:31
qq860843831
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2014-3-17
收藏
得分:0 
回复 24楼 sdta
多谢sdta的热心支持!!!
2014-04-07 09:33
qq860843831
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2014-3-17
收藏
得分: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
才有效
2014-04-07 09:37
qq860843831
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2014-3-17
收藏
得分:0 
153【成语】炊金馔玉
【解释】:炊:烧火做饭;馔:饮食,吃。形容丰盛的菜肴。
【出处】:唐·骆宾王《帝京篇》:“平台戚里带崇墉,炊金馔玉待鸣钟。”
【例句】:此邦百万多豪家,~纷如麻。 ◎清·施润章《悲老牛》诗
154【成语】并蒂芙蓉
【解释】:蒂:花或瓜果跟枝茎相连的部分;芙蓉:荷花别名。两朵荷花并生一蒂。比喻夫妻相亲相爱。也比喻两者可以相媲美。
【出处】:唐·杜甫《进艇》诗:“俱飞蛱蝶元相逐,并蒂芙蓉本自双。”

虽然没有得到满意的答案,也要感谢“sdta”的热心指导!!!
2014-04-07 15:25
qq860843831
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2014-3-17
收藏
得分: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+字符)
*
&&&录入成语内容

终于完成成语的自动录入,虽然还会有错和过程比较慢,感谢朋友的热心指导!!!
2014-04-07 15:31
快速回复:怎样提取网页百度词典上某些成语的内容?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034145 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved