найти нужную строку в RichEdit

[Volkogriz]

Доброе время суток!
Собственно Есть неопределённый текст в RichEdit сколько строк до например "Перечень неполадок:" неизвестно.
И сколько будет перечислено до "Выполнить в срок:" тоже неизвестно.
Нужно сохранить если дописано все строки между "Перечень неполадок:" и "Выполнить в срок:".
Честно не знаю как это осуществить(((
Помогите пожалуйста!
Заранее благодарен!
С уважением,
Volkogriz!

[Человек_Борща]

Эмм функциями Copy, Pos найти и скопировать нужный кусок кода.

[IvaniuS]

ооо помогите пожалуйста найти ошибку:
Рабочий кодик:

procedure TForm1.btn1Click(Sender: TObject);
var
  Ftext:TStringlist;
  strt,endp,sysfldn:Integer;
begin
  Ftext:=TStringlist.Create;
  dlgOpencrt.FilterIndex:=3;
  if dlgOpencrt.Execute then
  begin
    mmo1.Lines.LoadFromFile(dlgOpencrt.FileName);
    //lstlbls.Items.Text:=FieldsFromFile(mmo1.Lines);
    Ftext.Text:=mmo1.Lines.Text;
    strt:=0;
    while posex('<field name="',Ftext.Text,strt)>1 do
      begin
        strt:=posex('<field name="', Ftext.Text,strt)+13;
        endp:=posex('"', Ftext.Text, strt);
        lstlbls.Items.Add(copy(Ftext.Text,strt,endp-strt));
        Application.ProcessMessages;
      end;
  end;
  Ftext.Free;
end;

Не работает:

function FieldsFromFile (Inputtext:TStrings):string;
const
  fldn      :string = '<field name="';
  sysf      :string = 'sysfields';
  dscr      :string = 'descr="';
  fldntype  :string = 'type="';

var
  strt,endp,sysfldn:Integer;
  outtext:TStringList;
begin
  try
      outtext:=TStringList.Create;
      {if posex(sysf,text.Text)<>0 then
        sysfldn:=posex(sysf, text.Text);
      if posex('/'+sysf,text.Text)<>0 then
        strt:=posex('/'+sysf, text.Text);}

      while posex(fldn,Inputtext.Text,strt)>1 do
      begin
        strt:=posex(fldn, Inputtext.Text,strt)+13;
        endp:=posex('"', Inputtext.Text, strt);
        outtext.Add(copy(Inputtext.Text,strt,endp-strt));
        Application.ProcessMessages;
      end;
  finally
    result:=outtext.Text;
    outtext.Free;
  end;
end;

[Человек_Борща]

strt:=posex(fldn, Inputtext.Text,strt)+13;

Может из-за магии с числами и не находит. Что за магическое 13? Вы уверены что оно всегда справедливо для текста?

[IvaniuS]

да символов в <field name=" ровно 13, потому начинаю копировать от "равно"

[IvaniuS]

function FieldsFromFile (Inputtext:TStrings):string;
const
  fldn      :string = '<field name="';
  sysf      :string = 'sysfields';
 { dscr      :string = 'descr="';
  fldntype  :string = 'type="';
  FIRM_NAME   :string = 'Назва підприємства' ;
  FIRM_EDRPOU :string = 'ЄДРПОУ' ;
  FIRM_KVED   :string = 'Квед' ;
  FIRM_KVEDNM :string = 'Вид економічної діяльності' ;
  FIRM_BUH    :string = 'Головний бухгалтер' ;
  FIRM_ADR    :string = 'Адреса' ;
  FIRM_RUK    :string = 'Керівник' ; }

var
  strt,endp,sysfldn:Integer;
  outtext:TStringList;
begin
  try
      outtext:=TStringList.Create;
      strt:=0;
      if posex(sysf,Inputtext.Text)<>0 then
        strt:=posex(sysf, Inputtext.Text);
      if posex('/'+sysf,Inputtext.Text)<>0 then
        sysfldn:=posex('/'+sysf, Inputtext.Text);
      while posex(fldn,Inputtext.Text,strt)<>0 do
      begin
        strt:=posex(fldn, Inputtext.Text,strt)+13;
        endp:=posex('"', Inputtext.Text, strt);
        outtext.Add(copy(Inputtext.Text,strt,endp-strt));
        //application.ProcessMessages;
      end;
  finally
    result:=outtext.Text;
    outtext.Free;
  end;
end;

вот что получилось, но работает ОООООООЧЕНь медленно, в 2-3 раза быстрее делать, если просто в кнопке написать тот же код.... что мне не ясно..

[Человек_Борща]

IvaniuS, вы экономите на тексте.
Занесите его во временную переменную. Далее алгоритм прост:
Нашли
Вырезали все лишнее
Просто взяли результат
Ищем снова

const
 cStart='FieldName="';
 cEnd='"';
var
 p:Integer;
 s:string;
begin
 s:=InputStr;
 p:=1;
 repeat 
 p:=Pos('FieldName="',s);
 if (p > 0) then
 begin
   Delete(s,1,p+Length(cStart)-1);
   MyRESULTStringsList.Add(Copy(s,1,Pos(cEnd,s)-1));
 end;
 until p > 0;
end;

Такой метод куда быстрее.
Да и возможностей больше, можно привести все в 1 регистр и триммировать, и шансов реально найти что-то станет на 25% больше.

[IvaniuS]

а разве POS работает быстрее POSEx, просто я думал я там сразу знаю позицию в тексте с коорой начать искать, и это не требует выше описанного т.е. удаление всего что до. Спасибо за совет значит все-таки напишу то что задумывал изначально, там на самом деле парсинг XML файла в нем есть 3-5 параметров:
1)Имя т.е. название переменной
2)тип его флоат, интегер или булевой
3)описние на русском какие данные вводить в переменную
4)обязательно ли это поле
5)системное ли это поле
ВСЕ в 1 строке подряд открыто и закрыто <> как полагается оформлено и т.д.,
это я сделал уже давно с помощью предыдущей программы, но теперь нужно сделать такой свой тип который бы все это объединял и мог номально выводить, но я не знаю подобного компонента (визуального) куда без труда можно все это впихнуть т.к. нужно одновременно и выводить и считывать т.е. такая своеобразная длинная строка где Label + Edit и они свзяны...
Нашел старый проект просмотрел и понял что нужно разбрирать тоже с помощью ХМЛДокумент, как и собирал, с помощью TValueListEditor буду выводить, получиться достаточно простой массив 5 х Кол-во элементов

[Человек_Борща]

т.е. такая своеобразная длинная строка где Label + Edit и они свзяны...

Ещё с Delphi 5 существует
TLabeledEdit называется. Поищите на Additional закладке.

А ещё для чтения/записи XML существует куча компонентов/классов.

[IvaniuS]

все получилось, теперь код выполняется за милисекунды и обошлось мне все с помощью MSXML в 2 цикла 1 ValueListEditor и 1 TXMLDocument:

procedure TForm3.Button2Click(Sender: TObject);
var
  sysnode,tablenode:IXMLNode;
  i:integer;
begin
   sysnode:=xmldoc.DocumentElement.ChildNodes.Nodes[0];
   tablenode:=xmldoc.DocumentElement.ChildNodes.Nodes[1];
   for I := 0 to sysnode.ChildNodes.Count - 1 do
      vle.InsertRow(VarToStr(sysnode.ChildNodes[i].Attributes['name']),VarToStr(sysnode.ChildNodes[i].Attributes['name']),true);
   for I := 0 to tablenode.ChildNodes.Count - 1 do
      vle.InsertRow(VarToStr(tablenode.ChildNodes[i].Attributes['descr']),VarToStr(tablenode.ChildNodes[i].Attributes['name']),true);
 end;