qixiaobin0715

回复 21# flashercs

完全符合要求，很好用。

flashercs

回复 20# qixiaobin0715


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

qixiaobin0715

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

qixiaobin0715

回复 17# flashercs

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

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);
     };
};
复制代码

flashercs

回复 16# qixiaobin0715


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

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

<#*,:&cls
@echo off
pushd "%~dp0"
Powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~0\" -ReadCount 0 | Out-String ))) "
popd
pause
exit /b
#>
$VerbosePreference = "Continue"
$inputFile = "单词列表.txt"
$outputFile = "结果.txt"
Get-Content -LiteralPath $inputFile -OutBuffer 10 | ForEach-Object -Begin {
  $sw = New-Object -TypeName System.IO.StreamWriter -ArgumentList ("$pwd\$outputFile"), $false, ([System.Text.Encoding]::Default)
  # webclient settings
  $webclient = New-Object -TypeName System.Net.WebClient
  $webclient.BaseAddress = 'http://dict.cn/'
  $webclient.Encoding = [System.Text.Encoding]::UTF8
  $webclient.Headers.Add("Accept", "text/html, application/xhtml+xml, application/xml; q=0.9, */*; q=0.8")
  $webclient.Headers.Add("Accept-Encoding", "gzip")
  $webclient.Headers.Add("Accept-Language", "en-US, en; q=0.8, zh-Hans-CN; q=0.5, zh-Hans; q=0.3")
  # xml parser
  $xmldoc = New-Object -TypeName System.Xml.XmlDocument
  # re
  $recontent = [regex]'(?si)<div\s+class="word"[^>]*>.*?(?=<div\s+class="section[^"]*"[^>]*>)'
  $rejs = [regex]'(?si)<script[^>]*>.*?</script>'
  # stringbuilder
  $strbuilder = New-Object -TypeName System.Text.StringBuilder
  Add-Type -AssemblyName Microsoft.Jscript
  $vsaengine = [Microsoft.JScript.Vsa.VsaEngine]::CreateEngine()
  Add-Type -AssemblyName System.Web
} -Process {
  Write-Verbose "Fetching $_ ..."
  for ($i = 2; $i -ge 0; $i--) {
    try {
      $readstream = $webclient.OpenRead($_)
      Write-Verbose "Fetch $_ success"
      break
    }
    catch {
      $_ | Out-String | Write-Host -ForegroundColor Red
    }
  }
  if ($readstream) {
    try {
      $gzipstream = New-Object -TypeName System.IO.Compression.GZipStream -ArgumentList $readstream, ([System.IO.Compression.CompressionMode]::Decompress)
      $sr = New-Object -TypeName System.IO.StreamReader -ArgumentList $gzipstream, ([System.Text.Encoding]::UTF8)
    
      $match = $recontent.Match($sr.ReadToEnd())
      if ($match.Success) {
        Write-Verbose "Match $_ success"
        $xmldoc.LoadXml(($rejs.Replace($match.Value, '') -replace '<([^\x00-\x7e]+)>', '&lt;$1&gt;'))
        $strbuilder.Length = 0
        # word-cont
        [void]$strbuilder.Append($xmldoc.SelectSingleNode('//h1[@class="keyword"]/text()').Value).Append("`t")
        # dict-translation
        [void]$strbuilder.Append( ($xmldoc.SelectNodes('//ul/li[position()<last()]') | ForEach-Object { $_.innerText }) -join " " ).Append("`t")
        try {
          # dict-chart
          $strjson = [System.Web.HttpUtility]::UrlDecode($xmldoc.SelectSingleNode('//div[@id="dict-chart-basic"]/@data').Value)
          $jsobj = [Microsoft.JScript.Eval]::JScriptEvaluate("($strjson)", $vsaengine )
          foreach ($field in $jsobj) {
            [void]$strbuilder.Append($jsobj.Item($field).Item('sense')).Append(':').Append($jsobj.Item($field).Item('percent')).Append(',')
          }
          [void]$strbuilder.Remove($strbuilder.Length - 1, 1)
        }
        catch {
          # $_ | Out-String | Write-Host -ForegroundColor Red
        }
        # output result string
        $sw.WriteLine(($strbuilder.ToString() -replace "[\r\n]"))
        # $strbuilder.ToString()|Out-Host
      }
      else {
        Write-Verbose "Match $_ failed"
      }
    }
    catch {
      $_ | Out-String | Write-Host -ForegroundColor Red  
    }
    finally {
      $readstream.Close()
      Remove-Variable readstream
      if ($gzipstream) {
        $gzipstream.Dispose()
      }
      if ($sr) {
        $sr.Dispose()
      }
    }
  }
  else {
    $sw.WriteLine($_)
  } 
} -End {
  $sw.Dispose()
  $webclient.Dispose()
}
复制代码

qixiaobin0715

回复 6# zaqmlp
有空的话，还能给完善完善吗。这里先再次感谢了。

qixiaobin0715

回复 12# zaqmlp

基本达到要求，我是说如果结果是这样就完美了：

good	adj. 好的；上等的；优秀的 ; n. 好处；善行 ;(复)goods：商品；货物. 	好的:78,好处:11,优秀的:7
复制代码

zaqmlp

回复 7# qixiaobin0715


    已修改

qixiaobin0715

回复 10# zaqmlp

方便的话把前面的简明释义也加上吧。理解理解，现在社会的诚信有问题。已扫码。

zaqmlp

回复 9# qixiaobin0715

那就扫码吧

qixiaobin0715

回复 8# zaqmlp
尊重别人的劳动，都是在圈里混的，不会吃霸王餐的。

zaqmlp

回复 7# qixiaobin0715


    没赞助没动力