Ошибка при чтении файла

[neic]

Корче ввожу:

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

a = FreeFile
Open "C:\1.txt" For Input As a
Text1.Text = Input(LOF(a), a)
Close #a

Васик выдаёт ошибку 64 : "Input past end of file"

Что неправильно?

[noob4ever]

Open "C:\1.txt For Input As #1
Do While Not (EOF(1))
Input #1, a
Text1.Text =a
Loop
Close #1

[Хакер]

neic, код работает, и теоретически и сам проверял - работает. Вероятно код у тебя всё-таки другой.

noob4ever, приведённый вами код считывает последнюю строку
и то не всю. Надеюсь вы понимаете, что этому человеку в Text1 нужен весь файл, а не одна строка. Будте впредь внимательны.

[neic]

Хакер
Всё... разобрался... Если в файле присуствует много преходов на одной строчке (т.е. vbcrlf)(кто не поймёт могу выложить файл), то Васёк наченает ругаться. Или по другой причине?

[GSerg]

По другой причине.
По причине, когда в файле есть vbNullChar. Которого не должно быть в файле, открываемом в текстовом режиме.

[AndreyIl]

При работе с файлами с использованием Input столкнулся с подобной проблемой: читается не вся строка, если есть определенные символы.

Используя FSO.ReadLine, решил эту проблему.

[Konst_One]

GSerg
уже объяснил по поводу текстового режима работы с файлом, но для тех, кто в танке еще раз повторяю:

если в вашем файле используются разные спец-символы (CHR(0)), то это не текстовый файл, даже если расширение вы поставили TXT. поэтому с ним надо работать в Binary режиме

[Хакер]

даже если расширение вы поставили TXT. поэтому с ним надо работать в Binary режиме

Ну это для дет. сада, да? Наверное если человек пишет программы он знает, что расширение - только часть имени, содержащая информацию о типе файла для оболочки, чтобы та смогла открыть файл правильной прогой.

А мне кажется подозрительным, что файл содержащий спецсимволы пытаются поместить в TextBox.

neic делай тогда так, ошибок не будет никогда:

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


a = FreeFile
Open "C:\1.txt" For BINARY As a
Buffer$ = Space(LOF(a))
Get #a, 1, Buffer$
Text1.Text = Buffer$


[Konst_One]

детсад не детсад, а вот видно из этого:

Васик выдаёт ошибку 64 : "Input past end of file"

[Хакер]

Видно то как раз из этого

Open "1.txt" for input as #a

[Konst_One]

Хакер
в общем, мы друг друга поняли