Как установить длину Long переменой?

[BDSoft]

Как установить длину Long переменой?

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

DIM SizeFile AS LONG
Open "E:\Games\GTA San Andreas MultuPlayar\data\maps\1bb_mod\bb_mod.img" For Binary As #1
Get #1, 11, SizeFile
Close #1

Чтоб считалось только 4 байта.

[alibek]

Длина переменной Long всегда четыре байта, независимо от твоих желаний.

[RayShade]

MultiPlayer с двумя ошибками написано...

[BV]

(мысли)
Может, автор про значение переменной?

[BDSoft]

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

DIM SizeFile AS LONG
Open "E:\Games\GTA San Andreas\data\maps\1bb_mod\bb_mod.img" For Binary As #1
Get #1, 11, SizeFile
Close #1

Считывается &H480000, а должно быть &H4800

[ANDLL]

Эээ. Трехбайтовое поле?

[BDSoft]

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

DIM SizeFile AS LONG
Open "E:\Games\GTA San Andreas\data\maps\1bb_mod\bb_mod.img" For Binary As #1
Get #1, 11, SizeFile
Close #1
Text2 = Mid(Hex(SizeFile * 2048), 1, Len(Hex(SizeFile * 2048)) - 2)

Вот так два нолика убрал.
Но так, когда SizeFile стаёт большим, выдаёт ошибку Переполнение

[Viper]

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

Text2 = Mid(Hex(SizeFile * 2048), 1, Len(Hex(SizeFile * 2048)) - 2)

в чем смысл этого действа?

[ANDLL]

Вот так два нолика убрал

LOL
BDSoft
Изычал ли ты в школе деление нацело?

[BDSoft]

Изычал ли ты в школе деление нацело?

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

text2=Hex(SizeFile * 2048) / 100

Делил на сто, ошибка несоответствие типа.
И темболее там не всегда два нуля.

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

Text2 = Mid(Hex(SizeFile * 2048), 1, Len(Hex(SizeFile * 2048)) - 2)

в чем смысл этого действа?

Чтоб убрать два знака с конца Hex(SizeFile * 2048) . Или ты про * 2048?

[Viper]

похоже, что
1) деление нацело не знакомо таки автору
2) автор незнает чего он собственно хочет
3) пытается делить строку на 100

Отсюда следует вывод, что автору необходимо пояснить не только смыл отбрасывания двух последних символов некой получаемой им путем биения в бубен строки, но и вообще смысл чтения из файла в переменную названную им SizeFile

[BDSoft]

Кароче задаю вопрос ещё раз.

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

Dim AdresFile As Long
Open OFN For Binary As #1
Get #1, &H8, AdresFile
Text2 = Hex(AdresFile * 2048)
Close #1

Получается Text2 = 480000, а должно Text2 = 4800
Вопрос: Как убрать эти два знака с конца, до перевода в Hex?

[BDSoft]

Файл который открываю это архив, а AdresFile-это смещение файла в архиве(в двухкилобайтных блоках, т.е. деленный на 2048).

[ANDLL]

англицкое слово адрес пишеться с двумя d то бишь address

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

Text2 = Hex((AdresFile\&h100) * 2048)

[BDSoft]

Запутался я в этих типах переменных.

Теперь работает. Спасибо за помощь.

[Vi]

А может читать с правильного смещения в файле?
Get #1, &H8 +1, AdresFile
Ведь адреса в VB-ском файле начинаются с 1, а не с 0?