| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1734 人关注过本帖, 1 人收藏
标题:怎样提取网页百度词典上某些成语的内容?
取消只看楼主 加入收藏
qq860843831
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2014-3-17
收藏
得分:0 
版主说滴对。
网址:
http://dict.baidu.com/s?wd=趋之若鹜
提取的内容:
【解释】:趋:快走;鹜:野鸭。象鸭子一样成群跑过去。比喻很多人争着赶去。
【出自】:清·曾朴《孽海花》第二十七回:“京外的官员,那个不趋之若鹜呢!”
2014-04-06 15:15
qq860843831
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2014-3-17
收藏
得分:0 
程序代码:
<!doctype html><html>
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=Edge">
<meta name="keywords" content="百度词典搜索支持全面的英汉词典、汉英词典、汉语字典、汉语词典、汉语成语词典功能,以及强大的中英文自动翻译功能。"/>
<link rel="shortcut icon" href="/static/img/favicon.ico" type="image/x-icon" />


<title>百度词典搜索_趋之若鹜</title>
<script>
var tabSwitcher={_map:{},$:function(a){return document.getElementById(a)},init:function(){var g,f,c,a,e=this;for(var d=0;d<arguments.length;d++){g=this.$(arguments[d]);if(g.className.indexOf("tablist")>=0){c=g.getElementsByTagName("li");a=c.length;while(a--){f=c[a];e._map[f.getAttribute("rel")]=g.id;f.onclick=function(){e.action(this,this.getAttribute("rel"));return false}}e.action(c[0],c[0].getAttribute("rel"))}}},action:function(c,a){var d=this._map,b=d[d[a]];if(b&&(b==c)){return}if(b){b.className="tab";this.$(b.getAttribute("rel")).style.display="none"}c.className="active";this.$(a).style.display="block";d[d[a]]=c}};
var common = {}; common['token'] = 'c327bc7148d177e577641195c2c15ea3d34db2e1'; common['timestamp'] = 1396768432
function showMoreResult(target,lists,limit){
    if(lists.length <= limit){ return; }
    baidu.dom.setStyle(target.parentNode,"display","block");
    for(var i = limit,len = lists.length; i < len; i++){
        lists[i] && baidu.dom.setStyle(lists[i],"display","none");
    }
    baidu.on(target,"click",function(e){
        if(baidu.dom.hasClass(this.parentNode,"more-result-open")){
            baidu.dom.removeClass(this.parentNode,"more-result-open");
            for(var i = limit,len = lists.length; i < len; i++){
                baidu.dom.setStyle(lists[i],"display","none");
            }
            this.innerHTML = "查看更多";
        }else{
            baidu.dom.addClass(this.parentNode,"more-result-open");
            for(var i = limit,len = lists.length; i < len; i++){
                baidu.dom.setStyle(lists[i],"display","");
            }
            this.innerHTML = "收起更多";
        }
        baidu.event.preventDefault(e);
    });
};
var QUERY_STYLE = -1;</script>
<script src="/static/js/tangram-base-1.5.0.js"></script>
<link rel="stylesheet" href="/static/css/index.css">
<link rel="stylesheet" href="/static/css/layer.css">
<link rel="stylesheet" href="/static/css/userbar.css" />
<!--[if IE 8]><style>ul.tablist{padding-bottom:6px;}</style><![endif]-->
<script src="http://passport.baidu.com/js/pass_uni_loginWrapper.js"></script>
</head>

<body>
<div class="wrap-userbar">
    <ul class="userbar">
               
        <li class="userbar-item">
            <a href="http://fanyi.baidu.com/appdownload/download.html" target="_blank" id="new_mobile_phone">手机版</a>
        </li>
        <li class="pipe userbar-item">|</li>
        <li class="userbar-item">
            <a href="http://fanyi.baidu.com" target="_blank">百度翻译</a>
        </li>
        <li class="pipe userbar-item">|</li>
        <li class="userbar-item">
            <a href="http://www.baidu.com" target="_blank">百度首页</a>
        </li>
       
        <li class="pipe userbar-item">|</li>
                    <li class="userbar-item userbar-login">
                        <a href="##" title="登录" id="userbar-login">登录</a>
                    </li>
                    <li class="userbar-item">
                        <a target="_blank" href="http://passport.baidu.com/v2/?reg&amp;regType=1&amp;u=http://dict.baidu.com/" rel="nofollow" title="注册" id="userbar-signin">注册</a>
                    </li>    </ul>
</div>
<script>
    var userNumId = 0;</script>

