Witanko
Pisze chatka, jest on juz w sumie skonczony...ale pozostal mi problemik zwiazany z adresem www.wp.plzi dokladnie o cos takiego:
Mam stringa o takim tekscie:
tekst bleble www.wp.pl znowu tekst... www.onet.pl blebleble www.interia.pl
zrobilem pętelke ktora mi wyodrebnia te adresy i po niej tekst wygląda tak:
tekst bleble www.wp.pl znowu tekst... www.onet.pl blebleble www.interia.pl
jednak nie jest ona doskonala i dziala poprawnie tylko wtedy gdy przed adresem wstawie:
a jesli dam to wtedy sie wszytsko chrzani... oto kodzik tej pętelki jesli ktos by znal jakies lepsze rozwiazanie to z gory dzieki. pozdrowka
var
pocz,kon:integer;
a,b,i,p,k:integer;
s,adres,c,c2,c3,pp,kk:string;
begin
pocz:=0;
i:=0;
s:='tekst bleble www.wp.pl znowu tekst... www.onet.pl blebleble www.interia.pl ';
repeat
c:=Copy(s,pocz,length(s)-pocz);
a:=pos('www',c);
c3:=Copy(s,pocz+a+1,length(s)-pocz);
c:=Copy(s,pocz,length(s)-pocz);
a:=pos('www',c);
if i=0 then
begin
c2:=Copy(s,pocz+a,length(s)-pocz);
end else
begin
c2:=Copy(s,pocz+a-1,length(s)-pocz);
end;
c3:=Copy(s,pocz+a,length(s)-pocz);
b:=pos(' ',c2);
adres:=Copy(c2,0,pos(' ',c3));
p:=pos(adres,s);
pp:='';
kk:='';
insert(pp,s,p);
if i=0 then
begin
insert(kk,s,p+Length(adres)+Length(pp)-1);
end else
begin
insert(kk,s,p+Length(adres)+Length(pp));
end;
Memo1.Text:=s;
pocz:=pocz+b+a;
i:=i+1;
c:=Copy(s,pocz,length(s)-pocz);
a:=pos('www',c);
until a=0;
end;