Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Alex_Bor
0 / 0 / 0
Регистрация: 27.01.2011
Сообщений: 48
1

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

05.08.2011, 18:27. Просмотров 839. Ответов 4
Метки нет (Все метки)

Здравствуйте!

Вопрос такой как при помощи 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
и т.д.

Всем зараннет благодарен
0
kpoxa
5 / 5 / 0
Регистрация: 08.12.2009
Сообщений: 213
06.08.2011, 15:07 2
Не понял, а где собственно связь между этим файлом и FSO ?
0
Silver
07.08.2011, 10:23 3
Для таких вещей, как разбор строки с символом-разделителем очень хорошо подходит функция Split.
Она возвращает строку типа
11/11/1933,11111111111,Ivaov Ivan,19/04/2005,UL.Gubkina, STROITEL
в виде массива строк
11/11/1933
11111111111
Ivaov Ivan
19/04/2005
UL.Gubkina
STROITEL
Посмотри в HELPe, там все хорошо рассказано.
Alexey Spirin
2 / 2 / 1
Регистрация: 18.10.2007
Сообщений: 1,750
07.08.2011, 14:28 4
Хм... а какая вообще здесь необходимость в FSO?
Чем не нравится обычный Open?
0
VladConn
4 / 4 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
08.08.2011, 16:20 5
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
0
08.08.2011, 16:20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.