Доброго дня! Может кто сможет объяснить, как так получается, что при считывании html-кода 2-х разных интернет страниц, одна страница читается нормально, а во второй русские буквы заменяются знаками вопроса? Кодировка у страниц одинаковая - windows-1251, со страницы
http://lrnews.ru все считывается, как надо, а вот со страницы
http://lipetsknews.ru все русские буквы читаются как "?". Вот код, каким считываю
- Код: Выделить всё
Function GetText(ByVal URLadres As String) As String
Dim oHttp As Object
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
If oHttp Is Nothing Then
GetText = ""
Exit Function
End If
With oHttp
.Open "GET", URLadres, False
.Send
GetText = .ResponseText
End With
On Error GoTo 0
Set oHttp = Nothing
End Function