ENCONDING WEBBROWSER.DOCUMENTTEXT
Oi, boa tarde!
Aparentemente era algo bobo, mas acabei já perdendo algumas horas de tentativa e pesquisa.
Estou navegando usando um WebBrowser e em determinado momento eu preciso pegar a propriedade DocumentText dele. Até aà tudo bem.
O problema está no Enconding. Acentos, cecidilha, estão vindo todos como sÃmbolos estranhos.
Já tentei usar:
_browser.Document.Encoding = [Ô]utf-8[Ô]
Ou
_browser.Document.Encoding = [Ô] iso-8859-15[Ô]
Nada parece funcionar. Quando vejo o código da página via Browser (Google Chrome) tudo está certinho. O problema está na propriedade DocumentText mesmo.
Tentei usar o stream da propriedade Document e ler por ele, usando um Enconding UTF-8... mas também não funcionou.
Eu até mostraria a página para vocês, mas para chegar nela, precisariam de credenciais... aà fica difÃcil.
Quem puder ajudar, fico agradecido.
Aparentemente era algo bobo, mas acabei já perdendo algumas horas de tentativa e pesquisa.
Estou navegando usando um WebBrowser e em determinado momento eu preciso pegar a propriedade DocumentText dele. Até aà tudo bem.
O problema está no Enconding. Acentos, cecidilha, estão vindo todos como sÃmbolos estranhos.
Já tentei usar:
_browser.Document.Encoding = [Ô]utf-8[Ô]
Ou
_browser.Document.Encoding = [Ô] iso-8859-15[Ô]
Nada parece funcionar. Quando vejo o código da página via Browser (Google Chrome) tudo está certinho. O problema está na propriedade DocumentText mesmo.
Tentei usar o stream da propriedade Document e ler por ele, usando um Enconding UTF-8... mas também não funcionou.
Eu até mostraria a página para vocês, mas para chegar nela, precisariam de credenciais... aà fica difÃcil.
Quem puder ajudar, fico agradecido.
Novas tentativas fracassadas:
Private Function RetornaDocumentText() As String
Dim stream As New StreamReader(_browser.DocumentStream, System.Text.Encoding.ASCII)
Return stream.ReadToEnd()
End Function Private Function RetornaDocumentText() As String
Dim stream As New StreamReader(_browser.DocumentStream, System.Text.Encoding.UTF8)
Return stream.ReadToEnd()
End Function
AEEEWWWWWWWWWWW !
CARAAAAAAAMBA!!!!!!!! Depois de vários anos, ainda consigo ficar agarrado num código hahaha Mas essa felicidade de descobrir na tentativa e erro é inexplicavel também.
Quem precisar:
CARAAAAAAAMBA!!!!!!!! Depois de vários anos, ainda consigo ficar agarrado num código hahaha Mas essa felicidade de descobrir na tentativa e erro é inexplicavel também.
Quem precisar:
Private Function RetornaDocumentText() As String
Dim stream As New StreamReader(_browser.DocumentStream, System.Text.Encoding.GetEncoding([Ô]iso-8859-15[Ô]))
Return stream.ReadToEnd()
End Function
Boa!!
Tópico encerrado , respostas não são mais permitidas