CFile - класс для работы с файлами

[hCORe]

Класс для работы с файлами - CFile. Для отправки на "Кирпичный завод"...
Версия - самая предварительная.

Позволяет удобно читать данные разных форматов из файла. Возвращает атрибуты. Запись в файл будет реализована немного позже. Потестируйте и скажите, что можно улучшить, т.к. класс сырой:
<удалено. Загрузка - ниже>

[alibek]

Хорошо бы добавить управление контентом файла - записать данные, считать данные (они есть) и обрезать файл до нужной длины.

[alibek]

Кроме того, неплохо добавить ряд функций или методов, чтобы работать с именем файла.
Скажем:
fileRoot - привод, на котором размещен файл
filePathFull - полный путь к файлу
filePath() - индексированная проперть из папок, на пути к файлу; с индексом 0 корневая и далее
fileFileName - имя файла
fileFileExt - расширение файла

[KDima]

Крутая весЧ!
Гы!
Гу!
Тока нехватает иногда считывать имена всех файлов в папке.
Нет! Я знаю про DIR, lstFiles.List!
Но имхо это гимор!

[hCORe]

Спасибо Завтра выложу обновленную версию. А как там с оптимизацией процедуры I_BytesAsStruct? Я знаю, что можно не делать строку, а оставить байтовый массив. Но тогда CopyMemory выдает random'ные результаты

[hCORe]

И еще. Предположим, я напишу процедуру InputBytes(Pos As Long, n As Long, arr() As Byte) которая принимает позицию файла и количество байт для чтения, а возвращает в заданный массив arr() нужное количество байт. И буду использовать эту функцию в методах I_BytesAsStr, I_BytesAsArr и I_BytesAsStruct вместо использования функции InputByte. Ускорится ли чтение и насколько? Стоит ли игра свеч?

Последнее. Не написать ли расширенную обертку для Private-функции InputToDelim которая читает данные из файла до достижения определенного символа?

[hCORe]

Про индексацию файлов в папке: я сделаю класс-обертку CDirectoryInfo, если будет время
А валить всё нужное в одну кучу как-то некультурно

[tyomitch]

Спасибо Завтра выложу обновленную версию. А как там с оптимизацией процедуры I_BytesAsStruct? Я знаю, что можно не делать строку, а оставить байтовый массив. Но тогда CopyMemory выдает random'ные результаты

А где там байтовый массив? Я вижу только байтовую функцию
Но в любом случае, создать сразу строку нужной длины и заполнять через Mid - будет быстрее, чем наращивать посимвольно.

[hCORe]

А где там байтовый массив? Я вижу только байтовую функцию

Я имел в виду: не писать все в строку, а воспользоваться реаизацией из метода I_BytesAsArr:

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

On Error Resume Next
    Dim l As Long
    If ByteCount = 0 Then ByteCount = I_Length - SeekPos
    For l = 0 To ByteCount - 1
        DoEvents
        arr(l) = I_Byte(SeekPos + l)
    Next l

Но тогда CopyMemory выдает рандомные результаты

[tyomitch]

Я не понимаю
Покажи, какой именно код выдаёт рандомные результаты? Может, ты где-нибудь ByVal пропустил?

[hCORe]

15.02.2005 (завтра) вечером (в СПб) покажу

[hCORe]

Вот и вечер наступил
Добавил функции для работы с путем в файле. Распознают UNC-пути Плюс - улучшенная и ускоренная работа.

Вот новая версия:
<опять порезано>

[|kerish|]

Добавь процедуру удаления файла, если он защищен от записи.
Что-то типа:

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

Public function KillFile (Filename as string, ForceKill as Boolean) as boolean
On Error Resume Next
If ForceKill = True Then SetAttr FileName, vbNormal
Kill Filename
If dir(filename) = "" then Killfile = True
End Function


[|kerish|]

Добавь функцию переименования файла.

[hCORe]

Почти все сделал. Потестируйте, посмотрите, что еще можно сделать/улучшить. Вот и новая версия:
<Удалено. Качаем ниже >

[marvan]

1. On Error Resume Next - не не годится. В таких классах нужна более грамотная обработка ошибок.
2. Нет комментариев к процедурам и функциям. Если ты класс для себя написал, тогда зачем выкдадываеш?
3. Это не класс, а мешанина. Должны быть отделные классы:
- атрибутов файла
- чтения/записи
- создания/копирования/удаления
4. Всё это уже сделано.

[BV]

