Power Query. Веб-запросы. Текстовый документ, веб-страница, практика List.Zip

Ссылки на страницы, к которым мы будем подключаться находятся по ссылке https://www.cftc.gov/MarketReports/CommitmentsofTraders/index.htm

Описание

Данные находятся по ссылке https://www.cftc.gov/dea/newcot/deafut.txt

В данных нет заголовков.

Заголовки находятся по ссылке https://www.cftc.gov/MarketReports/CommitmentsofTraders/HistoricalViewable/cotvariableslegacy.html

Нужно соединить эти данные, чтобы получилась одна таблица.

Решение

Чтобы решить задачу мы изучим/повторим:

• Подключение к web-странице
• List.Zip
• Table.RenameColumns
• Table.ColumnNames
• Ссылки

Функция Table.RenameColumns в качестве второго параметра принимает список списков. Каждый список — это пара значений: старое название — новое название.

Для создания списков пар значений и понадобится функция List.Zip.

Примененные функции

• Web.Contents
• Csv.Document
• QuoteStyle.None
• Table.RenameColumns
• List.Zip
• Web.Page
• Table.ExpandTableColumn
• Table.TransformColumns
• Text.AfterDelimiter
• Table.SelectRows

Код

Итоговая таблица:

let
   source = Csv.Document(
      Web.Contents("http://www.cftc.gov/dea/newcot/deafut.txt"), 
      [
         Delimiter  = ",", 
         Columns    = 129, 
         Encoding   = 1251, 
         QuoteStyle = QuoteStyle.None
      ]
   ), 
   cols_rename = Table.RenameColumns(
      source, 
      List.Zip({Table.ColumnNames(source), headers[Text]})
   )
in
   cols_rename

Получение таблицы с заголовками:

let
   source = Web.Page(
      Web.Contents(
         "http://www.cftc.gov/MarketReports/CommitmentsofTraders/HistoricalViewable/cotvariableslegacy.html"
      )
   ), 
   Data = source{0}[Data], 
   Children = Data{0}[Children], 
   rows_select_1 = Table.SelectRows(Children, each ([Name] = "BODY")), 
   get_table_1 = rows_select_1{0}[Children], 
   rows_select_2 = Table.SelectRows(get_table_1, each ([Name] = "DIV")), 
   get_table_2 = rows_select_2{0}[Children], 
   rows_select_3 = Table.SelectRows(get_table_2, each ([Name] = "DIV")), 
   get_table_3 = rows_select_3{0}[Children], 
   rows_select_4 = Table.SelectRows(get_table_3, each ([Name] = "DIV")), 
   get_table_4 = rows_select_4{0}[Children], 
   rows_select_5 = Table.SelectRows(get_table_4, each ([Name] = "SECTION")), 
   get_table_5 = rows_select_5{0}[Children], 
   rows_select_6 = Table.SelectRows(get_table_5, each ([Name] = "DIV")), 
   get_table_6 = rows_select_6{0}[Children], 
   rows_select_7 = Table.SelectRows(get_table_6, each ([Name] = "ARTICLE")), 
   get_table_7 = rows_select_7{0}[Children], 
   rows_select_8 = Table.SelectRows(get_table_7, each ([Name] = "DIV")), 
   get_table_8 = rows_select_8{0}[Children], 
   rows_select_9 = Table.SelectRows(get_table_8, each ([Name] = "DIV")), 
   get_table_9 = rows_select_9{0}[Children], 
   rows_select_10 = Table.SelectRows(get_table_9, each ([Name] = "CENTER")), 
   get_table_10 = rows_select_10{0}[Children], 
   rows_select_11 = Table.SelectRows(get_table_10, each ([Name] = "TABLE")), 
   get_table_11 = rows_select_11{0}[Children], 
   get_table_12 = get_table_11{0}[Children], 
   get_table_13 = get_table_12{1}[Children], 
   rows_select_12 = Table.SelectRows(get_table_13, each ([Name] = "TD")), 
   get_table_14 = rows_select_12{0}[Children], 
   rows_select_13 = Table.SelectRows(get_table_14, each ([Name] = "P")), 
   cols_select = Table.SelectColumns(rows_select_13, {"Children"}), 
   col_expand = Table.ExpandTableColumn(
      cols_select, 
      "Children", 
      {"Text"}, 
      {"Text"}
   ), 
   col_transform = Table.TransformColumns(
      col_expand, 
      {{"Text", each Text.AfterDelimiter(_, " "), type text}}
   ), 
   rows_select_14 = Table.SelectRows(
      col_transform, 
      each [Text] <> null and [Text] <> ""
   )
in
   rows_select_14