qixiaobin0715

回复 15# flashercs
测试成功！但存在一些小问题，有些单词未提取出来。分三种情况：
1.大多数属于单词本身在词典中不存在“分布图”，并且提示错误，结果中忽略。如fines、cavalry、GDP等
2.不存在分布图，运行未提示错误，直接忽略。如baseman。是释义中的括号造成的吗？
3.有“分布图”，直接忽略。不知什么情况。有这样几个单词：

in-depth
storytelling
same-sex
high-end
sweaty
first-time
president-elect
复制代码

请帮忙给看看。能否这样解决：
1.释义和分布图内容之间用制表符分隔。
2.对于第1、2条的问题，在提取结果中条目只列出单词和释义。
3.第3条出了什么问题，能否解决。

flashercs

回复 16# qixiaobin0715


    你什么Windows系统？不太敢用htmldom，win7与win10对html兼容性差别很大

terse

这样可以吗

@set @i=0 /* & @echo off & >提取结果.txt cscript.exe -NoLogo -E:JScript %0 <单词列表.txt & pause exit  */
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
function GetContent(url) {
        xmlhttp.open("GET", url ,false);
        xmlhttp.send();
        return(xmlhttp.responseText);
};

while (!WSH.StdIn.AtEndOfStream) {
      var str = WSH.StdIn.ReadLine();
      if (str) {
           var url = "http://dict.cn/" + str;
           var html = new ActiveXObject("htmlfile");
           html.write(GetContent(url));
           var t = html.getElementsByTagName("ul")[0];
           if (t) {
               str += "\t" + t.innerText.replace(/[\r\n]/gm,'') + "。\t";
               if (html.getElementById("dict-chart-basic")) {
                   var obj = new Function("return" + unescape(html.getElementById("dict-chart-basic").data))();
                   for(var key in obj ){  str += obj[key].percent > 5 ? obj[key].sense + ":"+ obj[key].percent + "%, " : ""};
               }
           };
           else { str += "\t" + "错误" };
           WSH.Echo(str);
     };
};
复制代码

qixiaobin0715

回复 17# flashercs

单位的电脑是Windows7，家里的是Windows10.最好能在单位用，家里用也可。

qixiaobin0715

回复 18# terse
因为有些单词不存在分布图信息，可能会产生错误。
你的代码测试后发现，遇到不含分布图的单词会闪退。比如单词railway就没有分布图信息。单词列表：
good
railway
big
闪退后，只有good的信息能够提取出来。

flashercs

回复 20# qixiaobin0715


    已修改代码，请测试，支持win7和win10

qixiaobin0715

回复 21# flashercs

完全符合要求，很好用。

terse

回复 20# qixiaobin0715
加了一个判断

qixiaobin0715

回复 23# terse
测试成功！谢谢！

qixiaobin0715

这里一并感谢所有关注的人。谢谢！

qixiaobin0715

回复 15# flashercs
测试中发现了个小问题，海词查不到的单词比如sauté，提示错误，结果中忽略。好修改的话，就麻烦了，结果中只列出单词即可。这种情况不多，要是太麻烦了就算了。

flashercs

回复 26# qixiaobin0715

本来就有错误提示啊，结果也忽略了，你的意思是怎么修改？

qixiaobin0715

回复 27# flashercs
查不到的单词在结果文本中也占一行，此行只显示单词即可。

qixiaobin0715

回复 27# flashercs
算了，怪麻烦的，就这样吧。谢谢了

flashercs

回复 29# qixiaobin0715


    已修改了，主要是没明白你的要求！