[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