Обновлять программу или конфигурационный файл?

[kibernetics]

Хайтек!
Стою перед сложной дилеммой. Собираюсь сделать программку. которая будет искать в файле необходимое мне значение, а найденное обрабатывается по определенным правилам. В общем, есл и не сильно мутить, то:
1. есть к примеру массив байт
2. в этом массиве есть файлы, по неизвестным смещениям
3. зная заголовки файлов, хочу искать их в массиве
4. если заголовок будет найден, то выполняется правило с найденным заголовком.
вот небольшое наглядное представление:

тоесть выбираю те расширения которые буду искать и пошел.
а в правой части я могу сам создавать эти правила для поиска, НО! вот в чем вопрос:
Как правильно писать программу, чтоб на каждое расширение(правило) был свой макрос или писать весь код целиком. В последствии я хочу дополнять программу другими правилами, посредством, типа текстового файла. Допустим, изначально известно заголовков штук 20. В процессе исследований, можно накопать еще 20. Нет же смысла обновлять программу? Проще обновить что-то типа файла rules.txt?
Выскажите мнения.

[Nicky]

[Signaturas]
sign1=*.3gp
sign2=*.avi
...
signN=*.iso

[sign1]
Signatura=C8FF32
Shift=4
ByteCnt=2
...
[signN]
...

[kibernetics]

это типа реализовать так во внешнем текстовом файле?

[GB826]

Угу INI файлик или XML
Вот для INI ;о) (с)модуль с этого сайта

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

'declares for ini controlling
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'// INI CONTROLLING PROCEDURES
'reads ini string
Public Function ReadIni(Filename As String, Section As String, Key As String) As String
Dim RetVal As String * 512, v As Long
v = GetPrivateProfileString(Section, Key, "", RetVal, 512, Filename)
ReadIni = Left(RetVal, v)
End Function

'reads ini section
Public Function ReadIniSection(Filename As String, Section As String) As String
Dim RetVal As String * 512, v As Long
v = GetPrivateProfileSection(Section, RetVal, 512, Filename)
ReadIniSection = Left(RetVal, v)
End Function

'writes ini
Public Sub WriteIni(Filename As String, Section As String, Key As String, Value As String)
WritePrivateProfileString Section, Key, Value, Filename
End Sub

'writes ini section
Public Sub WriteIniSection(Filename As String, Section As String, Value As String)
WritePrivateProfileSection Section, Value, Filename
End Sub



[kibernetics]

а может ли кто-нить помочь выдрать frmTaskList из SGrid 2.0?
мне нужна чисто сама реализация такой таблицы. где есть чекбокс и название в grid. тоесть сделать независимую frmTaskList.
опиание и осх брать здесь:
http://www.vbaccelerator.com/home/VB/Co ... rticle.asp
я просто не могу понять, что это за mnuColumn.

[kibernetics]

с mnuColumn разобрался. теперь запарка с iconIndexForKey
блин, посмотрите кто-нить. это же чудейснейший грид-контрол...
может тоже кому-нить пригодится