Считывание кодов BMP файла языком QB64 часто останавливается, не достигая конца файла. При этом следует сообщение, что файл закончен, хотя это на самом деле не так. Кто посоветует, как все коды до конца считывать? Требуется статистическая обработка сочетаний кодов в ВМР файлах. Спасибо.

AIS,

она и стоит в цикле. Вот упрощённый фрагмент программы, касающийся считывания:

OPEN f$ + ".bmp" FOR INPUT AS #1
op:
IF EOF(1) = -1 THEN GOTO kf1
a$ = INPUT$(1, # 1)
for i=1 to k
if a$=b$(i) then n(i)=n(i)+1:goto op
next i
k=k+1:b$(k)=a$:n(k)=1
goto op
kf1:
CLOSE #1

mayton, "переменные не терялись" - требуется описание что на входе и что на выходе из фрагмента, я правильно понял?

ShSerge,

спасибо, буду разбираться.

mayton,

"к" начинается с нуля. Считываются символы. Символ - код. В дальнейшем присваивается стандартный номер 0-255. А здесь "к" сразу присваивает номер ВИДА символа (кода), чтобы массивы не разрастались и непосредственно к считыванию отношения не имеет. На самом деле, регистрация сложнее, чем во фрагменте. Учитываются комбинации символов (кодов). Но проблема проявляется уже в простом варианте. В процентах 30 случаев от общего количества ВМР файлов, считывание и обработка происходит нормально до конца файла. В процентах 10 случаев считывание прерывается в самом начале (менее 1000 символов). В процентах 60 случаев - в середине и очень редко, в конце. Но если говорить об одном и том же файле - то считывание прерывается всегда в одном месте. Я предполагаю причину: иногда при считывании, символы (коды) воспринимаются, как соответствующие команды и принимаются к исполнению. Но почему не во всех файлах и как с этим бороться - не понимаю.

mayton,

спасибо, буду продвигаться в этом направлении.

Vowk,

спасибо большое!!! Попробую!

Vowk,

изменил программу, работает! Спасибо!