Доброй ночи форумчане.
Пробую парсить сайт на португальском языке (если конкретно, то olx.pt), а там есть много буков с разными хвостиками, как например São Sebastião, Sé и тп.
Проблема в том, что в результате получаю вместо "хвостатых" букв что то вроде "Mégane " (Mégane).
Кто подскажет как вылечить сию напасть?
Сайт в кодировке утф-8.
Функция для получения исходного кода
Пробовал разные танцы с кодировкой - не помогает, ибо xmlhttp.ResponseText уже с кракозябрами приходит и обратно их запихнуть не получается.
В редакторе вба эти символы прописать не получается также (хотел тупо через замену).
Спасибо.
Пробую парсить сайт на португальском языке (если конкретно, то olx.pt), а там есть много буков с разными хвостиками, как например São Sebastião, Sé и тп.
Проблема в том, что в результате получаю вместо "хвостатых" букв что то вроде "Mégane " (Mégane).
Кто подскажет как вылечить сию напасть?
Сайт в кодировке утф-8.
Функция для получения исходного кода
Код |
---|
Const TIMEOUT& = 3 ' ? ???????? Function GetResponse(ByVal URL$) As String On Error Resume Next: Err.Clear Static xmlhttp As WinHttpRequest If xmlhttp Is Nothing Then Set xmlhttp = New WinHttpRequest xmlhttp.Open "GET", URL$, True: DoEvents xmlhttp.Send: DoEvents If Not xmlhttp.WaitForResponse(TIMEOUT&) Then Debug.Print "timeout", URL: Exit Function End If GetResponse = xmlhttp.ResponseText End Function |
В редакторе вба эти символы прописать не получается также (хотел тупо через замену).
Спасибо.