v7: Кодировка текста

1C 7.7

☑

0 Denshu

26.04.18

✎

11:04

В восьмерке есть КодировкаТекста.ANSI а как в семерке?

1 Kigo_Kigo

26.04.18

✎

11:06

В семерке она по умолчанию

2 Denshu

26.04.18

✎

11:09

(1) мне надо в параметры процедуры передать кодировку
Функция Декодировать(Стр, Кодировка)
шо написать то?

3 trdm

26.04.18

✎

11:11

(2) Смотря какая кодировка нужна.

4 Kigo_Kigo

26.04.18

✎

11:14

(2) ну так и дай текст Функция Декодировать(Стр, Кодировка)

5 Kigo_Kigo

26.04.18

✎

11:14

Мы тебе скажем что туда передать

6 trdm

26.04.18

✎

11:14

И смотря что за процедура.

7 vladko

26.04.18

✎

11:14

Кодировка = 0 для ANSI (windows-1251)
Кодировка = 1 для dos-866

8 Denshu

26.04.18

✎

11:16

(5) ну Ansi надо

9 vladko

26.04.18

✎

11:18

(8) модуль функции Декодировать() лучше сюда бы вставил, так было бы яснее

10 Denshu

26.04.18

✎

11:32

Функция Декодировать(Стр, Кодировка)
    ЦДО=СоздатьОбъект("CDO.Message");
    БодиПарт=ЦДО.BodyPart;
    БодиПарт.ContentTransferEncoding = Кодировка;
    Стрим=БодиПарт.GetEncodedContentStream();
    Поля=БодиПарт.Fields;
    Поле=Поля.Item("urn:schemas:mailheader:content-type");
    Поле.Value="text/plain; charset=""windows-1251""";
    Поля.Update();
    Стрим.WriteText(Стр);
    Стрим.Flush();
    Стрим = БодиПарт.GetDecodedContentStream();
    Стрим.charset = "windows-1251";
    Возврат Стрим.ReadText();
КонецФункции    // Декодировать64(Стр)

11 Kigo_Kigo

26.04.18

✎

11:51

Я так понял что эта функция декодирут из "ANSI" или UTF-8 в "windows-1251"

12 Denshu

26.04.18

✎

11:55

(11) нет, это функция должна декодировать из base64

13 zwei

26.04.18