Страница: 1 |
Open "c:\temp.txt" For Input As #1 и ещё: у txtText.MultiLine = True сделать не забудь. А что, так не судьба? Private Sub Command1_Click() Dim tFile As Byte tFile = FreeFile(0) Open "E:\text.txt " For Input As tFile Text1.Text = Input(LOF(tFile), tFile) Close tFile End Sub Страница: 1 |
Вопрос: Как прочитать данные из текстового файла?
Добавлено: 12.09.03 07:54
Автор вопроса: Bill Gatis | Web-сайт:
Хелоу програмеры! Неподскажите мне как при помощи VB 5.0 прочить данные из текстового файла и вывести их в TextBox?
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
Justas
ICQ: 259418212
Вопросов: 24
Ответов: 325
Web-сайт:
Профиль | | #1
Добавлено: 12.09.03 08:28
Do Until EOF(1)
Line Input #1, txt
alltxt = alltxt + txt + vbCrLf
Loop
Close #1
txtText.Text = alltxt
Номер ответа: 2
Автор ответа:
Justas
ICQ: 259418212
Вопросов: 24
Ответов: 325
Web-сайт:
Профиль | | #2
Добавлено: 12.09.03 08:42
Номер ответа: 3
Автор ответа:
Nio
Вопросов: 15
Ответов: 115
Web-сайт:
Профиль | | #3
Добавлено: 12.09.03 08:47
Тут While not eof(1)..... Wend работать быстрее будет. Замерял.
Номер ответа: 4
Автор ответа:
LamerOnLine
ICQ: 334781088
Вопросов: 108
Ответов: 2822
Профиль | | #4
Добавлено: 12.09.03 09:24