VPF::Создание |*если его нет*|текстового фала.

Xeim

Дата 20.7.2006, 20:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Нужно создать текстовый файл, если он не существует. Если существует не создавать. Но не допускается записывать в файл лишние строки, как это делает следущий код в первой его части:

Код


 Open FN For Append As 1
   Print #1, ""
  Close 1

 Open FN For Input As 1
Text1.Text = Input(LOF(1), 1)
Close 1

Кроме создание фала нужно еще считать содержимое файла. А если файл существует, то просто считаь. Лишние строки недопустимы.

Подскажите, пожалуйста.

Naghual

Дата 20.7.2006, 20:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

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

Функцией Dir проверяеш существование файла.

Код


    If Dir("E:\test.txt") = "" Then
        ' file does not exist
        Open "E:\test.txt" For Binary Access Write As #1
        Close #1
    End If

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

Я желаю всем Счастья!

Xeim

Дата 20.7.2006, 21:38 (ссылка)

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

Загрузка ...

Бывалый

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

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

Я же акцент делаю на то, чтобы в файл НЕ ДОПИСЫВАЛИСЬ лишнии строки. В твоем варианте так и происходит надеюсь? smile

Xeim

Дата 21.7.2006, 16:13 (ссылка)

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

Загрузка ...

Бывалый

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

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

Все работает. Благодарю!

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