[Creat0R]

Ошибаешься мой код выдает только 1 сообщение при полном успехе »

Он говорил про мой код, ибо когда он написал своё сообщение, твои два сообщения были пустые

Мне нужно так ,при успехе »

Код:

$sCompare_File = "Compare.ini"
$sSample_File = "Sample.ini"

$aCompare_Sect = IniReadSection($sCompare_File, "HG")
$aSample_Sect = IniReadSection($sSample_File, "HG")

$iComp_Ubound = UBound($aCompare_Sect) - 1
$iSamp_Ubound = UBound($aSample_Sect) - 1

$iUbound = $iComp_Ubound
If $iSamp_Ubound > $iComp_Ubound Then $iUbound = $iSamp_Ubound

If $iComp_Ubound <> $iSamp_Ubound Or $iComp_Ubound <= 0 Then
    MsgBox(48, $sCompare_File, "Данные файла [" & $sSample_File & "] не совпадают", 2); несовпадение массива
    Exit
EndIf

$sCompare = "совпадают"

For $i = 1 To $iUbound
    If $aCompare_Sect[$i][0] & $aCompare_Sect[$i][1] <> $aSample_Sect[$i][0] & $aSample_Sect[$i][1] Then
        $sCompare = "НЕ " & $sCompare
        ExitLoop
    EndIf
Next

MsgBox(64, $sCompare_File, "Данные файла [" & $sSample_File & "] " & $sCompare, 2)
Exit