В примере этой статьи описан метод VB для чтения текстовых файлов построчно. Поделитесь этим со всеми для справки. Подробности следующие:
'(общее объявление)Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long'=========================== ======Частная подкоманда1_Click()' Получить бесплатный номер файлаnFileNum = FreeFile' Открыть текстовый файл для ввода. Поле ввода возвращает путь для чтения файла. Откройте "C:/Documents and Settings/Sudeep/My". Documents/3.txt" For Input As nFileNumlLineCount = 1' Прочитать содержимое файлаDo While Not EOF(nFileNum) Line Input #nFileNum, sNextLine 'сделать что-нибудь с ним 'в данном случае добавить к нему номера строк! sNextLine = sNextLine & vbCrLf sText = sText & sNextLineLoopText1.Text = sText' Закройте файлClose nFileNumEnd Sub
Я надеюсь, что эта статья будет полезна всем, кто занимается программированием на VB.