Раскрасить строки

[Aleksandr H.]

Serge_Bliznykov алгоритмом/исходником поделитесь?

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Serge_Bliznykov алгоритмом/исходником поделитесь?

так это на Delphi сделано.
Ничего?

Тогда - легко!

Алгоритм (если это можно назвать "алгоритмом" ) - это простейший автомат (с переходами по совпадению с ключевыми значениями).

вот так это выглядит в коде:

procedure CopyRange(var TSFrom, TSTo : TStringList; FromIndex, ToIndex : integer);
var i : integer;
begin
  for i := FromIndex to ToIndex do TSTo.Append(TSFrom.Strings[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var TS, TSNew : TStringList;
  sFind : string;
  i, BegDoc : integer;
  isFound : boolean;
begin
  if trim(edInputFile.Text)='' then begin
     Application.MessageBox('Укажите имя входного файла','Ошибка ввода данных', MB_ICONERROR or MB_OK );
     exit;
  end;
  if trim(edINN.Text)='' then begin
     Application.MessageBox('Укажите ИНН для поиска','Ошибка ввода данных', MB_ICONERROR or MB_OK );
     exit;
  end;
  if trim(edOutputFile.Text)='' then begin
     Application.MessageBox('Укажите имя выходного файла','Ошибка ввода данных', MB_ICONERROR or MB_OK );
     exit;
  end;
  if Not FileExists(edInputFile.Text) then begin
     Application.MessageBox('Укажите имя существующего файла','Ошибка ввода данных', MB_ICONERROR or MB_OK );
     exit;
  end;

  TS := TStringList.Create;
  TS.LoadFromFile(edInputFile.Text);
  TSNew := TStringList.Create;

  mmLog.Lines.Clear;
  mmLog.Lines.Append('Начата обработка файла '+edInputFile.Text+' поиск ИНН='+edINN.Text);
  isFound := false;
  BegDoc := 0;
  sFind := AnsiUpperCase('ПлательщикИНН='+trim(edINN.Text));

  for i := 0 to TS.Count - 1 do begin
    if Copy(AnsiUpperCase(TS.Strings[i]),1,15)='СЕКЦИЯДОКУМЕНТ=' then begin
      if isFound then begin
          mmLog.Lines.Append('Ошибка! Для предыдущего документа с нужным ИНН нет завершающего тега "КонецДокумента"! Копируем всё до текущей строки...');
          CopyRange(TS, TSNew, BegDoc, i-1);
          isFound := false;
      end;
      BegDoc := i
    end
    else
      if AnsiUpperCase(TS.Strings[i])=sFind then begin isFound := true;
          mmLog.Lines.Append('Нужное ИНН найдено в строке '+IntToStr(i+1));
      end
      else
        if AnsiUpperCase(TS.Strings[i])='КОНЕЦДОКУМЕНТА' then begin
          if isFound then begin
              mmLog.Lines.Append('Найден тег "КонецДокумента", копируем строки от '+IntToStr(BegDoc+1)+' до строки '+IntToStr(i+1));
              CopyRange(TS, TSNew, BegDoc, i);
              isFound := false;
          end;
        end;
  end;

  if isFound then begin
       mmLog.Lines.Append('Ошибка! Для предыдущего документа с нужным ИНН нет завершающего тега "КонецДокумента"! Копируем всё до конца документа...');
       CopyRange(TS, TSNew, BegDoc, TS.Count - 1);
  end;

  if TSNew.Count>0 then begin
        mmLog.Lines.Append('сохраняем '+IntToStr(TSNew.Count)+' строк в файл '+edOutputFile.Text);
        TSNew.SaveToFile(edOutputFile.Text);
  end;
  mmLog.Lines.Append('---- конец обработки ----');

end;

собственно, здесь бОльшая часть кода - это обработка ошибок и вывод сообщений в лог.

а вот и исходники проекта целиком:
Copy_INN_Delphi_sources.rar