Как при помощи 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