Вывод в HTML файл в UTF-8 - VB

Формулировка задачи:

Суть проблемы: есть код, который парсит rss ленты, русского языка это чудо как оказалось не понимает Что удалось обнаружить:

                    Листинг программы
                
 'Dim text3 As String
    Open "c:\windows\RSS\RSS_FEED.html" For Output As #1
    Print #1, Text3.Text
    Close #1

Также удалось обнаружить, что при выводе данных в .html файл меняется его кодировка. Гуглил - не нашел решения

Решение задачи: «Вывод в HTML файл в UTF-8»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub bb()
Dim s$
s = "<html><head><meta http-equiv=""Content-type"" content=""text/html; charset=utf-8""></head>" & _
    "<body>Это текст на русском!</body></html>"
 
With CreateObject("ADODB.Stream")
    .Charset = "utf-8"
    .Open
    .Writetext s
    .SaveToFile "c:\temp\RSS_FEED.html"
End With
End Sub

Оцени полезность:

11 голосов , оценка 4.182 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы