| Вопрос: Как открыть в TextBox обычный текстовый файл? | Добавлено: 16.02.08 17:09 |
Автор вопроса:  Алексей | Web-сайт: www.supprint.ru | ICQ: 282466278 |
|
Я понимаю, что глупый вопрос. Но я просто забыл (давно бэйсиком не пользовался). Пробовал так:
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 Автор ответа:  GeniX ICQ: 418811267 Вопросов: 40 Ответов: 243 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 16.02.08 17:49 |
| А зачем тебе do while? | ||
|
Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 16.02.08 20:12 |
| Потому что ты, считывая один символ, заменяешь содержимое текстбокса, а не пишешь в конец. | ||
|
Номер ответа: 3 Автор ответа: GeniXICQ: 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 Автор ответа: VβÐUηìtВопросов: 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 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 17.02.08 17:25 |
| не правда. Нужно использовать FREEFILE. | ||
|
Номер ответа: 8 Автор ответа: ENIXICQ: 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 Автор ответа: ENIXICQ: 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 Автор ответа: WinandВопросов: 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... Я знаю прекрасно Просто мне нужно было открыть один текстовый файл, потому и упростил код. А про функцию FREEFILE интересно было бы узнать, на будущее, так сказать.
|
||
|
Номер ответа: 15 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #15 | Добавлено: 19.02.08 17:51 |
|
нет, ну в данном случае пофиг, главное как-нибудь открыть файл.
Ну а что толку от фрифайла, если и так все работает? Вот у меня прога есть, сейчас понадобилось сделать большие изменения и я пожалел, что часто руководствовался подобным принципом)
|
||