大神请指教网页查词，多处取文本，

显示全部楼层 · 2021-2-19 00:09:57

大神请指教，
我是PQ小白，昨天才知道有这个工具......不要嘲笑我......
我现在的需求是在某度查询很多很多，122的词语，返回值需要拼音和解释 2个部分。
我现在能取分别取拼音和解释，建了参数，但是不知道怎么用，122个词语已经编码，url也生成了。
哪位大神能帮我看看这个参数怎么调呢？谢谢，谢谢，谢谢！

11144111956531.zip (27.98 KB, 下载次数: 0)

fuyunjushi · 2021-2-19 00:14:57

let
  源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],

  webcrawl=(word as text)=>
  Record.SelectFields([url="https://hanyu.baidu.com/s?wd=" &Uri.EscapeDataString(word)&"&ptype=zici",
  web=Text.FromBinary(Web.Contents(url)),data=http://club.excelhome.net/Text.Split(Text.Split(web,"[ "){1},""){0},
  py=try Text.Split(data," ]"){0} otherwise null,wd= try Text.Split(Text.Split(data,"
#(lf)"){1},"#(lf)"){0} otherwise null],{"py","wd"}),

  webcrawlup=Function.ScalarVector(type function(col as text) as text,(Inputtable)=>
  [BufferTable = Table.Buffer(Inputtable),InputList = BufferTable[col],func =List.Transform(InputList,each webcrawl(_))][func]),

  tb= Table.AddColumn(源, "数据", each webcrawlup([词语])),
  dt = Table.ExpandRecordColumn(tb, "数据", {"py", "wd"}, {"数据.py", "数据.wd"})
in
  dt