Помогите с типом Integer, конвертация...

[Kurt]

Народ!
Плиз хелп! Срочно!
Мне надо считать из файла переменную типа Integer и дальше с ней работать (складывать, выводить на экран...)
Но проблема не в этом.
Дело в том, что переменная в файле (4 байт) хранится в большом порядке! (Т.е. для Sun & Motorola, not PC Intel).
Т.е. последовательность байт наоборот - первый быйт в Intel = последний байт в Motorola.
Мне нужно все сделать как в Intel... или VB может работать с такими данными?
Помогите, срочно надо!

[alibek]

4 байта это вообще-то Long.
Считывай, переворачивай слова, делай арифметические операции, переворачивай обратно.
Переворачивание:

Код: Выделить всё

'надеюсь, ошибок нет.
Function SwapWord(ByVal Value As Long) As Long
Dim l As Long, w As Long
Const wc As Long = 65536 '&h00010000&
l = Value And &h0000FFFF&
w = (Value And &hFFFF0000&) \ wc
SwapWord = (l * wc) Or w 'позор мне, вначале я написал And :)
End Function


Если именно Integer (два байта), то делаешь тоже самое, только немного дорабатываешь процедуру.