Web Scraping: получение последнего значения массива - PullRequest
Новая
       103

Web Scraping: получение последнего значения массива

0 голосов
/ 02 мая 2020

Я хотел бы получить номер последней страницы с веб-страницы. Этот номер включен в выпадающее меню. Я могу вычеркнуть число, но в моем массиве все числа включены. Но мне нужен только самый высокий номер.

Пример: html -сайт имеет 10 различных страниц, которые можно выбрать в раскрывающемся меню. Тогда я получаю значение: «12345678910». Но мне нужен только самый высокий номер страницы "10".

Что я пробовал: Я думаю, что необходимо определить размер значения. С этой информацией должно быть возможно извлечь только последнее значение. Но я понятия не имею, как это сделать.

Я также пробовал с For ... каждый, но это не работает. Какой лучший способ решить эту проблему?

Моя кодировка: 

Option Explicit

Sub PageNumber()

Dim browser As Object   'Aufnehmen der verwendeten Instanz des Browsers (Internet Explorer)
Dim url As String       'Aufnehmen der auszulesenden Adresse
Dim KnotenSeitenzahl As Object
Dim pageNumber As String

url = "https://www.immobilienscout24.de/Suche/radius/haus-kaufen?centerofsearchaddress=Oldenburg%20(Oldenburg);;;1276009028;Niedersachsen;&geocoordinates=53.14407;8.22049;15.0&enteredFrom=one_step_search"

    Set browser = CreateObject("internetexplorer.application")
    browser.Visible = False
    browser.navigate url
    Do Until browser.readyState = 4: DoEvents: Loop

Set KnotenSeitenzahl = browser.document.getElementsByClassName("select-input-wrapper")(0)

'pageNumber
   If Not KnotenSeitenzahl Is Nothing Then
   'Trim = Returns string without trailing spaces
    pageNumber = Trim(KnotenSeitenzahl.innerText)
   Else
     pageNumber = "NoValue"
   End If

   Cells(1, 2) = pageNumber

End Sub

HTML -Screenshot (выпадающее меню)

Скриншот выпадающей страницы

Заранее благодарим за помощь!

...