[Creat0R]

Код:

Func _FileTheme()
    $FileINI = @ScriptDir & '\Setting.ini'

    $key1 = GUICtrlRead($vInput1)
    $key2 = GUICtrlRead($vInput2)
    $key3 = GUICtrlRead($vInput3)
    $key4 = GUICtrlRead($vInput4)
    $key5 = GUICtrlRead($vInput5)
    $key6 = GUICtrlRead($vInput6)
    $key7 = GUICtrlRead($vInput7)

    $aKeys = StringSplit('BkColor|IconBkColor|IconBkGrdColor|SelectBkColor|SelectRectColor|TextColor|SelectTextColor', '|')
    $sData = ''

    For $i = 1 To $aKeys[0]
        $sVal = Eval('key' & $i)

        If $sVal <> '' Then
            $sData &= $aKeys[$i] & '=' & $sVal & @LF
        EndIf
    Next

    IniWriteSection($FileINI, "TEST", $sData)
EndFunc

как упрощать однотипные переменные и делать с ними действия все вместе? Например, все очистить »

Использовать массив, ну или через Eval/Assign (хотя для разборчивости и оптимизации массивы предпочтительнее).

Впрочем для примера в первом сообщении, я бы сделал так:

Код:

Func _FileTheme()
    $FileINI = @ScriptDir & '\Setting.ini'

    $aKeys = StringSplit('BkColor|IconBkColor|IconBkGrdColor|SelectBkColor|SelectRectColor|TextColor|SelectTextColor', '|')
    $sData = ''

    For $i = 1 To $aKeys[0]
        $sVal = GUICtrlRead(Eval('vInput' & $i))

        If $sVal <> '' Then
            $sData &= $aKeys[$i] & '=' & $sVal & @LF
        EndIf
    Next

    IniWriteSection($FileINI, "TEST", $sData)
EndFunc

[AZJIO]

Код:

Func _FileTheme()
    $FileINI = @ScriptDir & '\Setting.ini'
    Local $sData
    $key1 = GUICtrlRead($vInput1)
    If $key1 Then $sData &= "BkColor=" & $key1 & @LF
    $key2 = GUICtrlRead($vInput2)
    If $key2 Then $sData &= "IconBkColor=" & $key2 & @LF
    $key3 = GUICtrlRead($vInput3)
    If $key3 Then $sData &= "IconBkGrdColor=" & $key3 & @LF
    $key4 = GUICtrlRead($vInput4)
    If $key4 Then $sData &= "SelectBkColor=" & $key4 & @LF
    $key5 = GUICtrlRead($vInput5)
    If $key5 Then $sData &= "SelectRectColor=" & $key5 & @LF
    $key6 = GUICtrlRead($vInput6)
    If $key6 Then $sData &= "TextColor=" & $key6 & @LF
    $key7 = GUICtrlRead($vInput7)
    If $key7 Then $sData &= "SelectTextColor=" & $key7 & @LF
    $sData = StringTrimLeft($sData, 1)
    IniWriteSection($FileINI, "TEST", $sData)
EndFunc   ;==>_FileTheme

[eus_deus]

спасибо всем, ход мысли понял