Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > txt-файл

Автор: Izuver 7.7.2007, 20:32

Как можно из txt-файла взять только первую строчку, затем все последющие?

Автор: bilya 8.7.2007, 14:00

Может быть загонять это дело в массив и потом использовать его как надо? Код Dim MyMassiv() Dim i As Integer f = FreeFile Open "...путь к файлу..." For Input As #f     Do While Not EOF(f)         Line Input #f, stroka         ReDim Preserve MyMassiv(0 To i)         MyMassiv(i) = stroka         i = i + 1     Loop Close #f 1_stroka = MyMassiv(0)

Автор: Akina 8.7.2007, 21:08

Можно и так. А можно использовать FileSystemObject.ReadLine

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)