NikolosИмеется некий бинарный файл, в котором в определенном порядке содержатся числовые данные, как извлечь эти данные в нормальный десятичний формат средствами FoxPro (VFP8).

Формат файла:
Первые 144 байта всякая лабуда
Далее записаны данные блоками по 40 байт
4 байта целое число (INTEGER)
4 х 8 байт числа с плавающей точкой (DOUBLE)
4 байта целое число (INTEGER)

Например в одном из блоков есть такие числа и известно их десятичное значение

98 6E 12 83 C0 CA E3 3F = 0,6200
BD E3 14 1D C9 E5 E3 3F = 0,6185

Как получить эти значения в десятичном формате, считывая данные из файла???

Вот мои попытки

STORE FOPEN('имя файла') TO gnFileHandle && Открываем файл для чтения
STORE FSEEK(gnFileHandle, 156) TO gnTop && Ставим указатель в нужную позицию
gcString = STRCONV((FREAD(gnFileHandle, 8)),15 ) && Считываем 8 байт в Hex-виде в
&& переменную

*Получаем переменную gcString = “BDE3141DC9E5E33F”
*Конвертируем для того, чтобы младшие байты поставить в начало (а нужно ли это?...)

b1=SUBSTR(gcString,15,2)
b2=SUBSTR(gcString,13,2)
b3=SUBSTR(gcString,11,2)
b4=SUBSTR(gcString,9,2)
b5=SUBSTR(gcString,7,2)
b6=SUBSTR(gcString,5,2)
b7=SUBSTR(gcString,3,2)
b8=SUBSTR(gcString,1,2)
gcNew=b1+b2+b3+b4+b5+b6+b7+b8

*Получаем переменную gcNew = “3FE3E5C91D14E3BD”, т.е. перевернутую gcString

gcOut=ALLTRIM(STR(EVALUATE("0x"+ALLTRIM(gcNew))))

*Получаем строковое выражение десятичного значения переменной gcNew.
*Вот тут и начинаются сложности. Такое решение работает для считывания целых *(четырехбайтных) чисел. А вот для DOUBLE – фигвам…

? gcString
? gcNew
? gcOut

= FCLOSE(gnFileHandle) && Close the file

Ну, это Вы поторопились... И, скорее всего, средствами Фокса этого сделать нельзя... Здесь нужны низкоуровневые преобразования, которые Фоксу недоступны - ведь он разрабатывался несколько для других целей и не является универсальным(!) языком системного(!) программирования (типа ассемблера или С++)...

Например, отрицательные числа (целые) хранятся в "дополнительном виде", т.е. как разница между 0xFFF(F) и 0x<16-ричное число>; числа типа double могут храниться как (мантисса)+(степень 10) и т.д.

Самым простым решением в данном случае будет написание библиотеки (например, в виде dll) на С++ (все "преобразования" будут проводиться автоматически во время закачки данных в переменные) и ее подключение к Вашей программе...