Вопрос: Как открыть в TextBox обычный текстовый файл? | Добавлено: 16.02.08 17:09 |
Автор вопроса: ![]() |
Я понимаю, что глупый вопрос. Но я просто забыл (давно бэйсиком не пользовался). Пробовал так:
DIM TextData OPEN FileName FOR INPUT AS #1 DO WHILE NOT EOF(1) TextData = Input(1, #1) Text1.Text = TextData CLOSE #1 ...но у меня почему-то в текст боксе появляется только последний символ из файла, хотя и MultiLine разрешен и скроллы тоже. |
Ответы | Всего ответов: 17 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 418811267 Вопросов: 40 Ответов: 243 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 16.02.08 17:49 |
А зачем тебе do while? |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 16.02.08 20:12 |
Потому что ты, считывая один символ, заменяешь содержимое текстбокса, а не пишешь в конец. |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 418811267 Вопросов: 40 Ответов: 243 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 16.02.08 22:52 |
Dim FN as Integer
FN = FREEFILE Dim FName as String FName = "C:\tmp\index.txt" Open FName For Input As #FN Text1.Text = Input(LOF(FN), #FN) Close #FN |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 17.02.08 10:11 |
Можете мне объяснить, почему в целой горе примеров пишут
DO WHILE NOT EOF(1)
вместо DO UNTIL EOF(1)
? |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 17.02.08 12:16 |
Лично я тоже так пишу. Зависит от личных предпочтений и стиля программирования. |
Номер ответа: 6 Автор ответа: ![]() ![]() ICQ: 282466278 Вопросов: 3 Ответов: 11 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 17.02.08 13:29 |
А оказывается все проще ![]() Open FileName For Input As #1 Text1.Text = Input(LOF(1), #1) Close #1 И усё! |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 17.02.08 17:25 |
не правда. Нужно использовать FREEFILE. |
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 238819245 Вопросов: 9 Ответов: 76 |
Профиль | Цитата | #8 | Добавлено: 17.02.08 21:16 |
'#' можно не ставить
FreeFile уже не использую, хоть и обучали в книге где он использовался |
Номер ответа: 9 Автор ответа: ![]() ![]() ICQ: 282466278 Вопросов: 3 Ответов: 11 |
Web-сайт: Профиль | Цитата | #9 | Добавлено: 18.02.08 10:07 |
Ну а что толку от фрифайла, если и так все работает? |
Номер ответа: 10 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #10 | Добавлено: 18.02.08 11:00 |
А если ты открываешь 50 файлов сразу? |
Номер ответа: 11 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 238819245 Вопросов: 9 Ответов: 76 |
Профиль | Цитата | #11 | Добавлено: 18.02.08 23:12 |
...то нумеруешь это все от 1 до 50.
Я так понимаю FreeFile есть смысл использовать лишь в некоторых ситуациях, когда требуется контроль, но лень за всем следить |
Номер ответа: 12 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #12 | Добавлено: 19.02.08 00:13 |
FreeFile полезна, когда у тебя огромный проект с кучей файлов, открытых параллельно. Будешь запоминать какой файл у тебя под каким номером или создашь переменную с именем, определяющим назначение файла? Хороший программист, пожалуй, выберет второе. |
Номер ответа: 13 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #13 | Добавлено: 19.02.08 01:40 |
Вот будет большой проект, а Алексей по привычке все свои 50 файлов откроет As #1. Зайдет на форум и станет спрашивать в чем причина проблем![]() |
Номер ответа: 14 Автор ответа: ![]() ![]() ICQ: 282466278 Вопросов: 3 Ответов: 11 |
Web-сайт: Профиль | Цитата | #14 | Добавлено: 19.02.08 11:39 |
To Winand: Да нет, значения #1, #2, #3... Я знаю прекрасно ![]() |
Номер ответа: 15 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #15 | Добавлено: 19.02.08 17:51 |
нет, ну в данном случае пофиг, главное как-нибудь открыть файл.
Ну а что толку от фрифайла, если и так все работает? Вот у меня прога есть, сейчас понадобилось сделать большие изменения и я пожалел, что часто руководствовался подобным принципом![]() |
|