Страницы: 1
RSS
парсинг сайт, получить данные с сайта
 
Добрый день, нужно получить данные с сайта http://www.marathontotoservice.com/sttot/pbstyle/sttot16.aspx?GMT=+3

в порядковом номере каждой игры
пример во вложении  на основе Тираж №4278, 21 ноября 2022 нужно получить данные из окна Табло матчей http://www.marathontotoservice.com/sttot/pbstyle/SttotTime16.aspx?id=-9725&GMT=+3

-Дата GMT +3
-№
-Cобытие
-Результат

Пытался самостоятельно это сделать тут на форуме https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=148341&TITLE_SEO=148341-parsing-sayta&tags=%D1%83%D1%81%D0%BB%D0%BE%D0%B2%D0%B8%D0%B5%2CVBA+excel%­2C%D1%87%D0%B0%D1%81%2C%23Excel%2C%D0%B2%D1%80%D0%B5%D0%BC%D­1%8F%2C%D0%9C%D0%B0%D0%BA%D1%80%D0%BE%D1%81%2C%D0%B3%D0%B8%D­0%BF%D0%B5%D1%80%D1%81%D1%81%D1%8B%D0%BB%D0%BA%D0%B0%2Cpdf не смог

Код
let
    Источник = Web.Page(Web.Contents("http://www.marathontotoservice.com/sttot/pbstyle/SttotTime16.aspx?id=-9723&GMT=+3")),
    Data0 = Источник{0}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(Data0,{"", "2", "3", "4"}),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Другие удаленные столбцы", [PromoteAllScalars=true]),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Повышенные заголовки", each ([#"№"] <> "№"))
in
    #"Строки с примененным фильтром"


или

Код
let
    Source = Excel.Workbook(File.Contents("C:\Users\seven\Documents\Documents\парсер загатовка.xlsx"), null, true),
    #"Removed Bottom Rows" = Table.RemoveLastN(Source,5),
    #"Removed Other Columns" = Table.SelectColumns(#"Removed Bottom Rows",{"Name", "Data"}),
    #"Expanded Data" = Table.ExpandTableColumn(#"Removed Other Columns", "Data", {"Column1", "Column2"}, {"Data.Column1", "Data.Column2"}),
    #"Promoted Headers" = Table.PromoteHeaders(#"Expanded Data", [PromoteAllScalars=true]),
    #"Renamed Columns" = Table.RenameColumns(#"Promoted Headers",{{"№", "number"}}),
    #"Removed Columns" = Table.RemoveColumns(#"Renamed Columns",{"Результат"}),
    #"Filtered Rows" = Table.SelectRows(#"Removed Columns", each ([number] <> "№")),
    #"Grouped Rows" = Table.Group(#"Filtered Rows", {"Тираж №2849"}, {{"Count", each _, type table}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][number]),
    #"Removed Columns1" = Table.RemoveColumns(#"Added Custom",{"Count"}),
    #"Extracted Values" = Table.TransformColumns(#"Removed Columns1", {"Custom", each Text.Combine(List.Transform(_, Text.From), " "), type text}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values","Custom",Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv),{"Custom.1", "Custom.2", "Custom.3", "Custom.4", "Custom.5", "Custom.6", "Custom.7", "Custom.8", "Custom.9", "Custom.10", "Custom.11", "Custom.12", "Custom.13", "Custom.14", "Custom.15"}),
    #"Renamed Columns1" = Table.RenameColumns(#"Split Column by Delimiter",{{"Тираж №2849", "Тираж"}})
in
    #"Renamed Columns1"


Во вложении файл, на первой странице парсер нужно получить все игры которые были за все время со страницы http://www.marathontotoservice.com/sttot/pbstyle/sttot16.aspx
на второй странице итог получить такие данные на все тиражи, вверху всегда должны быть новые данные.

Бюджет 500 рублей, перевод на карточку или qiwi кошелек.
 
DJMC, данные выгрузил, но пока грузил, понял, что за 500 руб. могу только предоставить файл "как есть", без доработок и особых пояснений.
Потому что уже предвскушаю вопрос о том, что запрос выполняется минуты и хотелось бы только новые данные подтягивать и т.д.
 
whateverlover готов забрать данный файл как есть, напишите куда перевести деньги.

На счет дополнительных вопросов, особый интерес ко второму листу был, ну буду сам в ручную тогда делать.
 
Будем в личке общаться, чтобы тут не засорять тему  :)
Направил файл.
Обменялись. Спасибо 😊
Изменено: whateverlover - 24.11.2022 12:34:22
 
whateverlover спасибо за выполнение работы, все сделано было согласно требованиям.
Страницы: 1
Наверх