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

scarlett78314

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

fxl447098457

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=Text.Split(Text.Split(web,"<dt class=""pinyin"">[ "){1},"</p>"){0},
    py=try Text.Split(data," ]</dt>"){0} otherwise null,wd= try Text.Split(Text.Split(data,"<p>#(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

fxl447098457

........ 四下查词.zip (33.05 KB, 下载次数: 11)

2019-3-14 20:32 上传

点击文件名下载附件

scarlett78314

太谢谢大神了，昨天坐地铁回家，看了一路的手册，而且不瞒大神，昨天白天就是照着你的一个帖子学习的，可惜，太小白了我。
谢谢大神，继续学习了

飞天篮球猪

fxl447098457 发表于 2019-3-14 20:32
........

大佬，能提速吗？
那个标量函数ScarlarVector除了实现row by row的效果，在效率上貌似并无助益。可以直接在Table.AddColumn里写Function.ScalarVector,供参考：

1. = Table.AddColumn(源, "数据", Function.ScalarVector(Value.Type(each _),each List.Transform(源[词语],(x)=>webcrawl(x))))

复制代码

fxl447098457

飞天篮球猪 发表于 2019-3-15 11:20
大佬，能提速吗？
那个标量函数ScarlarVector除了实现row by row的效果，在效率上貌似并无助益。可以直 ...

我要26秒，你用我的例子刷新要多久时间?

飞天篮球猪

fxl447098457 发表于 2019-3-15 13:18
我要26秒，你用我的例子刷新要多久时间?

30s,才122行。12万行30s能接受。这个速度更网页响应时间有没有关系？