Получить текст между тегами, или произвольными строками
Автор Сообщение
all__ Не на форуме
Админ
*******

Сообщений: 855
Зарегистрирован: 01.2010
Сообщение: #1
Получить текст между тегами, или произвольными строками
Эта 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





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
03.05.2010 8:49
Вебсайт Найти все сообщения Цитировать это сообщение
Создать ответ 


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