Как при помощи FSO можно обработать такой (см.внизу)текстовый файл(1.txt) и вывести её на печать !? - VB

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

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

Здравствуйте! Вопрос такой как при помощи FSO можно обработать такой (см.внизу)текстовый файл(1.txt) и вывести её на печать !???? 11/11/1933,11111111111,Ivaov Ivan,19/04/2005,UL.Gubkina, STROITEL 11/11/1935,12111411511,Petrov Petr,01/12/2005,UL.Pavlova, Montagnik и т.д. Всем зараннет благодарен

Решение задачи: «Как при помощи FSO можно обработать такой (см.внизу)текстовый файл(1.txt) и вывести её на печать !?»

textual
Листинг программы
Private Sub Command1_Click()
    Dim objFSO As New FileSystemObject
    Dim objTextStream As TextStream
    
    Set objTextStream = objFSO.OpenTextFile("c:\test.txt", ForReading)
    
    While Not objTextStream.AtEndOfStream
        MsgBox objTextStream.ReadLine
    Wend
    
    objTextStream.Close
    
    Set objTextStream = Nothing
    Set objFSO = Nothing
    
End Sub

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


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

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

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