[Creat0R]

Код:

$sFileName = @ScriptDir & '\Test.ini'
$sSectName = 'Prefs'

$iExists = _IniSectionExists($sFileName, $sSectName)

If $iExists Then
    MsgBox(262144+64, 'OK!', 'Section [' & $sSectName & '] exists in file <' & $sFileName & '>')
ElseIf $iExists = -1 Then
    MsgBox(262144+48, 'Error!', 'File <' & $sFileName & '> was not found')
Else
    MsgBox(262144+48, 'Error!', 'There is no section [' & $sSectName & '] in file <' & $sFileName & '>')
EndIf

Func _IniSectionExists($sIniFile, $sSectionName)
    If Not FileExists($sIniFile) Then
        Return SetError(1, 0, -1)
    EndIf

    IniReadSection($sIniFile, $sSectionName)

    If @error = 1 Then
        Return 0
    EndIf

    Return 1
EndFunc

[eus_deus]

Да, почитал и понял, что неверно немного поставил задачу - записываемая и проверяемая строка не должна существовать и должна быть уникальной по имени в файле. Хотя может я что торможу...Время то позднее

[Creat0R]

почитал и понял, что неверно немного поставил задачу - записываемая и проверяемая строка не должна существовать и должна быть уникальной по имени в файле »

Так в чём проблема, выше я дал функцию которая проверяет в файле существование ini секции, если секция не существует, то и писать не нужно.

Если речь идёт о присвоении секции нового, уникального имени, то можно сделать так:

Код:

$sFileName = @DesktopDir & '\Test.ini'
$sSectName = 'Prefs'

$sUniqueSectName = _IniSectGetUniqueName($sFileName, $sSectName)
MsgBox(64, 'Title', $sUniqueSectName) ;Это и будет новое (уникальное) имя несуществующей секции

Func _IniSectGetUniqueName($sIniFile, $sSectName, $sSep = '_')
    If Not FileExists($sIniFile) Then
        Return SetError(1, 0, $sSectName)
    EndIf

    Local $iC = 0
    Local $sOrigin_SectName = $sSectName
    Local $aSectNames = IniReadSectionNames($sIniFile)

    While 1
        For $i = 1 To UBound($aSectNames)-1
            If $aSectNames[$i] = $sSectName Then
                $iC += 1
                $sSectName = $sOrigin_SectName & $sSep & $iC
                ContinueLoop 2
            EndIf
        Next

        ExitLoop
    WEnd

    Return $sSectName
EndFunc

[eus_deus]

Ошибся, поставив решенной. Итак, код у меня вышел такой, потом пояснения

Код:

Func _prov_unik()
$TFILE=@ScriptDir&'/Setting.ini')
$s_Sect=_GUICtrlEdit_GetLine($Edit2, 0)
If $s_Sect="[Default]" Then
MsgBox(4096, "Ошибка ", "Переименуйте секцию " & $s_Sect )
Return
EndIf
$iExists = _SectionExists($TFILE, $s_Sect)
If $iExists Then
MsgBox(262144+48, 'Ошибка!', 'Секция ' & $s_Sect & ' уже есть в файле ' & $TFILE )
ElseIf $iExists = -1 Then
MsgBox(262144+48, 'Ошибка!', 'Файл' & $TFILE & ' не найден')
Else
MsgBox(262144+64, 'Error!', 'There is no section ' & $s_Sect & ' in file <' & $TFILE & '>')
EndIf
EndFunc

Func _SectionExists($TFILE, $s_Sect)
$TFILE=@ScriptDir&'/Setting.ini')
$s_Sect=_GUICtrlEdit_GetLine($Edit2, 0)
If Not FileExists($TCMFILE) Then
        Return SetError(1, 0, -1)
    EndIf
    IniReadSection($TCMFILE, $s_Sect)
    If @error = 1 Then
        Return 0
    EndIf
    Return 1
EndFunc

Собственно - задача. имя секции, которая стоит в первой строке Edit2, считывается функцией _GUICtrlEdit_GetLine($Edit2, 0). При записи нужна проверка, что секция с таким именем не существует в файле $TFILE=@ScriptDir&'/Setting.ini') и что имя секции - не [Default] (условие этого в коде есть). Понимаю, что выношу всем мозг своим тупизмом, но научится то хочется...

[Creat0R]

имя секции - не [Default] »

В IniReadSection нужно передавать имя секции без скобок.

[eus_deus]

$s_Sect=_GUICtrlEdit_GetLine($Edit2, 0) If $s_Sect="[Default]" Then MsgBox(4096, "Ошибка ", "Переименуйте секцию " & $s_Sect ) Return EndIf »

Default не доходит до inreadsection

[Creat0R]

Default не доходит до inreadsection »

Значит $s_Sect равняется "[Default]", в условии указан Return, который завершает функцию.

Может лучше покажешь весь (рабочий) пример, чтобы было видно где ошибка и что требуется?

[eus_deus]

Creat0R, я ответил на ваш вопрос просто относительно квадратных скобок. С default все верно, так мне и надо. Не работает остальной код

Func _prov_unik() $TFILE=@ScriptDir&'/Setting.ini') $s_Sect=_GUICtrlEdit_GetLine($Edit2, 0) If $s_Sect="[Default]" Then MsgBox(4096, "Ошибка ", "Переименуйте секцию " & $s_Sect ) Return EndIf $iExists = _SectionExists($TFILE, $s_Sect) If $iExists Then MsgBox(262144+48, 'Ошибка!', 'Секция ' & $s_Sect & ' уже есть в файле ' & $TFILE ) ElseIf $iExists = -1 Then MsgBox(262144+48, 'Ошибка!', 'Файл' & $TFILE & ' не найден') Else MsgBox(262144+64, 'Error!', 'There is no section ' & $s_Sect & ' in file <' & $TFILE & '>') EndIf EndFunc Func _SectionExists($TFILE, $s_Sect) $TFILE=@ScriptDir&'/Setting.ini') $s_Sect=_GUICtrlEdit_GetLine($Edit2, 0) If Not FileExists($TCMFILE) Then Return SetError(1, 0, -1) EndIf IniReadSection($TCMFILE, $s_Sect) If @error = 1 Then Return 0 EndIf Return 1 EndFunc »

Ввожу заведомо существующую секцию в текстовое поле ( просто для проверки) и получаю сообщение, что такой секции нет, а должен получать, что она есть

[Creat0R]

Ввожу заведомо существующую секцию в текстовое поле ( просто для проверки) и получаю сообщение, что такой секции нет, а должен получать, что она есть »

Сообщает что нету потому что её нету.
Нужно проверять без скобок:

Код:

$iExists = _SectionExists($TFILE, StringRegExpReplace($s_Sect, '^\[|\]$', ''))

И вообще, не понятно что содержится в $Edit2, поэтому и написал...

Может лучше покажешь весь (рабочий) пример »