Чтение из файла

[oskolok_vatbI]

Есть файл с таблицей в конце, информацию из которой мне нужно получить. Пробую считать все в переменную, а потом выделить часть с таблицей и вытащить из нее значения с помощью Mid. Некоторые файлы нормально читаются и все что мне нужно я из них получаю, а некоторые не считывабтся до конца. Читаю таким способом:

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

Open FName For Input As #1
Do Until EOF(1)
Line Input #1, S
AllText = AllText & S
Loop
Close #1


Может там признак конца файла попадается или еще что - не могу понять. Подскажите каким способом лучше сделать. Вот пример файла который не считывается до конца. Спасибо.

[iGrok]

...
Читаю таким способом:

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

Open FName For Input As #1
Do Until EOF(1)
Line Input #1, S
AllText = AllText & S
Loop
Close #1


Мда.. Тут недавно Хакер говорил про людей, которые зачем-то рвут фотографии на клочки, а потом усердно склеивают.. Вот это, похоже, тот самый случай...

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

Dim fN as Long, s as String
fN = FreeFile
Open FName For Binary As fN
    s = String$(LOF(Fn), vbNullChar)
    Get #fN, , s
Close #fN

AllText = s


[oskolok_vatbI]

Да, я читал этот топик. Таких любителей "рвать" и "склеивать" много потому, что практически каждый учебник по VB предлагает такой способ чтения файлов. Вот люди и ведутся. Теперь буду пользоватся предложенным тобой способом, большое спасибо.