| Вопрос: В чем ошибка? | Добавлено: 12.10.09 18:45 |
Автор вопроса:  VVV
|
|
Нашел код, чуток отредактировал. Суть - создание файла .txt, и запись в него текста. Сам код:
Dim f Dim myfile Private Sub Form_activate() f = FreeFile MyFile = FreeFile Open App.Path & "\ttFi.txt" For Output As f Close f Open App.Path & "\ttFi.txt" For Input As MyFile Line Input #MyFile, S Close #MyFile Lable.Caption = S End Sub ВБ пишет "input past end of file". В чем тут ошибка? Заранее спасибо. |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #1 | Добавлено: 12.10.09 18:52 |
Ну наверное в том, что ты ничего туда не записал
|
||
|
Номер ответа: 2 Автор ответа: VVV Вопросов: 3 Ответов: 7 |
Профиль | | #2 | Добавлено: 12.10.09 18:53 |
| Хм. Тогда вопрос изменяется - мне нужно чтобы он туда ничего и не заиписывал, просто создавал файл. Записсывать "" не прокатит, говорю сразу. | ||
|
Номер ответа: 3 Автор ответа: Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #3 | Добавлено: 12.10.09 18:57 |
|
Какая конечная цель?
Если тебе нужно создать пустой файл, то что ты пытаешься считать из пустого? input past end of file |
||
|
Номер ответа: 4 Автор ответа: VVVВопросов: 3 Ответов: 7 |
Профиль | | #4 | Добавлено: 12.10.09 18:59 |
| нет. Конечная цель - чтобы при каждом запуске программы программа не переписывала файл заново, а дописывала. Тоесть при первом запуске чтоб в файле было а, после еще одного запуска добавлялось еще одно а и получалось аа, ааа, аааа.. | ||
|
Номер ответа: 5 Автор ответа: ArvitalyICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #5 | Добавлено: 12.10.09 19:04 |
| for append надо использовать | ||
|
Номер ответа: 6 Автор ответа: VVVВопросов: 3 Ответов: 7 |
Профиль | | #6 | Добавлено: 12.10.09 19:08 |
|
Хм. добавляется не "аа", а
" а а " Тоесть энтер а, а это не то... |
||
|
Номер ответа: 7 Автор ответа: ArvitalyICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #7 | Добавлено: 12.10.09 19:18 |
| тогда используй for binary ,seek и put | ||
|
Номер ответа: 8 Автор ответа: VVVВопросов: 3 Ответов: 7 |
Профиль | | #8 | Добавлено: 12.10.09 19:29 |
| Все, проблема решена. Всем спасибо) | ||
Страница: 1 |