for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Лисоводы   всех   стран,  объединяйтесь !!!  

Список Форумов  :: Не фоксом единым
  

Парсер hh.ru
alex;

Сообщений: 2374
Откуда: Москва
Дата: 05.10.20 00:14:18
В Excel Сделал парсер вакансий по навыкам
теперь думаю как группировать и чо еще можно сделать
  
  Sub vvv()  
      Dim http  
      Set http = CreateObject("WinHttp.WinHttpRequest.5.1")  
      timeout = 2000 'milliseconds  
      http.setTimeouts timeout, timeout, timeout, timeout  
      http.Option(2) = 0  
      Dim url_ As String  
      url_ = "https://api.hh.ru/vacancies?text=NAME: (Программист) and DESCRIPTION: (NOT intermediate)&area=1&only_with_salary=true&no_magic=true&salary=100000&currency_code=RUR&period=30&label=not_from_agency&order_by=publication_time"  
      http.Open "get", url_  
      http.send  
      text = http.responseText  
      If InStr(text, "errors") > 0 Then  
          Debug.Print text  
          Stop  
      Else  
          If text <> "" Then  
              Set qwe = JsonConverter.ParseJson(text)  
          End If  
      End If  
      CountV = qwe("found")  
      CountP = qwe("pages")  
  On Error GoTo AfterSk  
      For pg = 1 To CountP  
          If pg > 1 Then  
              url_ = "https://api.hh.ru/vacancies?text=NAMEПрограммист) and DESCRIPTIONNOT intermediate)&area=1&only_with_salary=true&no_magic=true&salary=100000&currency_code=RUR&period=30&label=not_from_agency&order_by=publication_time&page=" & pg  
              http.Open "get", url_  
              http.send  
              text = http.responseText  
              Set qwe = JsonConverter.ParseJson(text)  
          End If  
          For i = 1 To 20  
              ii = (pg - 1) * 20 + i  
              Set Item = qwe("items")(i)  
              url_ = Item("url")  
              url_ = Replace(url_, "?host=hh.ru", "")  
              ThisWorkbook.Worksheets(2).Cells(1 + (ii - 1) * 3, 1) = Item("name")  
              ThisWorkbook.Worksheets(2).Cells(1 + (ii - 1) * 3, 2) = url_  
              ThisWorkbook.Worksheets(2).Cells(1 + (ii - 1) * 3, 1).Font.Bold = True  
              ThisWorkbook.Worksheets(2).Cells(1 + (ii - 1) * 3, 1).Font.Size = 14  
              http.Open "get", url_  
              http.send  
              text = http.responseText  
              Set vak = JsonConverter.ParseJson(text)  
              Set keySkills = vak("key_skills")  
      'On Error GoTo AfterSk  
              If Not IsEmpty(keySkills) Then  
                  CountSk = keySkills.Count  
                  For jj = 1 To CountSk  
                      ThisWorkbook.Worksheets(2).Cells(3 + (ii - 1) * 3, jj) = keySkills(jj)("name")  
                      ThisWorkbook.Worksheets(2).Cells(3 + (ii - 1) * 3, jj).Font.Italic = True  
                  Next jj  
              Else  
                  ThisWorkbook.Worksheets(2).Cells(3 + (ii - 1) * 3, jj) = vak("description")  
              End If  
  AfterSk:  
          If Err.Number <> 0 Then  
              'Stop  
              Resume Next  
              Err.Clear  
          End If  
              DoEvents  
          Next i  
      Next pg  
      Stop  
  End Sub

Выхлоп
Разработчик Erlang/Elixir api.hh.ru

Бэкенд Erlang Erlang-otp Git PostgreSQL Redis Ruby On Rails

Middle/Senior frontend разработчик (Angular) api.hh.ru

Git iOS ООП Objective-C Xcode Swift

DSP программист / программист встраиваемых систем api.hh.ru

уметь программировать на языке "С" Алгоритмический склад ума Желание изучать новое Желание работать DSP C/C++

IOS Developer (iOS разработчик) api.hh.ru

Git iOS ООП Objective-C Xcode Swift

PHP-разработчик/ PHP Developer (Site&Mailing) api.hh.ru

PHP MySQL JavaScript jQuery

Middle PHP Developer api.hh.ru

MySQL Git SQL PHP MVC UML PHP




Исправлено: alex;, 05.10.20 00:25
Ratings: 0 negative/0 positive

Re: Парсер hh.ru
alex;

Сообщений: 2374
Откуда: Москва
Дата: 05.10.20 10:42:30
Ага,
теперь нада сделать выборку максимально соответствующих навыкам в моем резюме



Исправлено: alex;, 05.10.20 11:07
Ratings: 0 negative/0 positive

Re: Парсер hh.ru
alex;

Сообщений: 2374
Откуда: Москва
Дата: 05.10.20 15:06:23
Опять графомания habr.com
Ratings: 0 negative/0 positive

Re: Парсер hh.ru
Гулин Федор
Автор

Сообщений: 4246
Откуда: Минск
Дата: 05.10.20 15:36:35
alex;
Опять графомания habr.com

ну главнео в таких вещах тренинг для себя
заодно и поднять какие-то навыки
а вдруг чего интересное проскочит
Ratings: 0 negative/0 positive



Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 6 of63  (Гостей: 5)

01.12.2020 07:42:43 exec: 0.22
Mem: 1.148 Mb

© 2000-2020 Fox Club 
Яндекс.Метрика