Имя: Пароль:
1C
 
Процедура преобразования символов из ASCII в Hex
,
0 Konst999
 
04.09.06
13:37
Приветствую! Подскажите, есть ли в 1с 7.7 процедура преобразования символов из ASCII в Hex?
1 Ёпрст2
 
04.09.06
13:38
10 --> 36
Синтаксис:
_IdToStr(ДесЗначение)

Назначение:
 Преобразование 10-тичного значения в 36-ричное.
Параметр
 ДесЗначение - десятичное число (тип Число).
Возвращаемое значение
 Строка - 36-ричное значение десятичного числа.

 Фича. Недокументированная. Может не поддерживаться. До 18 релиза работает
2 mrkorn
 
04.09.06
13:39
КодСимв()
3 Ёпрст2
 
04.09.06
13:40
4 mergan
 
04.09.06
13:42
Я так понял 10 в 16 надо, да?
5 smaharbA
 
04.09.06
13:45
6 mergan
 
04.09.06
13:46
7 Konst999
 
04.09.06
14:02
(5) Ссылка не работает
8 Ёпрст2
 
04.09.06
14:04
(7) Работает, но всёё тоже самое найдешь и в (3) ...
9 Konst999
 
04.09.06
14:31
ASCII - G, в HEX - 47
ASCII - @, в HEX - 40
Кто программировал сканер штрих кодов знает
10 Konst999
 
04.09.06
14:32
(8) А какая именно функция?
11 mergan
 
04.09.06
14:41
(10)Тогда чем (2) тебе не помагает?
12 smaharbA
 
04.09.06
14:58
(11) хекс и кодсимв несколько разные вещи
13 mergan
 
04.09.06
15:01
(12)Да, ну. Всегда думал, что хекс это код символа только шеснадцатиричный.
14 Konst999
 
04.09.06
15:07
Вот, получилось:

Функция ASCtoHEX(ASCII)
   
   Dec = КодСимв(ASCII);
   
   Ост=DEC;Hex="";
   Пока Ост>0 Цикл
       HEX0=Ост-Цел(Ост/16)*16;
       Ост=Цел(Ост/16);
       Если HEX0=10 Тогда
           HEX0="A";
       ИначеЕсли HEX0=11 Тогда
           HEX0="B"
       ИначеЕсли HEX0=12 Тогда
           HEX0="C"
       ИначеЕсли HEX0=13 Тогда
           HEX0="D"
       ИначеЕсли HEX0=14 Тогда
           HEX0="E"
       ИначеЕсли HEX0=15 Тогда
           HEX0="F"
       КонецЕсли;
       Hex=""+HEX0+Hex;
   КонецЦикла;  
   
   Возврат Hex;
   
КонецФункции
15 Konst999
 
04.09.06
15:08
Всем спасибо!
16 igork1966
 
04.09.06
15:12
(14) Пример того как нельзя писать программы. Садись, 2.
17 mergan
 
04.09.06
15:32
(16)Двойка. Вы ему льстите.
18 igork1966
 
04.09.06
15:56
(17) Да это есть. Оно еще и работать правильно небудет. ;-)
19 smaharbA
 
04.09.06
16:56
(13) разные...
20 smaharbA
 
04.09.06
16:56
+(19) причем "кодсимв" может быть савершенно разный в разных случаях
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс