Предлагаю на суд класс работы с ini

[SLIM]

и какое это отношение имеет к этому топику?

[Хакер]

Zenitchik
Это зависит от того, чем сохранялся txt.

SLIM
Прямое. Вам бы с Zenitchik'ом скооперироваться, и заняться упражнениями с КА вместе.

Всё равно это то, что, что я тебе собрался написать.

[Денис]

Zenitchik
в txt строки разделены так, как их разделил редактор (или программа), создавший этот txt. Если говорить о например редакторе AkelPad, то там можно самому произвольно переключаться между vbNewLine и Chr(13). А VB, как и блокнот, конечно же пишет vbNewLine (Chr(10) + Chr(13))

[alibek]

Не <10><13>, а <13><10>. Это стандарт в Windows.
В *nix-системах используется <10>.
Какие фантазии пришли в голову разработчикам AkelPad я не знаю, но <13> не является стандартным разделителем строк.

[Хакер]

Денис
Обязательно надо повторять то, что сказал я, дополняя сведениями с ошибками?

alibek
AFAIK, на маках <13> является стандартным разделителем.

[SLIM]

Всё равно это то, что, что я тебе собрался написать.

Ты обещал написать свой вариант.....мы ж вроде договаривались.....

[Хакер]

Так напишу. Просто так бы тебе было быстрее.

[SLIM]

Наоборот, если напишешь мне будет легче понять то что указано в ссылке

[SLIM]

Хакер:

Вообще, у тебя какая-то помесь ООП-а с ПОП-ом.

Что-то я почитал почитал и немного запутался.
Если я хочу дать возможность сделать так:

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

MyIni.Sections.("sss").AddKey"sss","333"

или так

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

Dim MySect As CSection

Set MySect = myIni.Sections("MySect")

MySect.AddKey "Weight", "900kg"
MySect.AddKey "Voltage", "380V"
MySect.AddKey "Protection", "IP20"

Set MySect = Nothing

То я уже создаю не один, а два модуля класса? Один myIni, другой Sectons, и из одного вызываю другой...что-то запутался.
Есть класс,на основе него есть объект, в нем метод, этот метот он же и объект, кторый имеет методы и т.д. до неизвестной границы. Это все реализовывается в одном модуле класса или в разных.
Тогда сколько нужно будет модулей если я вдруг зохочу сделать более расширенно(например еще и для ключей)....Как это вообще реализовывается?

[Хакер]

Как это вообще реализовывается?

Класс CIniFile
Класс CIniSection
(Опционально класс CIniSections).

У CIniFile есть свойство Sections
оно As Collection, или, если ты стал делать CIniSections -- то As CIniSections

Внутри CIniSection твой AddKey и т.д.

Но, имхо, ещё потребуется CIniKey, чтобы внутри CIniSection свойство Keys.

Тогда можно будет писать

myIni.Sections("settings").Keys("volume") = "100db"

А если сделать свойства Sections и Keys как свойства по-умолчанию, так вообще:

myIni("settings")("volume") = "100db"

Тогда сколько нужно будет модулей если я вдруг зохочу сделать более расширенно(например еще и для ключей)....

Уменьшение количества модулей -- это не то, к чему нужно стремиться.

[SLIM]

Уменьшение количества модулей -- это не то, к чему нужно стремиться.

Я не об этом. Просто если кто-то будет этим пользоваться, то ему придется подллючать 1, 2 , 3 , 4 ....т.д. модулей. Кому оно надо? Я согласен что это удобнее, но и ресурсов больше и т.д. Самому программисту не удобно ведь.
получаем
1. Класс для работы с ini
2.Класс для работы с секциями
3.Класс для работы с ключами

и.т.д

Что-то мня все это ведет к созданию Dll....или я ошибаюсь?

[Хакер]

Просто если кто-то будет этим пользоваться, то ему придется подллючать 1, 2 , 3 , 4 ....т.д. модулей.

Ну и что? Нет ничего сложного в подключении 4 модулей.

Я согласен что это удобнее, но и ресурсов больше и т.д.

Каких ресурсов?

Самому программисту не удобно ведь.

Да удобно ему, удобно. Его же не 20 модулей подключать заставляют, а всего-то 4.

1. Класс для работы с ini
2.Класс для работы с секциями
3.Класс для работы с ключами

Фраза "Класс для работы с" must die в виду своей кривости, неправильности и неполности.

Класс представляющий секцию, класс представляющий ключ -- ещё допустимо, но тоже криво.

Что-то мня все это ведет к созданию Dll....или я ошибаюсь?

Как хочешь, можешь и Dll содзать. В виду того, что подобная библиотека вряд-ли нуждается в публичных креатабельных классах, рекомендую для её создания воспользоваться моим NativeDLL, экспортировать одну единственную функцию OpenIni, возвращающую объект класса CIniFile, а все классы сделать Public not creatable.

Будет идельно. (И даже регистрация такой библиотеке не потребуется).

Но вообще, я бы пока не брался делать dll на твоём месте.

[SLIM]

Хорошо, такой вопрос. В каком модуле что будет обрабатываться
если мы пишем

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

Dim MySect As Section

Set MySect = myIni.Section("MySect")

MySect.AddKey "Weight", "900kg"
MySect.AddKey "Voltage", "380V"
MySect.AddKey "Protection", "IP20"

Значит мы объявили myIni и Section
в строке Set MySect = myIni.Section("MySect") мы передаем объект по Proerty Set в модуле Section.....и передаем мы myIni.Section("MySect"), а это уже свойство модуля myIni Property Get....Тогда метод AddKey будет в модуле Section? Или где? Вот что я понять не могу. Где какаой метод или свойство будет находиться....

[Хакер]

Значит мы объявили myIni и Section
в строке Set MySect = myIni.Section("MySect") мы передаем объект по Proerty Set в модуле Section.....и передаем мы myIni.Section("MySect"), а это уже свойство модуля myIni Property Get....Тогда метод AddKey будет в модуле Section? Или где? Вот что я понять не могу. Где какаой метод или свойство будет находиться....

В целом, глупость какая-то. Где объявишь метод, там он и будет находиться

[SLIM]

Значит я не прально спросил. Если в Section есть метод AddKey, то нужно
знать куда обавлять. Ну допустим в массив секций/ключей, но он то у меня в ClsIni.......

[Хакер]

В Sections нет методов, Sections это Public-свойство, являющееся объектное-переменной-ссылкой, ссылающейся на коллекцию объектов класса CSection.

Ну допустим в массив секций/ключей, но он то у меня в ClsIni.......

Ничего не понял.

[SLIM]

Ясно.....в этом плане я безнадежен......пойду вырью ртути и почитаю ООП, если найду чтонть в нете для VB

[Zenitchik]

SLIM
Госпади... Давно бы книжку по VB купил - любую, у них у всех КПИ порядка 50% (замечено, что чем дешевле книга - тем КПИ выше )

[SLIM]

Госпади... Давно бы книжку по VB купил

Да у меня их куча. Причем как в электронном виде так и в классическом. Правда в электронном больше по .NET...

[Zenitchik]

И что, де осознали, как работать с классами? Не бойтесь, придет с опытом. Главное - пробовать.

[SLIM]

Опыт- это наверное одно из самого важного в программировании. Не самое главное знать операторы, функции, процедуры, типы и т.д......Главное нароботать опыт в работе со всем этим. А потом понять, как Хакер как это делается на низком уровне и узнать как это сделать проще......

[Денис]

alibek
Хакер
Я перепутал местами 10 и 13. Конечно же #10 в никсах. и #13#10 в винде.

[Ramzes]

Денис
а не 10 13 часом?

[Хакер]

Ramzes
http://bbs.vbstreets.ru/viewtopic.php?p=6696287#6696287

[Zenitchik]

Ага. А я тоже делал Asc(vbNewLine) и Asc(Mid(vbNullLine,2)) )
Получилось 13 и 10 соответственно.
Под DOS я имел дело только с #13, который был знаком возврата каретки (== Enter).