2 hCORe

Неплохо...

Вот только On Error Resume Next ты всё же зря использовал, ведь мало ли что

[hCORe]

1. On Error Resume Next - не не годится. В таких классах нужна более грамотная обработка ошибок.
2. Нет комментариев к процедурам и функциям. Если ты класс для себя написал, тогда зачем выкдадываеш?
3. Это не класс, а мешанина. Должны быть отделные классы:
- атрибутов файла
- чтения/записи
- создания/копирования/удаления
4. Всё это уже сделано.

1. А ты хочешь, чтобы класс инициировал ошибки через Err.Raise по информации от LastDllError? Мне, например, в сотню раз удобнее, когда на выходе у меня могут быть только данные или отсутствие оных. А если на выходе ошибка - это менее удобно (для меня.)
2. Будут (честное пионЭрское!)
3. А мне удобнее так. Просто потому что.
4. Угу. Ты про FSO? Так он не на каждом компе работает. А свое, родное душу греет

[BV]

А ты хочешь, чтобы класс инициировал ошибки через Err.Raise по информации от LastDllError?

Ну отчего именно Err.Raise? Лично я имел ввиду что-то вроде необязательной переменной в функции, которая в случае ошибки принимала бы значение False или 0...

Можно сделать ErrArray(5) As Boolean, где в случае разных ошибок делать выше указанное.

P.S.
Небольшая рекомендация.

Лучше пиши все API функции в одну строку:

1. Место сэкономишь
2. Код будет выглядеть профессионально

[marvan]

1. А ты хочешь, чтобы класс инициировал ошибки через Err.Raise по информации от LastDllError? ...

да, именно так. Потому как класс должен отвечать за свои ошибки, а не тот кто этот класс вызывает.

3. А мне удобнее так. Просто потому что.

ну вот, а мне (и может ещё кому) так не удобнее. Например у тебя есть функции чтения/записи файла. Я бы использовал их, но зачем мне в коде два класса, возвращающие расширение файла?

4. Угу. Ты про FSO?

не, не fso.
Я про классы, всё выше описанное реализующие. Которые успели наплодить программисты за всё время существования VB. Остаётся только выбрать лучший.

[hCORe]

1. А ты хочешь, чтобы класс инициировал ошибки через Err.Raise по информации от LastDllError? ...

да, именно так. Потому как класс должен отвечать за свои ошибки, а не тот кто этот класс вызывает.

3. А мне удобнее так. Просто потому что.

ну вот, а мне (и может ещё кому) так не удобнее. Например у тебя есть функции чтения/записи файла. Я бы использовал их, но зачем мне в коде два класса, возвращающие расширение файла?

4. Угу. Ты про FSO?

не, не fso.
Я про классы, всё выше описанное реализующие. Которые успели наплодить программисты за всё время существования VB. Остаётся только выбрать лучший.

1. Предлагаю следующую схему - у класса есть методы E_Attach и E_Detach. Первый "прикрепляет" класс-обработчик ошибок (реализующий интерфейс IFileAccessError), которому и передается информация (все данные, а не только LastDllError) при обнаружении ошибки. Второй "открепляет" обработчик. И если обработчика нету, то класс просто выдает на выход пустую строку, пустой массив байтов, незаполненную структуру...
3. Тебе удобнее так - ты так и делай А про "классы, возвращающие расширение файла" я не понял. Там есть методы, работающие с именем текущего файла
4. А ты уже выбрал? Посоветуй и мне, буду рад несказАнно.

[hCORe]

Новая версия класса для работы с файлами!

- устранена ошибка в функции InputToDelim. Теперь она работает правильно - не завершается преждевременно;
- появилась полноценная расширяемая обработка ошибок (см. мой предыдущий пост)!

Вот он, CFile 0.6.0:
<убит. Качаем еще ниже %)>

[hCORe]

Ну и, конечно, появились краткие комментарии в коде классов и модулей

[hCORe]

Новая версия класса - 0.7.5. Главное отличие от 0.6.0 - корректная работа с длинными именами файлов (более 128 символов пути). Качаем:

[BV]

2 hЯДРо

Главное, что с комментариями

[hCORe]

А еще скоро будут туториалы

[Wasup!]

Выложите, пожалуйста, сюда последную версию класса. Хочется посмотреть. Или отправьте на почту.

[Viper]

А в кирпичах, тут http://bbs.vbstreets.ru/viewtopic.php?t=13805 не смотрел?