| Вопрос: Вопрос! | Добавлено: 04.09.04 13:23 |
Автор вопроса:  kyb | Web-сайт: www.kbweb.dax.ru
|
|
Как сосчитать полностью файл? Вот я делаю так:
open "C:\1.jfj" for input as #1 input #1, txt close #1 Но он полностью не считывает файл! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Comanche Вопросов: 87 Ответов: 459 |
Профиль | | #1 | Добавлено: 04.09.04 13:42 |
|
Dim stBuff As String, fN As Integer
fN = FreeFile Open "C:\1.jfj" For Binary Access Read As #fN stBuff = Space$(LOF(fN)) Get #fN, , stBuff Close #fN Debug.Print "Содержимое файла:", stBuff |
||
|
Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 06.09.04 08:13 |
|
Зачем так мутно?
Dim hFile As Byte hFile = FreeFile Open "C:\1.jfj" For Input As hFile Text1.Text = Input(LOF(hFile), hFile) Close hFile |
||
Страница: 1 |