Работа с INI (удаление ключа, зная только секцию и значение)

[Tok]

Всегда использую один и тот же модуль для работы с INI-файлами (в аттаче). И вот появилась необходимость удалять ключи (со значениями), зная только секцию, в которой он находится и его значение. Сотворить данное дело не получается...
Просьба помочь. Спасибо!

[GSerg]

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

[Tok]

И как это сделать? Классом, предложенным GSerg я не пойму как.

a.StringValue("Проверка", "Значение 1") = vbNullString 'не получается

Помогите!

[GSerg]

А, значение!
Так получай все ключи через values и ищи нужное. Перебором.

[Tok]

А, значение!
Так получай все ключи через values и ищи нужное. Перебором.

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

Я конечно теоритически представляю что это можно сделать перебором, но никогда такого не делал, поэтому в замешательстве...

пример ini-файла:

-----------------
;Ключи неизвестны - поэтому "x"

[Секция]

x=Значение 1
x=Значение 2
x=Значение 3

-------------------

Вот. Нужно например убрать из секции всю строчку со "Значение 2". Это, как я понимаю, считываем все ключи со значениями (с данной секции), проверяем какой ключ равен "Значение 2" и удаляем все это дело стандартным методом.
Но как это все сообразить в vb (уже голова болит)?

Если кому не сложно - подскажите.

Спасибо за внимание!

[GSerg]

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

dim a as variant, i as long, p as long

with new ini
  .file="file.ini"
  a=.values("секция")
  for i=lbound(a) to ubound(a)
    p=instr(1,a(i),"=")
    if mid$(a(i),p+1)="значение 2" then .stringvalue("секция", left$(a(i),p-1))=vbnullstring:exit for
  next
end with

[alibek]

Попробуй использовать класс из аттача.
Написал давно и время от времени до сих пор использую. Есть два метода, Sections_Get и Keys_Get, которые считывают все секции и параметры (в массив), можешь использовать их, а можешь использовать методы KeyList*, указывая индекс.

[Tok]

2GSerg
Спасибо! Работает!

2alibek
Попробую. Спасибо!