Сохранение в фаил

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
TONGIL
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 17.12.2005 (Сб) 13:02
Откуда: Russia

Сохранение в фаил

Сообщение TONGIL » 05.01.2006 (Чт) 13:55

Здравствуйте!!Скажите пожалуйста,нужно чтобы при совпадающим имени выскакивало окно,что такой фаил существует,сохранить в данном файле или нет.Это вроде стандартная функиця,но никак не могу ее найти.
Заранее большое спасибо

Vinechka
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 381
Зарегистрирован: 10.05.2005 (Вт) 4:07
Откуда: Москва

Re: Сохранение в фаил

Сообщение Vinechka » 05.01.2006 (Чт) 14:11

Код: Выделить всё

If len(dir(path_to_file)) > 0 then
    If MsgBox("File already exists. Overwrite this file?", vbYesNo, "That's the question") = vbYes Then
        'здесь код сохранения в файл с перезаписью содержимого
        'ибо так захотел юзверь
    else
        'перезаписывать не надо
    End If
End if

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 05.01.2006 (Чт) 14:19

Используй FileLen...
Например тупо:

Код: Выделить всё
On Error Resume Next
nLen = FileLen("MyFile.txt")
If nLen > 0 Then
     MsgBox "Файл существует"
Else
     MsgBox "Нет такого файла"
End If
То, что для одних константа, для других только переменная...

HotKitten
Дятил
Дятил
Аватара пользователя
 
Сообщения: 400
Зарегистрирован: 24.01.2005 (Пн) 21:48
Откуда: из дома

Сообщение HotKitten » 06.01.2006 (Пт) 2:06

Один из способов проверить существование файла, это открыть его на чтение, и проверить флаг ошибки. Если файл не существует, то будет сгенерирована ошибка.
Функция 'Dir$' выполняет туже самую задачу. 'Dir$' вернёт точное имя файла, если он существует, либо пустую строку, если такого файла нет. Например:

If Dir$("C:\WINDOWS\WIN.INI") <> "" Then
'file Win.ini exists!
Else
'file Win.ini does not exist!
End If
Изображение

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 06.01.2006 (Пт) 2:56

TONGIL писал(а):Это вроде стандартная функиця,но никак не могу ее найти.


flags в OPENFILENAME = OFN_OVERWRITEPROMPT
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

DirectXManiac
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1543
Зарегистрирован: 03.11.2005 (Чт) 13:32
Откуда: из DirectX SDK

Сообщение DirectXManiac » 06.01.2006 (Пт) 3:38

Я всегда делаю так

Public Function Exist(File As String) As Boolean
Dim free as integer
free = FreeFile
On Error GoTo Err
Open File For Input As Free
Close Free
Exist = True
Exit Function
Err:
Exist = False
End Function
#define ROFL 0xDDDD

DirectXManiac
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1543
Зарегистрирован: 03.11.2005 (Чт) 13:32
Откуда: из DirectX SDK

Сообщение DirectXManiac » 06.01.2006 (Пт) 3:40

Просто и ясно! Если я конечно правильно понял вопрос TONGIL хочет проверить существует ли файл, так?
#define ROFL 0xDDDD

Kostyan
Постоялец
Постоялец
 
Сообщения: 439
Зарегистрирован: 20.09.2002 (Пт) 4:14
Откуда: Россия, Уссурийск

Сообщение Kostyan » 07.01.2006 (Сб) 8:48

Он наверное уже ничего не хочет :)
Нет ничего невозможного для человека с интеллектом.

TONGIL
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 17.12.2005 (Сб) 13:02
Откуда: Russia

Сообщение TONGIL » 10.02.2006 (Пт) 8:15

Большое спасибо со всем разобрался,только вот небольшие проблемы с проверкой существования фаила.....

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 10.02.2006 (Пт) 8:55

TONGIL, пользуйся поиском. Нашел за 5 секунд.

http://bbs.vbstreets.ru/viewtopic.php?t ... 2%D3%C5%D2

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 10.02.2006 (Пт) 12:51

Odrick писал(а):Используй FileLen...
Например тупо:

Код: Выделить всё
On Error Resume Next
nLen = FileLen("MyFile.txt")
If nLen > 0 Then
     MsgBox "Файл существует"
Else
     MsgBox "Нет такого файла"
End If

Odrick, а разве не бывает файлов нулевой длинны? Другое дело, что его пожно переписывать не опасаясь за содержимое :lol: , но все же...
А я все практикую лечение травами...

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 10.02.2006 (Пт) 13:00

Э-э-э. Гм, ты прав, однако :)
То, что для одних константа, для других только переменная...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 118

    TopList