请问如何用pq提取数字

hongyundaozu

数据源都是汉字+数字的组合有小数，需要用power quuery 把数字和小数拆分到其他列效果如下图

wdx223

1. let
   
2.     Source = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     Custom1 = Table.AddColumn(Source,"n",each [a=List.RemoveItems(Text.SplitAny([代码],Text.Remove([代码],{"0".."9","."})),{""}),
   
4.                                    b=List.Count(a),
   
5.                                    c=List.Transform({1..b},each Text.Format("数字#{0}",{_})),
   
6.                                    d=Table.FromRows({List.Transform(a,Number.From)},c)
   
7.                                   ][d]),
   
8.     Custom2 = Table.ExpandTableColumn(Custom1,"n",Table.ColumnNames(Table.Combine(Custom1[n])))
   
9. in
   
10.     Custom2

复制代码

AbleZeng

你好,你试一下. 测试表1.zip (13.97 KB, 下载次数: 18)

2019-3-4 17:39 上传

点击文件名下载附件

AbleZeng

AbleZeng 发表于 2019-3-4 17:39
你好,你试一下.

let
    源 = Excel.CurrentWorkbook(){[Name="表2"]}[Content],
    转换 = Table.AddColumn(源,"数字",each List.RemoveItems(Text.SplitAny([代码],Text.Remove([代码],{"0".."9","."})),{""})),
    提取值 = Table.TransformColumns(转换, {"数字", each Text.Combine(List.Transform(_, Text.From), ","), type text}),
    分列 = Table.SplitColumn(提取值, "数字", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"数字.1", "数字.2", "数字.3", "数字.4"})
in
    分列

借用楼上List.RemoveItems，将代码进一步简化，使用提取值+分列的方法，可以避免代码中考虑怎么编写列名。

AbleZeng

wdx223 发表于 2019-3-4 11:57

此楼正解,推荐使用

fxl447098457

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     regex=(stext as text)=>Table.Buffer(Web.Page("<script>var s='"& stext &"';pat=/\d+\.?\d*/g,res=s.match(pat);document.write(res);</script>"))
   
4.     [Data]{0}[Children]{0}[Children]{1}[Text]{0},
   
5. 
   
6.     RegexList=(InputText as list) => List.Transform(InputText,each regex(_)),
   
7.    
   
8.     ScalarVectorRegex=Function.ScalarVector(
   
9.     type function(colname as text) as text,
   
10.     (InputTable) =>
    
11.         let
    
12.             BufferTable = Table.Buffer(InputTable),
    
13.             InputList = BufferTable[colname],
    
14.             CallFunction = RegexList(InputList)            
    
15.         in
    
16.             CallFunction
    
17.     ),
    
18.     results=Table.AddColumn(源,"数字",each ScalarVectorRegex([代码])),
    
19. 
    
20.     s1=List.Max(List.Transform(results[数字],each Text.Length(_)-Text.Length(Text.Replace(_,",",""))+1)),
    
21. 
    
22.     res=Table.SplitColumn(results,"数字",Splitter.SplitTextByDelimiter(","),s1)
    
23. in
    
24.     res

复制代码

fxl447098457

附件。。。。。 测试表1.rar (15.21 KB, 下载次数: 8)

2019-3-5 08:36 上传

点击文件名下载附件

hongyundaozu

谢谢fxl447098457 和wdx223  两位老师

飞天篮球猪

fxl447098457 发表于 2019-3-5 08:34

老大，正则的效率还是欠理想。那个scalarvector貌似没有助益。四百行都很慢。Pbid啥时候会有正则？

fxl447098457

飞天篮球猪 发表于 2019-3-5 10:38
老大，正则的效率还是欠理想。那个scalarvector貌似没有助益。四百行都很慢。Pbid啥时候会有正则？

Pbi里面就试试python的正则模块吧。excel的PQ调用js的正则效率确实低。