Конференция VBStreets

**xqz_me** » 23.01.2006 (Пн) 23:00

Наверное, тема сто раз обсуждалась, но всё-таки...

Есть массив (размером от 0 до 10000 байт), надо при помощи стандартного диалога Save/Open As
а) при нажатии одной кнопки спасти этот массив в файл, путь и название которого укажет пользователь из этого диалога
б) при нажатии другой кнопки, открыть файл по пути, который укажет пользователь, и записать его в массив.

**GAGArin** » 23.01.2006 (Пн) 23:12

Посмотри тут, тут и тут

**xqz_me** » 23.01.2006 (Пн) 23:28

А так не подскажите?

**Хакер** » 24.01.2006 (Вт) 0:54

Добрый я... Что бы вы без меня делали...

**xqz_me** » 24.01.2006 (Вт) 14:14

Да уж... Спасибо огромное!

**xqz_me** » 24.01.2006 (Вт) 14:46

И ещё один маленький вопросик... Как определить количество символов в открываемом таким способом файле?

**Twister** » 24.01.2006 (Вт) 14:54

Кол-во символов есть размер файла (учитываются все символы включая Chr(13), chr(10) и т.д.). А размер файла у нас определяется с помощью GetFileSize.

Код: Выделить всё: Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

**xqz_me** » 24.01.2006 (Вт) 15:40

И как с этой радостью обращаться?

Код: Выделить всё: MsgBox GetFileSize(CommonDialog.FileName, 10000)

Так ругается на type mismach...

И ещё вопрос... Как в поле Files of type добавить своё расширение и заставлять дописывать его в название файла?

**Twister** » 24.01.2006 (Вт) 15:52

Надо сначала файл открыть, так как в GetFileSize передается дескриптор. Открыть: OpenFile.

Код: Выделить всё: Declare Function OpenFile Lib "kernel32" Alias "OpenFile" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

**Twister** » 24.01.2006 (Вт) 15:54

Но я обычно юзаю CreateFile. Вообщем смотри APIGuide

**xqz_me** » 24.01.2006 (Вт) 15:57

Я его уже в common dialog-e открыл. Посмотри пример Хакера. Зачем его ещёраз открывать? Можно как-нить по-другому?

**GSerg** » 24.01.2006 (Вт) 15:59

Прикалываются люди, что ли...

Люди, вы прикалываетесь? :roll:

filelen() для закрытых файлов, LOF() для открытых...

**Twister** » 24.01.2006 (Вт) 16:01

2 GSerg

Да уж... Привычка, блин - все на АПИ...

**Konst_One** » 24.01.2006 (Вт) 16:01

нет, они ищут приключений на свой код :lol:

**Twister** » 24.01.2006 (Вт) 16:04

Программист легких путей не ищет!... :wink:

**xqz_me** » 24.01.2006 (Вт) 16:11

С этим разобрался. А про это подскажите?

И ещё вопрос... Как в поле Files of type добавить своё расширение и заставлять дописывать его в название файла?

**xqz_me** » 24.01.2006 (Вт) 20:00

И с этим разобрался. Теперь такой вопрос... В конец файла независимо от размеров массива и его содержимого всегда дописываются символы chr(13) и chr(10). Как с этим бороться?

**keks-n** » 24.01.2006 (Вт) 20:18

Открывай For Binary

**alibek** » 24.01.2006 (Вт) 20:24

Как ты сохраняешь?
Если через Print, то ставь в конце точку с запятой.

**xqz_me** » 24.01.2006 (Вт) 20:25

Вроде так и делается. Посмотри код, выложенный хакером.

**alibek** » 24.01.2006 (Вт) 20:27

Не так.

**xqz_me** » 24.01.2006 (Вт) 20:32

Глюк какой-то... Своё предыдущее сообщения я выложил до твоего предыдущего, а получилось наооборот..

Теперь всё нормально, спасибо. А зачем точку с запятой ставить, чтоб нормально работало? Почему сразу нельзя?

**alibek** » 24.01.2006 (Вт) 20:34

Потому что точка с запятой в конце оператора означает не ставить перевод строки (CR + LF).

**keks-n** » 24.01.2006 (Вт) 20:36

Наследие "консольного" вывода в QBasic

**alibek** » 24.01.2006 (Вт) 21:03

Вообще-то это наследие самых первых бейсиков, тех, которые со строками работать не умели.

Конференция VBStreets

Работа с файлами

Работа с файлами

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