[SIZE=1]// multi_1 STHSEC
let
Source = Csv.Document(Web.Contents("https://polar.ncep.noaa.gov/waves/WEB/multi_1.latest_run/plots/multi_1.STHSEC.bull"),[Delimiter=",", Columns=2, Encoding=65001, QuoteStyle=QuoteStyle.None]),
RemTop = Table.Skip(Source,4),
RemBottom = Table.RemoveLastN(RemTop,10),
Replace = Table.ReplaceValue(RemBottom," +-------+-----------+-----------------+-----------------+-----------------+-----------------+-----------------+-----------------+","",Replacer.ReplaceText,{"Column1"}),
RC = Table.RemoveColumns(Replace,{"Column2"}),
Split = Table.SplitColumn(RC, "Column1", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3", "Column1.4", "Column1.5", "Column1.6", "Column1.7", "Column1.8", "Column1.9", "Column1.10"}),
Type = Table.TransformColumnTypes(Split,{{"Column1.1", type text}, {"Column1.2", type text}, {"Column1.3", type text}, {"Column1.4", type text}, {"Column1.5", type text}, {"Column1.6", type text}, {"Column1.7", type text}, {"Column1.8", type text}, {"Column1.9", type text}, {"Column1.10", type text}}),
RC2 = Table.RemoveColumns(Type,{"Column1.1", "Column1.10"}),
Filter = Table.SelectRows(RC2, each ([Column1.4] <> null)),
Trim = Table.TransformColumns(Filter,{{"Column1.2", Text.Trim, type text}, {"Column1.3", Text.Trim, type text}, {"Column1.4", Text.Trim, type text}, {"Column1.5", Text.Trim, type text}, {"Column1.6", Text.Trim, type text}, {"Column1.7", Text.Trim, type text}, {"Column1.8", Text.Trim, type text}, {"Column1.9", Text.Trim, type text}}),
Clean = Table.TransformColumns(Trim,{{"Column1.2", Text.Clean, type text}, {"Column1.3", Text.Clean, type text}, {"Column1.4", Text.Clean, type text}, {"Column1.5", Text.Clean, type text}, {"Column1.6", Text.Clean, type text}, {"Column1.7", Text.Clean, type text}, {"Column1.8", Text.Clean, type text}, {"Column1.9", Text.Clean, type text}}),
Transpose = Table.Transpose(Table.CombineColumns(Table.Transpose(Clean),{"Column1", "Column2"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"header")),
Promote = Table.PromoteHeaders(Transpose, [PromoteAllScalars=true])
in
Promote[/SIZE]
