Код символа OEM

26.11.14

Разработка - Универсальные функции

Как получить код символа в кодировке OEM средствами платформы 1С V8?

Стояла задача определить код символа в кодировке OEM силами платформы 1С V8. Как известно, платформа 1С предоставлет возможность определять код символа методом КодСимвола(), но загвоздка в том, что данный метод возвращает код в соответствии с кодировкой Unicode.

Было найдено решение, основанное на строковом представлении значений типа ДвоичныеДанные.

Суть метода состоит в следующем: исходная строка записывается в файл через объект типа ТекстовыйДокумент, используя кодировку OEM, затем создается объект типа ДвоичныеДанные на основе этого файла, далее анализируется строковое представление объекта. Строковое представление позволяет нам "увидеть" байты, т.е. коды символов переданной строки в шестнадцатеричном виде. Остается лишь преобразовать шестнадцатеричные коды в десятичные.

Ниже приведен пример функции:

 

Функция КодСимволаOEM(Строка, НомерСимвола)

    Алфавит16 = Новый Соответствие();
    Для Сч = 0 По 9 Цикл
        Алфавит16.Вставить(Формат(Сч, "ЧН="), Сч);
    КонецЦикла;
    Для Сч = КодСимвола("A") По КодСимвола("F") Цикл
        Алфавит16.Вставить(Символ(Сч), Алфавит16.Количество());
    КонецЦикла;

    ИФ = ПолучитьИмяВременногоФайла();

    Текст = Новый ТекстовыйДокумент();
    Текст.УстановитьТекст(Строка);
    Текст.Записать(ИФ, КодировкаТекста.OEM);

    ДД = Новый ДвоичныеДанные(ИФ);

    Приемник = Строка(ДД);
    Приемник = " " + Приемник;

    БайтСтр = ВРег(СокрЛП(Сред(Приемник, (НомерСимвола - 1) * 3 + 1, 3)));

    Результат = Алфавит16[Лев(БайтСтр, 1)] * 16 + Алфавит16[Прав(БайтСтр, 1)];

    Возврат Результат;

КонецФункции


код символ OEM Unicode 8 8.1 8.2 8.3 байт двоичные данные строка функция метод алгоритм

См. также

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4331    atdonya    22    

41

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3885    ke.92@mail.ru    16    

60

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8563    YA_418728146    6    

139

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2022    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16016    131    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7200    quazare    8    

108
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. eugeniezheludkov 43 21.01.15 08:28 Сейчас в теме
воу а не проще использовать чтото вроде

Функция КодСимволаОЕМ(Символ)
     Возврат Найти(" !""№;%:?*()*абвгдеёжз и т.д 255-31 символов",Символ)+31;
КонецФункции

просто если текста много то вариант с созданием файла на каждый символ это ППЦ
daho; softcreator; +2 Ответить
2. hobi 615 27.03.15 10:42 Сейчас в теме
(1) eugeniezheludkov, да.

Добавил в вашу функцию сгенерированную строку:

Функция КодСимволаОЕМ(Символ)
	 
     СтрокаОЕМ = " !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀рстуфхцчшщъыьэюяЁёЄєЇїЎў°∙·√№¤■ ";
     Возврат Найти(СтрокаОЕМ,Символ) + 31;

КонецФункции
daho; eugeniezheludkov; +2 Ответить
3. mpeg1989 130 30.10.18 22:34 Сейчас в теме
Зачем прогонять через файл, если есть функция ПолучитьДвоичныеДанныеИзСтроки?
Оставьте свое сообщение