Чтение данных из текстовых файлов - VB

Формулировка задачи:

Есть текстовый файл со строками данных, вопрос: каким образом можно записать эти данные например в TextBox с переносом каждой записи на новую строку или ListBox?

Решение задачи: «Чтение данных из текстовых файлов»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim F As Long
Dim Fn As String, MyText As String
'-----в свойствах-------
'Text1.MultiLine=true
'=======================
Fn = "C:\файл.txt"
If Dir(Fn) <> "" Then
Text1.Text = ""
List1.Clear
F = FreeFile
Open Fn For Input As #F
Do Until EOF(F)
Line Input #F, MyText
Text1.Text = Text1.Text & MyText & vbCrLf
List1.AddItem MyText
Loop
Close #F
Else
MsgBox "Not"
End If
End Sub
                        

Оцени полезность:

14 голосов , оценка 4.429 из 5

Похожие ответы