Печать данных из файла в форму Text1 - VB

Узнай цену своей работы

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

Задача: Нужно взять данные из файла и вывести их в Text1 Ниже приведенный код выводит только первую строчку, как сделать чтобы выводило все строки?

Решение задачи: «Печать данных из файла в форму Text1»

textual
Листинг программы 
Dim ati As String
Open "D:\NewFile.txt" For Input As #1
Text1.Text = ""
Dim Wrap As String
Wrap = Chr(13) & Chr(10) 'комбинация символов отвечает за перевод курсора на след. строку
While Not EOF(1)
    Line Input #1, ati
    Text1.Text = Text1.Text & ati & Wrap
Wend
Close #1

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 3.923 из 5
Похожие ответы