v8: Перекодировка текста в 1с

05.11.2013 08:15

Прочитано: 16590

Здравствуйте, возникла проблема с перекодировкой текста в 1с. Нужно текст вида "Проверка" перекодировать в текст вида "РџСЂРѕРІРµСЂРєР°". Онлайн декодеры определяют кодировку по разному. Одни показывает как исходная кодировка "Проверка" как Windows-1251, а перекодированный текст как utf-8. Другой онлайн декодер показывает наоборот. Помогите разобраться с этими кодировками. И как реализовать в 1с функцию перекодировки русского текста в такой вид - "РџСЂРѕРІРµСЂРєР°".

Yandex

Возможно, вас также заинтересует

Jonsony

05.11.2013 08:58

Ответ № 1

ну так указывай кодовую страницу, в чём проблема? кодировку то есть

Изменено 05.11.13 08:59:12

Vitalii

05.11.2013 09:14

Ответ № 2

Вообщем опишу проблему проще. Я создаю HTTPСоединение и методом Получить() отправляю запрос туда:

Код 1C v 8.х

 Соединение = Новый HTTPСоединение("***********");

	Соединение.Получить("?method=push_msg&email=********&password=********&text=""&phone=********",ПутьКФайлу);

Так вот когда я в аргументе text=, передаю просто русский текст "Проверка" он возвращает ошибку кодировки. В связи с этим мне нужно какими либо средствами 1с перекодировать русский текст в utf-8 вида "РџСЂРѕРІРµСЂРєР°" то же что проверка. Никаких штатных функций в 1с 8.1 для этого не предусмотрено. Вот и возник вопрос. Нашел здесь функцию для 7,7: https://help1c.com/faq7/view/495.html переделал ее под 8.1 но работает она не верно. Я просто не разбираюсь в кодировках как и что, поэтому и прошу помощи.

Vitalii

05.11.2013 09:42

Ответ № 3

Все победил проблему, кому будет интересно:

Код 1C v 8.х

 

    Стр = "Кодируемый текст";

    Стрим = Новый COMОбъект("Adodb.Stream");

    Стрим.Type = 2;

    Стрим.Mode= 3;

    Стрим.charset="utf-8";

    Стрим.Open();

    Стрим.WriteText(Стр);

    Стрим.Position=0;

    Стрим.charset="windows-1251";

    Рез=Стрим.ReadText(-1);

    Стрим.Close();

Vitalii

05.11.2013 09:42

Ответ № 4

Вопрос закрыт!

DJ_Serega

05.11.2013 11:36

Ответ № 5

(3) Vitalii, с кодировкой баловался?

Vitalii

05.11.2013 13:05

Ответ № 6

Ну не сказать что баловался, для дела нужно было. А что?

Подсказка: Вы можете приложить к ответу файл или изображение щелкнув по значку или в редакторе.