Как при помощи 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д