| Вопрос: Как в Text записать текст из текстового файла. | Добавлено: 27.09.07 23:29 |
Автор вопроса:  Nikoly
|
|
Короче ,как связать Text адресной строкой с файлом.
Посмотрел примеры не нашел. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #1 | Добавлено: 27.09.07 23:49 |
| Что-то я тебя не понял. Поподробней напиши | ||
|
Номер ответа: 2 Автор ответа: Nikoly Вопросов: 12 Ответов: 26 |
Профиль | | #2 | Добавлено: 28.09.07 00:05 |
| К примеру на диске с: есть текcтовый файл блокнот или word,c небольшим текстом , вот этот текст надо заисать в Text. | ||
|
Номер ответа: 3 Автор ответа: Doc_i Вопросов: 1 Ответов: 4 |
Профиль | | #3 | Добавлено: 28.09.07 00:10 |
|
Так загружают содержимое текстового файла в текстбокс
Dim FN as Integer, FName as String FN = FREEFILE FName = "C:\tmp\index.txt" Open FName For Input As #FN Text1.Text = Input(LOF(FN), #FN) Close #FN |
||
|
Номер ответа: 4 Автор ответа: NikolyВопросов: 12 Ответов: 26 |
Профиль | | #4 | Добавлено: 28.09.07 00:28 |
| Пишет--- FreeFile Ошибка комиляции недоустимая внешняя процедура. | ||
|
Номер ответа: 5 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #5 | Добавлено: 28.09.07 00:44 |
|
естессно код надо ВНУТРИ процедуры или функции писать.
Private Sub Form_Load()
'КОД' Close #FN End Sub ...например при загрузке формы Кста, вордовский файл, так не откроешь. Вернее откроешь канечна  но получишь не совсем то что хотел
|
||
|
Номер ответа: 6 Автор ответа: NikolyВопросов: 12 Ответов: 26 |
Профиль | | #6 | Добавлено: 28.09.07 00:58 |
| Спасибо меня ве устраивает. | ||
|
Номер ответа: 7 Автор ответа: NikolyВопросов: 12 Ответов: 26 |
Профиль | | #7 | Добавлено: 28.09.07 04:22 |
| Winfnd может подкажешь еще как сделать так чтобы когда файла к которому обращается прога не существует не ошибка появлялась, а это пропускалось, и не чего не происходило. Файл создается временно для внесения индивидуальных данных. | ||
|
Номер ответа: 8 Автор ответа: ViperICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #8 | Добавлено: 28.09.07 09:52 |
| Ошибку обрабатывать обрабатывать нужным образом. Смотреть в сторону On Error ... | ||
|
Номер ответа: 9 Автор ответа: Doc_iВопросов: 1 Ответов: 4 |
Профиль | | #9 | Добавлено: 28.09.07 10:37 |
|
О существовании файла узнать просто -
If Dir("C:\tmp\index.txt", vbNormal) = "" Then 'файл не существует. End If |
||
|
Номер ответа: 10 Автор ответа: NikolyВопросов: 12 Ответов: 26 |
Профиль | | #10 | Добавлено: 28.09.07 13:22 |
| Отлично !!! | ||
Страница: 1 |