Как выдернуть текст из тега ?

[bakanaev]

Я знаю что это тема поднималась тут, но я не смог реализовать под свой проект.
Ну собственно вот

  <a id="r_t" href="https://site.com/blabla.html" onmousedown="return pk(this,{en:'te',io:'0',b:'a004',tp:'d',ec:'1',ex:'tsrc%3Dtled'})" class="title txt_lg algo_hvr" target="_blank">

Как мне выдернуть

https://site.com/blabla.html

Само собой что ссылки могут быть разными.
В программирование новичок так что прошу тех кто будет что то писать, делайте это как можно подробней
Зарание большое спасибо !!!!

[Stilet]

i:=pos('href="',s);
delete(s,1,i+6);
...:=copy(s,1,pos('"',s));

Идея понятна?

[bakanaev]

Сообщение от Stilet

i:=pos('href="',s);
delete(s,1,i+6);
...:=copy(s,1,pos('"',s));

Идея понятна?

Не совсем
У меня исходник такого рода

<!-- CSS Stylesheet -->
<style type="text/css" id="vbulletin_css">
/**
* vBulletin 3.8.5 CSS
* Style: 'club'; Style ID: 2
*/
@import url("clientscript/vbulletin_css/style-cbd8bb2a-00002.css");
<a id="r_t" href="https://site1.com/blabla.html" onmousedown="return pk(this,{en:'te',io:'0',b:'a004',tp:'d',ec:'1',ex:'tsrc%3Dtled'})" class="title txt_lg algo_hvr" target="_blank">
<a id="r_t" href="https://site2.com/blabla.html" onmousedown="return pk(this,{en:'te',io:'0',b:'a004',tp:'d',ec:'1',ex:'tsrc%3Dtled'})" class="title txt_lg algo_hvr" target="_blank">
<a id="r_t" href="https://site3.com/blabla.html" onmousedown="return pk(this,{en:'te',io:'0',b:'a004',tp:'d',ec:'1',ex:'tsrc%3Dtled'})" class="title txt_lg algo_hvr" target="_blank">

<!-- CSS Stylesheet -->
<style type="text/css" id="vbulletin_css">
/**
* vBulletin 3.8.5 CSS
* Style: 'club'; Style ID: 2
*/
@import url("clientscript/vbulletin_css/style-cbd8bb2a-00002.css");

[Stilet]

Не совсем

Смысл сего кода: Найти первый href=", удалить все что до него.
потом найти первую " и скопировать все что было с href=" до закрывающей ковычки.
Попробуй сам и поймешь.
А если нужно несколько строк - то просто в цикле типа

while i<>0 do
...

получать нужную информацию