<div id="container">
    <div id="head"><div class="nv"><a href="/" class="logo"><img src="static/img/logo-dict-new.gif" width="117" height="38" border="0" alt="到百度首页"></a><div class="nav"><a href="http://news.baidu.com/ns?cl=2&rn=20&tn=news&ie=utf-8&word=趋之若鹜">新闻</a> <a href="http://www.baidu.com/s?wd=趋之若鹜&cl=3&tn=baidu&ie=utf-8">网页</a> <a href="http://tieba.baidu.com/f?kw=趋之若鹜&ie=utf-8">贴吧</a> <a href="http://zhidao.baidu.com/q?ct=17&pn=0&tn=ikaslist&rn=10&word=趋之若鹜&fr=wwwt&ie=utf-8">知道</a> <a href="http://music.baidu.com/search?fr=ps&key=趋之若鹜&ie=utf-8">音乐</a> <a href="http://image.baidu.com/i?tn=baiduimage&ct=201326592&lm=-1&cl=2&word=趋之若鹜&ie=utf-8">图片</a> <a href="http://fanyi.baidu.com/translate?query=趋之若鹜">翻译</a> <b>词典</b></div></div>
   
    <form name="f" action="s" class="fm"><div id="sug" onselectstart="return false"></div>
    <input name="wd" id="kw" class="i" value="趋之若鹜" maxlength="100" autocomplete="off"><span class="btn_wr"><input type="submit" id="su" value="百度一下" class="btn" onmousedown="this.className='btn btn_h'" onmouseout="this.className='btn'"></span><span class="head-tools"><a href="#" id="setter">设置</a><i>|</i><a href="http://www.baidu.com/search/dict.html" target="_blank">帮助</a></span>
    </form>
    </div>



<div id="wraper">
                

        

        

        

        

                   
           
                   
           
                    

                    

                            

        <!-- 以下的一堆判断是为了判断是否添加网络释义的,现在已经修改为所有单词都可以收藏,不对只有网络释义的单词做判断 0327 -->
                        <!-- 没有英文简明释义的中文 和 所有中文成语 -->
                            <!-- 有英文简明释义或英文详细释义的中文成语 -->
                <div class="title">
                            <div id="pronounce">
        <h2><strong>趋之若鹜</strong><span><b>[qū zhī ruò wù]</b></span></h2>    </div>
                        <div class="wordbook-icon">
                        <span><a href="#" title="点击添加到生词本" class="icon-add" id="word-login"role="button">生词本</a></span>                    </div>   
                </div>
                                                            <!-- 如果是中文query,则展示中英文解释的切换 -->
                                                <div id="switch">
                                        <a href='#' id="open-cn">中文解释</a>
                                                            <i>-</i>
                                                            <a href="#" id="open-en">英文解释</a>
                       
                </div>
                                    <div id="switch-cn-bar" class="switchbar">
                        <h3>中文解释</h3>
                    </div>
                                            <!-- 结束 -->                    



       
    <div id="word-cn-section">
        <span class="arrow"></span>
        <ul class="tablist" id="cn-section-list">
            <li rel="cn-detailmean">详细解释</li>             <li rel="cn-baike-mean">百科释义</li>                     </ul>
        <div class="tab-content">
        <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>
    </div>
    <script>tabSwitcher.init("cn-section-list");</script>

2014-04-06 15:22
qq860843831
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2014-3-17
收藏
得分:0 
程序代码:
Local lcRemoteUrl,lcRemoteFile,lcLocalhtm,lcLocalFile
Declare Integer DeleteUrlCacheEntry In Wininet.Dll String szUrl
Declare Integer URLDownloadToFile In urlmon.Dll Integer pCaller,String szURL,String szFileName,Integer dwReserved,Integer lpfnCB
*--下载网页
lcRemoteUrl=ALLTRIM(thisform.edit2.Value)&&&这是该成语网址
lcLocalhtm="&路0.xxx.text" &&此处也可以改为文本文件SET DEFA TO &路dbf
=DeleteUrlCacheEntry(lcRemoteUrl)    &&清理缓存,这时实时刷新的数据时很有用。
If URLDownloadToFile(0,lcRemoteUrl,lcLocalhtm,0,0)=0
*    Messagebox("下载失败",48,'信息提示')
Endif
Clear Dlls
字符=FileToStr("&路0.xxx.text")
字符=STRCONV(字符,11)
字符=STREXTRACT(字符,'<ul><li>','</li></ul>',1)
字符=STRTRAN(STRTRAN(字符,'</li><li>',CHR(13)+CHR(10)),'<br>','')&&&显示的字符
2014-04-06 15:26
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
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.115481 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved