Помогите пожалуйста работой с ini файлами!!!!!!!!!!!!!!!!

[Mainland]

Для этого уществуют API-функции
GetPrivateProfileInt
GetPrivateProfileString
WritePrivateProfileString
GetPrivateProfileSection
Они все для записи и для чтения, но нет ни одной для удаления всей секции или отдельных параметров в ней.
Например содержание ini файла:

[URL]
Yandex=www.yandex.ru
[DOC]
Документ1=C:\doc1.doc
Документ2=C:\doc2.doc

Каим образом мне удалить например всю секцию URL с параметром?
И как мне в секции DOC удалить параметр Документ2=C:\doc2.doc ?
Есть такие API-функции, или может есть еще более-менее простой способ?

[RayShade]

Да просто. Считал весь файлв строку, удалил нужную строку replace и записал обратно.

[Mainland]

RayShade можешь небольшой примерчик (как это сделать) показать?

[FaKk2]

RayShade можешь небольшой примерчик (как это сделать) показать?

А потыкать?

ЗЫ: По хорошему надо примерчик дать, но че то лень мне

[RayShade]

Ну типа хотя и лень мне и вообще, я не приветствую такие примеры давать...

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

with new scripting.filesystemobject
st = replace(.getfile("c:\1.ini").openastextstream(forreading).readall,"Документ2=C:\doc2.doc","",,,vbtextcompare)
.getfile("c:\1.ini").openastextstream(forwriting).write st
end with


[ANDLL]

Хоть меня не кто и не спрашивал...

На мой взгляд удалить параметр проще, используя API:

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

WritePrivateProfileString lpApplicationName,lpKeyName, 0&,lpFileName


[Mainland]

ANDLL используя твой пример, что получается:
Например я хочу удалить параметр Документ1=C:\doc1.doc из вышепоказанного примера.
Пишу: WritePrivateProfileString "DOC", "Документ1", 0&, App.Path & "\Required\file.ini"
В итоге получаю: Документ1=0 Или я что не пойму?
Мне это не надо, мне надо удалить весь параметр, а не присвоить ему значение 0. Тем более предложенный тобой вариант не может удалить всю секцию [DOC] c параметрами.
Вот удобно из VB работать с реестром, хочешь удаляй, хочешь пиши. При работе с ini только пиши, изменяй, читай, но удалять никак.

[Mainland]

RayShade я начинающий программатор и не совсем понял:

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

with new scripting.filesystemobject

это что? и соответственно не понял

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

openastextstream(forreading).readall

[GSerg]

но удалять никак.

Ой ли?

[Mainland]

GSerg Спасибо ОГРОМЕННОЕ! Настоящий друг!