Почему корежит русские шрифты?

[Antonariy]

Код: Выделить всё

Dim fso As New Scripting.FileSystemObject
Dim st As New ADODB.Stream
Dim fl As File
    st.Type = adTypeText
    st.Open
    For Each fl In fso.GetFolder("C:\xxx").Files
        st.Flush
        st.LoadFromFile fl.Path
        st.Charset = "utf-8"
        st.SaveToFile "C:\xxx\1\" & fl.Name
    Next

[iGrok]

Код: Выделить всё

Dim fso As New Scripting.FileSystemObject
Dim st As New ADODB.Stream
Dim fl As File
    st.Type = adTypeText
    st.Open
    For Each fl In fso.GetFolder("C:\xxx").Files
        st.Flush
        st.LoadFromFile fl.Path
        st.Charset = "utf-8"
        st.SaveToFile "C:\xxx\1\" & fl.Name
    Next

Ну ты б хоть файлики показал..
А вообще так корячит, когда хто-то (типа браузера) думает, что файл в utf8, а на самом деле он в 1251.

[Antonariy]

Обычные html-файлы, win-1251.

А вообще так корячит, когда хто-то (типа браузера) думает, что файл в utf8, а на самом деле он в 1251.

Это случается, когда meta charset не соответствует физической кодировке, а в этом файле заголовка вообще не было.

[iGrok]

Хм. А ты сами файлы после перекодирования проверял? Кодировка действительно сменилась?
А кто их так отображает? IE?
А если указать в meta нужную кодировку?

Не знаю, может я и немного не в теме. Просто как-то маловато информации.

[Antonariy]

Meta тут ни при чем, их так отображает Visual Studio .NET любой версии, причем говорит, что кодировка UTF-8 with signature. Пример прилагается.

[Nord777]

Второй файл(ReturnRecs_EN_UTF.htm) в ANSI кодировке.
Вернее так:
Notepad++ говорит, что это UTF-8, но при этом отображает хрень вместо русских букв.
Если принудительно выставить ANSI - всё ок

[Antonariy]

Получается, ADODB.Stream не умеет конвертировать в UTF-8?

[iGrok]

Получается, что так.
Второй файл отличается от первого только тем, что содержит в начале признак utf (причём сразу оба - сигнатуры EF BB BF и FF FE).
А всё остальное там один-в-один.

[alibek]

http://forum.script-coding.info/viewtopic.php?id=220

[Antonariy]

http://forum.script-coding.info/viewtopic.php?id=220

Что-то не понял, как к этому прикрутить UTF.

[Andrey Fedorov]

IMHO - где-то так надо:

Код: Выделить всё

    Dim fso As New Scripting.FileSystemObject
    Dim st As New ADODB.Stream, su As New ADODB.Stream

    st.Type = adTypeText
    st.Open
    st.Charset = "Windows-1251"
    st.LoadFromFile "D:\1\t1251.txt"
   
    su.Open
    su.Charset = "utf-8"
    su.WriteText st.ReadText
   
    su.SaveToFile "D:\1\tUTF-8.txt"


[Antonariy]

Сработало)

[alibek]

Мне кажется, что два стрима — это все-таки избыточно. Наверняка и с одним можно как-то обойтись.

[Andrey Fedorov]

Мне кажется, что два стрима — это все-таки избыточно. Наверняка и с одним можно как-то обойтись.

Ну если с промежуточной переменной... Вряд ли оно лучше будет.