Автор Тема: Считывание строк из текстового файла  (Прочитано 7802 раз)

Мастер

  • Администратор
  • Начинающий
  • *****
  • Сообщений: 55
  • EVK IT Сервис
    • Просмотр профиля
    • Макеевка, Донецк, Компьютерная техника
[code:18clj9w2]
Dim FreeFileHandle As Long, tmpstr As String, k As Long
k = 1: text1.text=Empty :FreeFileHandle = FreeFile
Open App.Path & "\somefile.txt" For Input As #FreeFileHandle
    While Not EOF(FreeFileHandle)
      Input #FreeFileHandle, tmpstr
      If Len(tmpstr) > 0 Then
        text1.text= text1.text & tmpstr
        k = k + 1
     end if
    Wend
Close #FreeFileHandle
[/code:18clj9w2]