Что нового

Проверка строчек в INI файле

Centrinar

Новичок
Сообщения
100
Репутация
1
Есть ИНИ файл типа:

[baza]
test1=<текст><текст><текст><текст><текст><текст><текст><текст>
.....

test19=<текст><текст><текст><текст><текст><текст><текст><текст>
......

Необходимо что бы скрипт проверял его на правильность т.е. что бы все строчки были попорядку и без повторов (test1, test2 ...) и кол-во <> в строчке было 8. СПАСИБО!
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Centrinar
Может так попробовать?
Код:
#include <Array.au3>

$iNormal = 8
$aBaza = IniReadSection(@ScriptDir & '\test.ini', 'baza')

Dim $aControl[$aBaza[0][0] + 1][2] = [['Key', 'Value']]
For $i = 1 To $aBaza[0][0]
	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
Next
_ArrayDisplay($aControl)
 
Автор
C

Centrinar

Новичок
Сообщения
100
Репутация
1
Код:
#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)

Гдето у меня ошибка :scratch:
 
Верх