Есть Число, например 19553 его как-то надо записать в 4 байта.
Например
19553 в 2ичной системе 0000000000000000100110001100001 потом это добро поделить на байты 0000000 00000000 01001100 01100001 и каждый байт записать в строку в виде символа в итоге у этого числа получится следующая строка "  La", то есть первые 2 байта нули в третьем 01001100 что соответствует L а в 4м 01100001 что соответствует a.
Как такой перевод реализовать в 1с 8.1?

Ну, так и реализовывай, какие проблемы?

главное - весь алгоритм знает, а что делать с алгоритмом не знает ))

(0) а смысл изначально в чем?

(0)[Как такой перевод реализовать в 1с 8.1]
Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Математика=Скрипт.Eval("Math");
   Ат=Математика.pow(2,Цел(Лог(а)/Лог(2)))+1; - и фигарь свои двоичные сдвиги  и XOR

(1)(2) Какими функциями переводить из одного вида в другой.
(3) Формат выгрузки цен (цены в копейках).

(3) а где у тебя должно быть 4 байта? в какой системе?

(6) Есть число например что приводил я 19553, оно занимает 2 байта, 2 байта это 2 символа из ascii, каждый байт свой символ. А формат файла в который все это нужно записать (и из которого все это будет загружаться предполагает что число должно писаться в 4 байта) то есть в файл пишем два символа из ascii с 00000000, а потом два символа которые соответствуют числу 19553.

(7) 8-ка в уникоде, а не в асци

(8) И.

там символы по 2 байта

или в чем поблема?

Внимательно прочитай (0) и (7)

Так много цен передаёшь что не влазиют в файл и надо уменьшить разрядность клонки? Или куда передаёшь - там число, а не строка символов?

(13) У файла есть специальный формат, в котором цена должна занимать 4 байта, то есть при загрузке считывается 4 байта и получается число.

(14) Ну или функцию внешнюю для перевода используй?
Или сам 19553/16 и переводишь в 16-ую систему.

т.е. не получается записать символ с кодом 0?

Если кто еще не понял суть проблемы, то откройте калькулятор в винде, переведите его в инженерный режим, выберите Bin и 4 байта и введите 11111111111000000000000000000000
потом нажмите Dec получится 4292870144
потом Hex и получите FFE00000 вот эти 4 байта и надо записать в текстовый файл, побайтно.

(16) и это тоже

Вернее не в текстовый файл а просто в файл.

"  La" - это текстовый файл. А тебе как раз нужно просто 16-е число.

(7) А в чем проблема как таковая? Если у тебя произвольный формат файла получается??? Ты же сам его формируешь, так еще и сам его загружать после этого будешь...

Когда ты это 16-е число запихнешь в файл, то и получиль строку "  La" при просмотре в текстовом редакторе или ХХХХh в HEX редакторе.

(20) Открой любой файл Блокнотом и увидишь текст.

(22) Можно подробнее.

(17) Так а проблема-то в чём? 4 байта в файл записать?

(22)(24) только при этом максимальное значение будет 65535

(24) Ага типа того.

(27) Вообще же конечно максимальное значение которое дает 16-я система при 4-байтном коде: FFFFFFFF, т.е. 4`294`967`295

(27) Байты в каком порядке должны идти?

(28) Вот. Так мне и надо представить число в 4-байтном коде и записать эти 4 байта в файл.

(30) только я еще раз прошу ответить на (21)

(21) Нет не произвольный.

Фигня какая то

(21) Был бы мой формат я бы не лучился...

(34) но если ты сам определяешь в каком виде будет формироваться файл (ты же в (0) вообще некую шифровку предлагал), то как опять же без переработки будет этот файл обрабатываться на приемнике?

(34) Ты чем его пишешь-то?
И в каком порядке у тебя байты числа должны идти?

пипец задача яйца выеденого не стоит

Читать http://www.geksagon.ru/files/images/Files/Goods.pdf

Конкретно Таблица товаров бинарный вид Goods.bin

задача яйца выеденого не стоит

(40) Ну так реши ее.

ну не умеет 1С с бинарниками работать.. пользуйся сторонними объекатми.. на vbscript попробуй

(42) в (4) предложено
ТС кроме флюда некуя не умееет

(39) В этом файле сказано, что имеется программка GoodsConverter, которая способна превратить goods.txt в goods.bin
Если не умеешь писать двоичные файлы - то что мешает воспользоваться этим несомненно полезным инструментом?

(44) Да не хотелось чем-то еще пользоваться, придется в в текстовом грузить. Просто текстовый грузится раз в 40 медленнее.

ну а деление на два слабо в цикле использовать просто??

и проверять на цело делиться или нет

Работа с бинарными данными

(46) Не надо на 2. Надо на 256. Или даже на 65536

+(43)

Как в 1С77 число перевести в 2-чную систему счисления?

(46) тебе поможет

(50) ну а как из 11111111 или FF получить символ и записать его в файл?

(52) А зачем тебе двоичный или шестнадцатеричный _вид_, если у тебя есть _байты_?

(53) В смысле байты. У меня есть число.

(54) Есть число (например, оно называется Цена). Это число состоит из 4 байтов:
(Цена%256), (Цел(Цена/256)%256), (Цел(Цена/65536)%256), (Цел(Цена/16777216)).
(Или в каком порядке тебе они нужны?)

(45) И зачем тебе _грузить_ текстовый файл, если у тебя есть программка-_конвертер_, которая создаст .bin?

Ты паразитируешь что ли ?

//*******************************************
Процедура Сформировать()
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   ФСО=СоздатьОбъект("Scripting.FileSystemObject");
   Файл=КаталогПользователя()+"ЗадачаНеСтоитНиЧего.bin";
   Файл=ФСО.OpenTextFile(Файл,2,-1);
   Скрипт.AddObject("Файл",Файл);
   Стр=Скрипт.Eval("new Number(19553)");
   Стр=Прав("00000000"+Стр.toString(16),8);
   Для Сч=0 По 3 Цикл
       Скрипт.Eval("Файл.Write(String.fromCharCode(Number(0x"+Сред(Стр,Сч*2+1,2)+")))");
   КонецЦикла;
   Файл.Close();
КонецПроцедуры


только скорее всего в обратном порядке и не стоит джабу использовать (будут проблемы)

//*******************************************
Процедура Сформировать()
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="vbscript";
   ФСО=СоздатьОбъект("Scripting.FileSystemObject");
   Файл=КаталогПользователя()+"ЗадачаНеСтоитНиЧего.bin";
   Файл=ФСО.OpenTextFile(Файл,2,-1);
   Скрипт.AddObject("F",Файл);
   Че=3435973836;
   Если Че > 2147483647 Тогда
       Че=Че-4294967296;
   КонецЕсли;
   Стр=Скрипт.Eval("hex("+(Че)+")");
   Стр=Прав("00000000"+Стр,8);
   Сообщить(Стр);
   Для Сч=0 По 3 Цикл
       Сообщить(Сред(Стр,Сч*2+1,2));
       Скрипт.Eval("F.Write(chr(&h"+Сред(Стр,Сч*2+1,2)+"))");
   КонецЦикла;
   Файл.Close();
КонецПроцедуры

Ковычки +100 Спасибо.

порядок байт скорее обратный приведенному

Порядок байт - сначала младшие разряды, потом старшие.