выташить ссылки, работа с текстом

[Univerce =)]

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

чего изобретать велосипед? используйте библиотеку RegExp

с удовольствием =))
поделитесь примером пожалуйста

[Пепел Феникса]

вы уверены что мой код зависает?
вы трассировали?

[Univerce =)]

да, виснет. мне кажется она зацикливается потому что переменная i никогда нулевой не будет.
"трассировали" это как?

Компилирую, потом запускаю из папки с проектом, нажимаю на кнопку если вы это спрашивали

[Пепел Феникса]

трассировка это построчное выполнение кода, и также использование точек останова в критических местах(для контроля переменных).

текст большой?

[Univerce =)]

текст большой, специально под эту функцию сделал новый проект, ибо мучался с ним долго.

как сделать трассировку ?

[Пепел Феникса]

F7 помоему это по строчкам идти(уже не очень помню)
а лучше внутри функции поставьте точки останова...(в цикле)
и следите как меняется Text
кстати проверьте на небольшом тексте работу...
на большом может просто долго

[AndrzejX]

Из своего проекта:

function GetLink(var Text: String): String; //Получение ссылки вида <a href="page.htm">
var k, n: Integer;
begin
k:=pos('<a ', Text);
  n:=k;
  while Text[n]<>'>' do
    n:=n+1;
Result:=copy(Text, k, n-k+1);
Text:=copy(Text, n+1, Length(Text)-n);
end;

function GetPage(Link: String): String; //Получение page.htm
var k, n: Integer;
 apo: String;
begin
k:=pos('href=', Link);
apo:=Link[k+5];
if k<>0 then
  begin
    k:=k+6;
    n:=k;
    while (Link[n]<>apo) do
      n:=n+1;
    Result:=copy(Link, k, n-k);
    k:=pos('#', Result);
    if k<>0 then Result:=copy(Result, 1, k-1);
    k:=pos('?', Result);
    if k=Length(Result) then Result:=copy(Result, 1, k-1)
  end;
end;

Первая функция ищет сами ссылки, вторая "выдирает" адрес, неважно, внутренний или внешний. Я потом это тоже анализирую. Использование:

while pos('<a ', Text)<>0 do
  begin
    Link:=GetLink(Text);//Получение ссылки вида <a href="page.htm">
    Link:=GetPage(Link);//Получение page.htm
  end;

[Пепел Феникса]

AndrzejX, а кто сказал что у ТС HTML?
он об этом даже не заикался...иначе бы не было столько мороки

[_bAd_]

я дико извиняюсь, что не стал читать все посты, но мне кажца всё можно было решить заменив
С:=Copy(tekst, linkB, linkB-linkE);//выдераем
на
С:=Copy(tekst, linkB, linkE-linkB);//выдераем
либо
С:=Copy(tekst, linkB, linkE-linkB-1);//выдераем

[AndrzejX]

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetLink(var Text: String): String;
var k, n: Integer;
begin
k:=pos('http://', Text);
  n:=k;
  while Text[n]<>' ' do
    n:=n+1;
Result:=copy(Text, k, n-k+1);
Text:=copy(Text, n+1, Length(Text)-n);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Text, Link: String;
begin
Text:=Memo1.Text;
while pos('http://', Text)<>0 do
  begin
    Link:=GetLink(Text);
    ComboBox1.Items.Add(Link);
  end;
end;

end.

Все ссылки в комбобоксе. Всё вроде работает.