В некоторых ситуациях вам нужно достать текст программно, а не вписывать его самостоятельно каждый раз. Мы уже публиковали урок, рассказывающий, как написать парсер на 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, а начиналось все с этого…
