VPF::VBS: Как после Read перейти в начало файла?

Rust04

Дата 5.12.2005, 16:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Открыл текстовый файл на чтение. Как после нескольких применений Read, ReadLine или ReadAll снова перейти в начало файла (чтобы снова его Read или ReadLine)?
Например:

Код


Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(sFileName, 1)
'Посчитаем число строк в файле
file.ReadAll
nLines = file.Line
'Подготовим массив для них
ReDim aFileStrings(nLines-1)

'Попытаемся его заполнить
'Хотя это и не получится - указатель то в конце файла :(
i = 0
Do While file.AtEndOfStream <> True
sNextLine = file.ReadLine
aFileStrings(i) = sNextLine
i = i + 1
Loop

Exception

Дата 5.12.2005, 17:04 (ссылка)

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

Загрузка ...

Эксперт

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

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

А там нет такого:

Код


file.Seek(0)

Akina

Дата 5.12.2005, 23:19 (ссылка)

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

Загрузка ...

Советчик

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

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

Ты получаешь TextStream - а поток не перематывается НАЗАД.
Только переоткрытие.

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

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

Rust04

Дата 6.12.2005, 09:14 (ссылка)

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

Загрузка ...

Новичок

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

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

Akina Неудобно.. Т.е. обычно делают так?

Код


Set file = fso.OpenTextFile(sFileName, 1)
file.ReadAll
nLines = file.Line
file.Close
Set file = fso.OpenTextFile(sFileName, 1)
'...
'Работаем с содержимым файла
'...
file.Close

Или есть какие-то хитрости?

Это сообщение отредактировал(а) Rust04 - 6.12.2005, 09:14

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