let
#
"Split Text"
= Table.FromColumns( {List.Transform( List.RemoveLastN( Text.Split(Source,
"/price/"
" class="
"drop-list__link"
">"
) ,2), each Text.AfterDelimiter(_,
"directions/"
, {0, RelativePosition.FromEnd}) )}),
#
"Added Custom"
= Table.AddColumn(#
"Split Text"
,
"a"
, each Text.Combine(Lines.FromBinary(Web.Contents(
"https://doct.ru/directions/"
& [Column1] &
"/price/"
)))),
#
"Removed Errors"
= Table.RemoveRowsWithErrors(#
"Added Custom"
, {
"a"
}),
#
"Added Custom1"
= Table.AddColumn(#
"Removed Errors"
,
"b"
, each List.Skip(Text.Split([a],
"<h3>"
))),
#
"Expanded {0}1"
= Table.ExpandListColumn(#
"Added Custom1"
,
"b"
),
#
"Added Custom2"
= Table.AddColumn(#
"Expanded {0}1"
,
"c"
, each List.Skip( Text.Split([b],
"services-price-list__name"
" itemprop="
"name"
"> "
))),
#
"Extracted Text Before Delimiter"
= Table.TransformColumns(#
"Added Custom2"
, {{
"b"
, each Text.BeforeDelimiter(_,
"<"
), type text}}),
#
"Removed Columns"
= Table.RemoveColumns(#
"Extracted Text Before Delimiter"
,{
"a"
}),
#
"Expanded {0}"
= Table.ExpandListColumn(#
"Removed Columns"
,
"c"
),
#
"Inserted Text Before Delimiter"
= Table.AddColumn(#
"Expanded {0}"
,
"Цена"
, each Text.AfterDelimiter( Text.BeforeDelimiter([c],
""
" itemprop="
"price"
">"
) ,
""
""
, {0, RelativePosition.FromEnd}), type text),
#
"Extracted Text Before Delimiter1"
= Table.TransformColumns(#
"Inserted Text Before Delimiter"
, {{
"c"
, each Text.Trim(Text.BeforeDelimiter(_,
"</span>"
)), type text}})
in
#
"Extracted Text Before Delimiter1"