Hello,
Une proposition
let
Source = Csv.Document(File.Contents("C:\Users\toto\Downloads\exemple.txt"),[Delimiter=" ", Columns=14, Encoding=1252, QuoteStyle=QuoteStyle.None]),
GroupBy = Table.Group(Source, {"Column2"}, {{"tbl", each _}},0,(s,c)=> Number.From(c[Column2]<>"")),
Filter = Table.SelectRows(GroupBy, each ([Column2] <> "")),
TransformDecalage = Table.TransformColumns(Filter, {"tbl" , each Table.FromRows(List.Transform(Table.ToRows(_), (x)=> if x{1} = "" then {"","","",""} & List.RemoveLastN(x,4) else x))}),
AddRecords = Table.AddColumn(TransformDecalage, "Records", each [
Column5 = Text.Combine([tbl][Column5]),
Column10 = Text.Combine([tbl][Column10]),
Column14 = Text.Combine([tbl][Column14])
]),
ExpandRecords = Table.ExpandRecordColumn(AddRecords, "Records", {"Column5", "Column10", "Column14"}, {"Column5", "Column10", "Column14"}),
ColSupp = Table.RemoveColumns(ExpandRecords,{"tbl"})
in
ColSupp
@+
Edit : 78Chris