#include <Array.au3>
$iNormal = 8
$aBaza = IniReadSection(@ScriptDir & '\test.ini', 'baza')
Dim $aControl[$aBaza[0][0] + 7][8] = [['Key', 'Value1', 'Value2', 'Value3', 'Value4', 'Value5', 'Value6', 'Value7']]
For $i = 1 To $aBaza[0][8]
If StringRegExpReplace($aBaza[$i][0], '[^0-9]', '') == $i Then
$aControl[$i][0] = 'OK'
Else
$aControl[$i][0] = 'Bad'
EndIf
StringReplace($aBaza[$i][1], '<', '')
If @extended <> $iNormal Then
$aControl[$i][1] = 'Bad'
Else
StringReplace($aBaza[$i][1], '>', '')
If @extended <> $iNormal Then
$aControl[$i][1] = 'Bad'
Else
$aControl[$i][1] = 'OK'
EndIf
EndIf
StringReplace($aBaza[$i][2], '<', '')
If @extended <> $iNormal Then
$aControl[$i][2] = 'Bad'
Else
StringReplace($aBaza[$i][2], '>', '')
If @extended <> $iNormal Then
$aControl[$i][2] = 'Bad'
Else
$aControl[$i][2] = 'OK'
EndIf
EndIf
StringReplace($aBaza[$i][3], '<', '')
If @extended <> $iNormal Then
$aControl[$i][3] = 'Bad'
Else
StringReplace($aBaza[$i][2], '>', '')
If @extended <> $iNormal Then
$aControl[$i][3] = 'Bad'
Else
$aControl[$i][3] = 'OK'
EndIf
EndIf
StringReplace($aBaza[$i][4], '<', '')
If @extended <> $iNormal Then
$aControl[$i][2] = 'Bad'
Else
StringReplace($aBaza[$i][4], '>', '')
If @extended <> $iNormal Then
$aControl[$i][4] = 'Bad'
Else
$aControl[$i][4] = 'OK'
EndIf
EndIf
StringReplace($aBaza[$i][5], '<', '')
If @extended <> $iNormal Then
$aControl[$i][5] = 'Bad'
Else
StringReplace($aBaza[$i][5], '>', '')
If @extended <> $iNormal Then
$aControl[$i][5] = 'Bad'
Else
$aControl[$i][5] = 'OK'
EndIf
EndIf
StringReplace($aBaza[$i][6], '<', '')
If @extended <> $iNormal Then
$aControl[$i][6] = 'Bad'
Else
StringReplace($aBaza[$i][6], '>', '')
If @extended <> $iNormal Then
$aControl[$i][6] = 'Bad'
Else
$aControl[$i][6] = 'OK'
EndIf
EndIf
StringReplace($aBaza[$i][7], '<', '')
If @extended <> $iNormal Then
$aControl[$i][7] = 'Bad'
Else
StringReplace($aBaza[$i][7], '>', '')
If @extended <> $iNormal Then
$aControl[$i][7] = 'Bad'
Else
$aControl[$i][7] = 'OK'
EndIf
EndIf
StringReplace($aBaza[$i][8], '<', '')
If @extended <> $iNormal Then
$aControl[$i][8] = 'Bad'
Else
StringReplace($aBaza[$i][8], '>', '')
If @extended <> $iNormal Then
$aControl[$i][8] = 'Bad'
Else
$aControl[$i][8] = 'OK'
EndIf
EndIf
Next
_ArrayDisplay($aControl)