скопировать ссылку

[develsnik]

Добрый вечер.
Вот такой вот у меня вопрос:
есть мемо в нем 5 строк,в каждой строке есть текст типа:
<a href="/news/head/18504720/">,и мне надо скопировать из каждой строки
только /news/head/18504720/.
И занести в соответствующую переменную .
То есть ссылка скопирована из первой строки заносится в переменную "one"
и.т.д.
Как бы это реализовать?
Заранее спасибо)

[Stilet]

var s,sl:string; i:integer;
...
sl:='<a href="';
i:=pos(sl,memo.lines[...]);
if i<>0 then begin
 s:=copy(memo.lines[...],i+Length(sl),Length(memo.lines[...]));
 i:=pos('"',sl);
 s:=copy(s,1,i);
end;

Идея ясна?

[develsnik]

Не работает....(
он выдает так:
<a href="tratata">text</a>

[phomm]

one := '<a href="/news/head/18504720/">';
one := StringReplace(one, '<a href="/', '', [rfIgnoreCase]);
one := StringReplace(one, '/">', '', [rfIgnoreCase]);

Можно и сократить до жуткого

one := StringReplace(StringReplace('<a href="/news/head/18504720/">', '<a href="/', '', [rfIgnoreCase]), '/">', '', [rfIgnoreCase]);

[develsnik]

Так у меня же в мемо в каждой строчки текст такого типа:

<a href="silka">тексттратата</a>
А с Ваш код работает в том случае если у меня в строке только:
<a href="silka">

[phomm]

в каждой строке есть текст типа:
<a href="/news/head/18504720/">,и мне надо скопировать из каждой строки
только /news/head/18504720/

Учитесь формулировать свои задачи.

Более того, здесь форум, где советуются, а не бюро решений. Доведение до желаемых Вами условий - дело рук самих утопающих, особенно если эти условия выражены в нескольких одному Будде известных формах.

[Mad_Cat]

как вариант)

s:='<a href="/news/head/18504720/">';
delete(s,1,9);
s:=copy(s,1,pos('"',s)-1);
showmessage(s);