Каскадный режим | Линейный режим

***all__*** · 03.05.2010 8:49

Эта Delphi функция поможет получить текст между тегами, или произвольными строками с многократным вхождением.

Код:

function ParseStr(str, sub1, sub2: string): tstrings;

var

  st,fin:Integer;

begin

  Result:=TStringList.Create;

  repeat

    st:=Pos(sub1, str);

    if st > 0 then begin

      str:=Copy(str,st+length(sub1),length(str)-1);

      st:=1;

      fin:=Pos(sub2,str);

      Result.Add(Copy(str,st,fin-st));

      str:=Copy(str,fin+length(sub2),length(str)-1);

    end;

  until st<=0;

end;

Пример использования:

Код:

memo1.Lines:=ParseStr('<b>111</b>222<b>333</b>','<b>','</b>');

Вернет в memo1 следующий результат:

Цитата:111
333

Похожие темы
Тема:		Автор	Ответов:	Просмотров:	Посл. сообщение
	Обмен между TIdUDPClient и TIdUDPServer в обоих направлениях	all__	0	626	14.12.2011 15:54 Посл. сообщение: all__

Каскадный режим \| Линейный режим Получить текст между тегами, или произвольными строками
Автор	Сообщение