Hello,
Une proposition, tu as juste à remplacer le nom du dossier où il y a tes fichiers textes
let
Source = Folder.Files("C:\Users\test3\test2\Auto\Bureau\Test\Data")[[Name],[Content]],
TransformTable = Table.TransformColumns( Source , {"Content" , each Csv.Document(_,[Delimiter="@", Columns=1, Encoding=65001, QuoteStyle=QuoteStyle.None])}),
Expand = Table.ExpandTableColumn(TransformTable, "Content", {"Column1"}, {"Column1"}),
Filter = Table.SelectRows(Expand, each
Text.StartsWith([Column1], "catégorie", Comparer.OrdinalIgnoreCase) or
Text.StartsWith([Column1], "Taux", Comparer.OrdinalIgnoreCase) or
Text.StartsWith([Column1], "extrait", Comparer.OrdinalIgnoreCase) or
Text.StartsWith([Column1], "complet", Comparer.OrdinalIgnoreCase)),
SplitAny = Table.TransformColumns(Filter, {"Column1" , each Text.SplitAny(_,"=:")} ),
Extract = Table.TransformColumns(SplitAny, {"Column1", each Text.Combine(List.Transform(_, (x)=> Text.Trim(x)),"|"), type text}),
SplitCol = Table.SplitColumn(Extract, "Column1", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"Type", "Valeur"}),
Pivot = Table.Pivot(SplitCol, List.Distinct(SplitCol[Type]), "Type", "Valeur")
in
Pivot
@+