Страницы: 1
RSS
Парсер ВК: скрипт преобразования ссылок
 
Добрый вечер!

У меня есть скрипт:
Код
Option Explicit
Sub SearchURL()
Dim XMLHTTP As Object
Dim Txt$, n&, k&, i%
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Txt = Cells(i, 1)
    XMLHTTP.Open "POST", Txt, False
    XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36"
    XMLHTTP.send
    If XMLHTTP.Status = 200 Then
        Txt = XMLHTTP.responsetext
        n = InStr(1, Txt, "vk.com/wall")
        If n > 0 Then
            k = InStr(n, Txt, "?")
            Txt = "https://" & Mid(Txt, n, k - n)
            Cells(i, 2) = Txt
        Else
            Cells(i, 2) = Cells(i, 1)
        End If
    Else
        MsgBox "Отсутствует соединение..."
    End If
Next i
Set XMLHTTP = Nothing
MsgBox "Всё", vbInformation, "Конец"
End Sub
Скрипт преобразовывает ссылки типа https://vk.com/wall-118635415_56464 на https://vk.com/wall-118635415_56369

У обработки данной ссылки https://vk.com/wall-57867786_6591157 у скрипт проблема:
Скрытый текст

Не могу пончть, почему так происходит?
 
Здравствуйте.
Значит сам алгоритм поиска и замены не верен.
Надо анализировать несколько ссылок и искать общий алгоритм  или разбивать на несколько.
Учитывать разные варианты текста страницы.
Страницы: 1
Наверх