指定字段删除与保留

kyousn

这个有点难度，期待大神出现。。。(如附件所示，请在PQ里追加新列显示结果）

zjnfxxh

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    已添加自定义 = Table.AddColumn(源, "自定义", each
List.Select(
List.Transform(  
{"brand.com/","search-ux|","learnux|","shop|"},  
(x)=>if Text.Contains([URL],x) then Text.AfterDelimiter([URL],x) else ""
),
(y)=>y<>""){0}?
)
in
    已添加自定义

wdx223

624134745

写复杂了，请参考2楼老师的

kyousn

624134745 发表于 2021-7-19 15:55
写复杂了，请参考2楼老师的

依然感谢大神指点。。。

kyousn

wdx223 发表于 2021-7-19 15:45

大神，可以麻烦你上传一下附件吗？我按照你给的截图写入代码后，总是出现重复行。。。

我走我流

练习下正则，，

kyousn

我走我流 发表于 2021-7-19 17:10
练习下正则，，

你发了个啥。。。附件呢？

ThxAlot

我走我流 发表于 2021-7-19 17:10
练习下正则，，

REGEX可以通过Web.Page()函数在PQ里直接使用，即间接通过js使用regex，这样就可以使用assertion lookbehind了。
===============================

有幺蛾子了
js本身是支持lookbehind的，但是嵌入到Web.Page()里的js似乎又不行了。。。
搜了半天也找不到个权威的说法，还请各位大神帮忙留意下，谢谢！
PS: 附件的网页回显是正确的，但是相同的js在PQ里就报错，只能改用non-capturing了

1. let
   
2.     RE = (regex as text, str as text) => Web.Page("<script>var regex = " & regex & "; var str = """ & str & """; var res = regex.exec(str)[1]; document.write(res)</script>")[Data]{0}[Children]{0}[Children]{1}[Text]{0},
   
3. 
   
4.     Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("nVPbTgMhEP0Xn6W7bG2a+OYH+AVNH6YwZYnAIJe4NXy8tF1tomlJfSFkOJcZcmazeQCj0X1AwIVEY9gugJMLQbZ7WfHXoR/67mH7eAMGOVCAwIcGbn8Y+p4vW3KWryxfX3yFK59jkWMswtWTl4gQxMjyNN8CxmxSLAl2xQeSWaQrxORLHMkXMWoHphpqpzwoLD/NMIlg/s+u9pbupauIQWNkCmwt3cs+WSZNrkE8DhaLJ58NBGbAJ/KnaWODiFl8f6vEBLqqXAae+JoFPss1hEayWLSTODWAs5uAhIrCodoZNtdinSO+Va9W1zc1zu3+lUDveTE1VK6GS5LIFl0qAqwHrVxFkGMRzZ69OziRx5R8fO665m7MWW7iz+EPT2c4SfUbcNyLyUe+vIpQVJ+2Xw==", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [URL = _t]),
   
5.     #"Added Custom" = Table.AddColumn(Source, "Custom", each RE("/(?:ux\||shop\||.com\/)(.+)/gi", [URL]))
   
6. in
   
7.     #"Added Custom"

复制代码

我走我流

kyousn 发表于 2021-7-19 17:11
你发了个啥。。。附件呢？

由于PQ 实在对内存消耗太大，跑稍微多 一点数据  都要等，没办法  我才转 了 V BA