Парсер на Delphi

Парсер на Delphi

В некоторых ситуациях вам нужно достать текст программно, а не вписывать его самостоятельно каждый раз. Мы уже публиковали урок, рассказывающий, как написать парсер на php. Теперь же разберем парсер текста на делфи. Он решит эту проблему. Вам необходимо вписать начинающий текст и заканчивающий, и из этой области будет вырезан кусок текста, который вам и нужен.

Функция парсинга в delphi:

function parse(str, str2, ob: string): string;
var
len: integer;
begin
  len := length(str);
  result := Copy(ob, pos(str, ob) + len, pos(str2, ob) - pos(str, ob) - len);
end;

Использование:

parse(str, str2, ob);

Допустим, у вас есть текст \»Самое большое достижение в моей жизни — покорение Эвереста\», из него необходимо достать слово \»достижение\», для этого пишем код (здесь предоставлен полный код delphi):

memo1.text:="Самое большое достижение в моей жизни - покорение Эвереста";
edit1.Text:=parse('большое ', ' в моей', Memo1.Text);

После компиляции выведется слово \»достижение\».

Небольшое отступление:
На сайте уже размещено достаточно статей по программированию на delphi и php, а начиналось все с этого

3
Поделиться
Mentor

Уже более четырех лет интернет - моё хобби. Больше всего мне удалось освоить веб-дизайн. В настоящее время активно занят продвижением сайтов.

Оставить комментарий

Войти с помощью: 
Яндекс.Метрика