VPF::txt-файл - Форум программистов

Izuver

Дата 7.7.2007, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

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

bilya

Дата 8.7.2007, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Может быть загонять это дело в массив и потом использовать его как надо?

Код


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)

Это сообщение отредактировал(а) bilya - 8.7.2007, 14:05

Akina

Дата 8.7.2007, 21:08 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

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

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »