сверить TXT по шаблону

[SergiOD]

Здравствуйте!

Открываем TXT файл (AssignFile).
Файл имеет структуру типа:
строк может быть сколько угодно, но каждая строка должна иметь 5 знаков ; (semicolon) и в конце строки он стоит обязательно.

123; 4566; afds; 312; 53;
654; er; qw; ewrewreww; 5;

Помогите проверить условие:
Если хотя бы в одной строке (из возможного множества) количество знаков не равно 5-ти и условие нахождения одного знака в конце строки не выполнено, то файл не соответствует по формату.

[Johnson]

пусть S - строка.
вариант 1:

for I:=length(s) downto 1 do begin
if s[I]<>';' do delete(s,I,1);
end;
if length(s)>5 then {не соответствует}

вариант 2:

var
x:integer;
.............
x:=0;
for I:=1 to length(s) do begin
if s[I]=';' then inc(x);
end;
if x<>5 then {не соответствует}

и далее в том же духе.

а вобще... ошибку было бы лучше определять во время парсинга строк...

while pos(';',s)>0 do begin
s1:=copy(s,1,pos(';',s)-1);
delete(s,1,pos(';',s));
if pos(';',s)=0 then {error}{после каждого удаления, кроме последнего}
s2:=copy(s,1,pos(';',s)-1);
delete(s,1,pos(';',s));
{и тд} 
end;

варианты взяты из ума, на скорую руку и без компилятора... возможны синтаксические ошибки или болеепростые способы.

[Sibedir]

Ну, как вариант.
Давно как-то делал програмку, там был поиск подстроки со * и ?.

type
  TRequiredStr = array of string;

function CreateRequiredStr (AStr: String): TRequiredStr;
var
  i: Integer;
  FResult: TRequiredStr;
  rabS: String;
  c: Char;

  function CountResult: Integer;
  begin
    CountResult := Length (FResult);
  end;

begin
  SetLength (FResult, 0);

  rabS := '';
  for i := 1 to Length (AStr) do begin
    c := AStr [i];
    if c = '?' then begin
      if rabS <> '' then begin
        SetLength (FResult, CountResult + 1);
        FResult [CountResult-1] := rabS;
        rabS := '';
      end;
      SetLength (FResult, CountResult + 1);
      FResult [CountResult-1] := '?';
    end
    else begin
      if c = '*' then begin
        if rabS <> '' then begin
          SetLength (FResult, CountResult + 1);
          FResult [CountResult-1] := rabS;
          rabS := '';
        end;
      end
      else begin
        rabS := rabS + c;
      end;
    end;
  end;

  if rabS <> '' then begin
    SetLength (FResult, CountResult + 1);
    FResult [CountResult-1] := rabS;
  end;

  Result := FResult;
end;

function FindText (ARequiredStr, AStr: String): Boolean;
var
  i, j: Integer;
  RequiredStr: TRequiredStr;
  rabS: String;
begin
  Result := True;
  RequiredStr := CreateRequiredStr (ARequiredStr);
  for i := 0 to Length (RequiredStr)-1 do begin
    rabS := RequiredStr [i];
    if rabS = '?' then begin
      if AStr = '' then begin
        Result := False;
        Break;
      end;
      Delete (AStr, 1, 1);
    end
    else begin
      j := Pos (rabS, AStr);
      if j > 0 then begin
        Delete (AStr, 1, j + Length (rabS) - 1);
      end
      else begin
        Result := False;
        Break;
      end;
    end;
  end;
end;

Использовать в этом случае можно вот так

  ...
  s1 := '?*;?*;?*;?*;?*;';
  s2 := ';*;*;*;*;*;';
  s3 := '?*;?*;?*;?*;?*;?';
  if (FindText (s1, stroka)) and
     (not FindText (s2, stroka)) and
     (not FindText (s3, stroka)) then
    ShowMessage ('Годится')
  else
    ShowMessage ('Не годится');
  ...

[SergiOD]

Попробую - отпишусь, спасибо!