let
Source = Table.FromColumns({Lines.FromBinary(Web.Contents("http://www.deagel.com/Propulsion-Systems.htm"))}),
#"Filtered Rows" = Table.SelectRows(Source, each Text.StartsWith([Column1], "<b>")),
#"Split Column by Delimiter" = Table.ExpandListColumn(Table.TransformColumns(#"Filtered Rows", {{"Column1", Splitter.SplitTextByDelimiter("</a>", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Column1"),
#"Duplicated Column" = Table.DuplicateColumn(#"Split Column by Delimiter", "Column1", "Копия Column1"),
#"Split Column by Delimiter1" = Table.SplitColumn(#"Duplicated Column", "Column1", Splitter.SplitTextByDelimiter(">", QuoteStyle.Csv), {"Column1.1", "Column1.2"}),
#"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter1",{{"Column1.1", type text}, {"Column1.2", type text}}),
#"Extracted Text After Delimiter" = Table.TransformColumns(#"Changed Type", {{"Column1.1", each Text.AfterDelimiter(_, "<a href="), type text}}),
#"Added Custom" = Table.AddColumn(#"Extracted Text After Delimiter", "Пользовательская", each let
Source = Table.FromColumns({Lines.FromBinary(Web.Contents("http://www.deagel.com/"&[Column1.1]))}),
#"Added Conditional Column" = Table.AddColumn(Source, "Пользовательская", each if Text.StartsWith([Column1], "<i>") then [Column1] else null),
#"Filtered Rows" = Table.SelectRows(#"Added Conditional Column", each ([Пользовательская] <> null)),
#"Duplicated Column" = Table.DuplicateColumn(#"Filtered Rows", "Пользовательская", "Копия Пользовательская"),
#"Extracted Text Between Delimiters" = Table.TransformColumns(#"Duplicated Column", {{"Пользовательская", each Text.BetweenDelimiters(_, "<i>", "</i>"), type text}}),
#"Extracted Text Between Delimiters1" = Table.TransformColumns(#"Extracted Text Between Delimiters", {{"Копия Пользовательская", each Text.BetweenDelimiters(_, "</i>", "<br />"), type text}}),
#"Extracted Text Between Delimiters2" = Table.TransformColumns(#"Extracted Text Between Delimiters1", {{"Копия Пользовательская", each Text.BetweenDelimiters(_, """>", "</a>", {0, RelativePosition.FromEnd}, 0), type text}}),
#"Kept Last Rows" = Table.LastN(#"Extracted Text Between Delimiters2", 7)
in
#"Kept Last Rows"),
#"Expanded {0}" = Table.ExpandTableColumn(#"Added Custom", "Пользовательская", {"Копия Пользовательская"}, {"Копия Пользовательская"})
in
#"Expanded {0}"
|