[求助]按文本拆分行（数字展开），谢谢！

笑花声

问题描述：

想将文本单元格中1~4，拆分成1 2 3 4 这4行其他信息不变，列举了几个文本格式，还请老师帮忙，灰常感谢！

笑花声

求路过大佬拔刀相助啊

onlylike

    自定义1 = Table.ExpandListColumn(Table.AddColumn(更改的类型,"结果",each List.Transform(List.RemoveMatchingItems(Text.Split(Text.Trim([文本]),"]"),{""}),each Text.Remove(_,"["))),"结果")
    自定义3 = Table.AddColumn(自定义1,"轮次",each Text.Trim(Text.Middle([结果],Text.PositionOfAny([结果],{"白","夜"})+1,Text.Length([结果]))))
    自定义2 = Table.SplitColumn(自定义3,"结果",each Text.Split(_," "),2)
    已添加自定义 = Table.AddColumn(自定义2, "日期", each Text.From([年度])&"/"&[结果.1])
    自定义4 = Table.TransformColumns(Table.ExpandListColumn(Table.ExpandListColumn(Table.TransformColumns(已添加自定义,{"轮次",each List.Transform(Text.Split(Text.Replace(Text.Remove(Text.Start(_,Text.PositionOf(_,"#",1)+1),"#"),"~","..")," "),each Expression.Evaluate("{"& _ & "}"))}),"轮次"),"轮次"),{"轮次",each Text.From(_)&"#"})
    更改的类型1 = Table.TransformColumnTypes(自定义4,{{"日期", type date}})
    重命名的列 = Table.RenameColumns(更改的类型1,{{"结果.2", "白/夜"}})
    删除的列 = Table.RemoveColumns(重命名的列,{"结果.1"})
    重排序的列 = Table.ReorderColumns(删除的列,{"年度", "检测", "文本", "日期", "白/夜", "轮次"})

hbzql

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    分组 = [a=Table.TransformColumns(源,{"文本",each List.Select(Text.SplitAny(_,"[]"),each _<>"" and _<>" " )}),b=Table.ExpandListColumn(a,"文本")],
    处理轮次 = [a=Table.SplitColumn(分组,"文本",each Text.Split(_," "),{"日期","白/夜","轮次"},null,0),b=Table.TransformColumns(a,{"轮次",each [m=List.Select(_,each Text.Contains(_,"#")),n=List.Transform(m,each Expression.Evaluate("{"&Text.Replace(Text.BeforeDelimiter(_,"#"),"~","..")&"}")),h=List.Transform(List.Combine(n),each Text.From(_)&"#")][h]}),c=Table.ExpandListColumn(b,"轮次")][c],
    更改日期类型 = Table.TransformColumnTypes(处理轮次,{{"日期", type date}})
in
    更改日期类型

笑花声

hbzql 发表于 2023-8-10 16:59
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    分组 = [a=Table.TransformColumns( ...

老师您好！



在步骤分组到处理轮次时 提示无法将Record 转为Table,还请帮忙再看一下，谢谢！！

另外想请教下 分组里面的 a=    和 处理轮次里面的 a=   这两个a 是不同的吗？


新手的呆呆微笑！

zpy2

create temp table aa as
select 年度,检测,replace(replace(文本,'~','-'),'#','@') 文本 from 按文本拆分行;
cli_split_data~aa~\]|\[~文本;
//select *,udf_trim(文本)='' from aasplit ;
create temp table aasplit2 as
select 年度,检测,年度||'/'||regexp2('\d+\/\d+',文本) 日期,regexp2('白|夜',文本) `白/夜`,regreplace('^\[|(?<=@)[^@]*?$','',文本) 文本 from aasplit where udf_trim(文本)!='';
cli_split_data~aasplit2~(?<=@)\s~文本;
//select * from aasplit2split;
create temp table bb as
select *,regexp2('(?<=\s|^)\d+(-\d+)?(?=@)',文本) 轮次 from aasplit2split;
create temp table cc as
select 年度,检测,日期,`白/夜`,split_num(轮次) 轮次 from bb;
cli_split_data~cc~,~轮次;
select colIndex[1:4],轮次||'#' 轮次 from ccsplit;

kirete

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     自定义1 =
   
4.         Table.ToList(
   
5.             源,
   
6.             each
   
7.                 let
   
8.                     A = List.Transform( List.RemoveItems( Text.Split( _{2}, "[" ), {""} ), (y)=> Text.Start( y, Text.PositionOf( y, "#", 1 ) ) ),
   
9.                     B = List.Transform( A, (x)=> List.RemoveItems( Text.Split( x, " " ), {""} ) ),
   
10.                     C =
    
11.                         List.TransformMany(
    
12.                             B,
    
13.                             (o)=>
    
14.                                 List.Combine(
    
15.                                     List.Transform(
    
16.                                         List.Skip( o, 2 ),
    
17.                                         (t)=>
    
18.                                             if Text.Contains( t, "~" )
    
19.                                             then
    
20.                                                 List.Transform(
    
21.                                                     Expression.Evaluate( "{" & Text.Replace( t, "~", ".." ) & "}" ),
    
22.                                                     (n)=> Text.From( n ) & "#"
    
23.                                                 )
    
24.                                             else { Text.Remove( t, "#" ) & "#" }
    
25.                                     )
    
26.                                 ),
    
27.                             (x,y)=> List.FirstN( _, 2 ) & { Date.From( Text.From( _{0} ) & "/" & x{0} ), x{1} } & {y}
    
28.                         )
    
29.                 in
    
30.                     C
    
31.         ),
    
32.     自定义2 =
    
33.         Table.FromRows( List.Combine( 自定义1 ), {"年度","检测","日期","白/夜","轮次"} )
    
34. in
    
35.     自定义2

复制代码