Может найдешь что тебе именно нужно:
Код:
;~ Условия поиска
$Sect="Имя_секции"
$Param="Имя_параметра"
$Val="Значение_параметра"
$File="Имя_файла"
If Not FileExists($File) Then Exit 1
;~ Поиск по имени секции
$SecList=IniReadSectionNames($File)
For $i=1 To $SecList[0]
If $SecList[$i]=$Sect Then MsgBox(0,"","Секция "&$Sect&" существует")
Next
;~ Поиск по имени параметра в любой секции
$SecList=IniReadSectionNames($File)
For $i=1 To $SecList[0]
$ParList=IniReadSection($File,$SecList[$i])
For $y=1 To $ParList[0][0]
If $ParList[$y][0]=$Param Then MsgBox(0,"","Параметр "&$Param&" существует в секции "&$SecList[$i])
Next
Next
;~ Поиск по значению параметра в любой секции
$SecList=IniReadSectionNames($File)
For $i=1 To $SecList[0]
$ParList=IniReadSection($File,$SecList[$i])
For $y=1 To $ParList[0][0]
If $ParList[$y][1]=$Val Then MsgBox(0,"","Значение "&$Val&" существует в параметре "&$ParList[$y][0]&", секции "&$SecList[$i])
Next
Next
;~ Поиск по имени секции и параметра
If IniRead($File,$Sect,$Param,"А вот и нет такого параметра")<>"А вот и нет такого параметра" Then MsgBox(0,"","Параметр "&$Param&" существует в секции "&$Sect)
;~ Поиск по имени секции, параметра и значения
If IniRead($File,$Sect,$Param,"А вот и нет такого параметра")=$Val Then MsgBox(0,"","Значение "&$Val&" существует в параметре "&$Param&", секции "&$Sect)
