原理:
导出输入法词库,通过Web.Contents调用,根据输入法词库匹配由拼音组成的汉字
方法:
新建自定义函数:
py = (x)=>
let
source = Csv.Document(Web.Contents("https://pqfans.com/pq/pinyin/py.txt"),[Delimiter=" ", Columns=2]),
replace = Table.ReplaceValue(source,"'","",Replacer.ReplaceText,{"Column1"}),
result = try replace[Column2]{List.PositionOf(replace[Column1],x)} otherwise x
in
result
示例:

很便利,就是py.txt这个词库有点少,很多匹配不到。这个词库是怎么弄的。我的微软拼音导出的词库是ChsPinyinUDL.dat。打开里面是纯数字的代码