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

[Univerce =)]

Привет, такая проблема, программа получает в мемо текст, в нем куча ссылок смешанных с тектстом, нужно вытащить все ссылки тоесть начиная с http:// и до следующего после текста ссылки пробела.


вот как думаю я, но она не работает почему, не пойму.

PHP код:

linkB:=Pos('http:/',tekst);//начало искомого
linkE:=Pos(' ',Source);//конец искомого
С:=Copy(tekst, linkB, linkB-linkE);//выдераем 


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

function ParseLinksFromText(Text:string):TStringList;
var i:integer;
begin
 Text:=ANSILowerCase(Text);
 Result:=TStringList.Create;
 i:=PosEx('http:/',Text);
 while i<>0 do
  begin
   Result.Add(Copy(Text,i,i-PosEx(' ',Text,i)));
   i:=PosEx('http:/',Text,i+1);
  end;
end;

вроде так...не проверял

[Univerce =)]

немного переделал код, но выдирается только первая ссылка и дальше прога не идет.

Source:=ANSILowerCase(Source);
 i:=Pos('http',Source);
 istop:=0;
 repeat
  begin
   istop:=istop+1;
   res:='';
   res:=(Copy(Source,i,i-Pos(' ',Source)));
   i:=Pos('http://',Source);
  end;
  until istop=50;

[mihali4]

Используйте не POS, а POSEX. Описание - тоже в хэлпе.

[Univerce =)]

у меня ругается на posEX
пишет не обьявленый идентификатор

[W0LF]

Забыл подключить модуль StrUtils, вот и ошибка из-за этого...

[Univerce =)]

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

Сообщение от Пепел Феникса

function ParseLinksFromText(Text:string):TStringList;
var i:integer;
begin
 Text:=ANSILowerCase(Text);
 Result:=TStringList.Create;
 i:=PosEx('http:/',Text);
 while i<>0 do
  begin
   Result.Add(Copy(Text,i,i-PosEx(' ',Text,i)));
   i:=PosEx('http:/',Text,i+1);
  end;
end;

вроде так...не проверял

к сожалению виснет код =(

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

function ParseLinksFromText(Text:string):TStringList;
var i,j:integer;
begin
 Text:=ANSILowerCase(Text);
 Result:=TStringList.Create;
 i:=Pos('http:/',Text);
 while i<>0 do
  begin
   Delete(Text,1,i-1);
   j:=Pos(' ',Text)-1;
   if j=0 then j:=Length(Text);
   Result.Add(Copy(Text,1,j));
   Delete(Text,1,j);
   i:=Pos('http:/',Text);
  end;
end;

а если так?(просто Делфи нет на этой машине)
(ЗЫ, если ссылки обрезает на один символ то жирное убрать)

[Univerce =)]

не работает =( и сильно подвешивает систему, на 99% =)

Я думаю сделать условие, если текст не найден то i:=1, и задать цикл чтобы программа искала и вырезала ссылки из текста, если ссылки не найдены i:=0 как программно это выразить не знаю =(

[Usov]

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