Добрый вечер!
У меня есть скрипт:
Скрипт преобразовывает ссылки типа https://vk.com/wall-118635415_56464 на https://vk.com/wall-118635415_56369
У обработки данной ссылкиhttps://vk.com/wall-57867786_6591157 у скрипт проблема:
Не могу пончть, почему так происходит?
У меня есть скрипт:
Код |
---|
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 |
У обработки данной ссылки
Скрытый текст |
---|
" <div class=""like_wrap _like_wall-57867786_6591157 ""> <div class=""like_cont ""> <div class=""like_btns""> <div class=""like_button_label""></div> <div class=""like_button_count"">295</div> <span class=""blind_label"">Нравится</span> <span class=""blind_label"" tabindex=""0"" role=""link"" onclick=""Likes.showLikesList(this, 'wall-57867786_6591157')"">Показать список оценивших</span> <div class=""like_button_label""></div> <div class=""like_button_count"">61</div> <span class=""blind_label"">Поделиться</span> <span class=""blind_label"" tabindex=""0"" role=""link"" onclick=""Likes.showSharesList(this, 'wall-57867786_6591157')"">Показать список поделившихся</span> </div> <div class=""like_views _views"" onmouseover=""Likes.updateViews('wall-57867786_6591157');"">29K</div> </div> </div> <div class=""replies""><div class=""replies_wrap"" id=""replies_wrap-57867786_6591157"" style=""""> <div class=""replies_list _replies_list"" id=""replies-57867786_6591157"" ><div id=""post-57867786_6591162"" class=""reply reply_dived clear _post"" data-post-id=""-57867786_6591162"" > <div class=""reply_wrap _reply_content _post_content clear_fix""> <a class=""reply_image"" href=""/immatullin""> <img src="" |
Не могу пончть, почему так происходит?