Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как прочитать данные из текстового файла? Добавлено: 12.09.03 07:54  

Автор вопроса:  Bill Gatis | Web-сайт: www.microsoft.com | ICQ: а что это? 
Хелоу програмеры! Неподскажите мне как при помощи VB 5.0 прочить данные из текстового файла и вывести их в TextBox?

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
 Web-сайт: justas.newmail.ru
 Профиль | | #1
Добавлено: 12.09.03 08:28

Open "c:\temp.txt" For Input As #1
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-сайт: justas.newmail.ru
 Профиль | | #2
Добавлено: 12.09.03 08:42

и ещё:

у txtText.MultiLine = True сделать не забудь.

Ответить

Номер ответа: 3
Автор ответа:
 Nio



Вопросов: 15
Ответов: 115
 Web-сайт: www.fea.nxt.ru
 Профиль | | #3
Добавлено: 12.09.03 08:47
Тут While not eof(1)..... Wend работать быстрее будет. Замерял.

Ответить

Номер ответа: 4
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #4 Добавлено: 12.09.03 09:24

А что, так не судьба?

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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам