Aslında link içerisinden istenilen parçayı da getirme diyebiliriz.
Link i veriyorsunuz içinden baş ve son aradakini getir.
İlk bulunan değerleri getirir.
uses e StrUtils;//Eklemeyi unutmayınız
function alver(met,b,s:string):string;
var
m,seferi:AnsiString;
k,ne:integer;
begin
result:='';
k:=AnsiPos(b,met); //baş kaçıncı karakter
seferi:=AnsiMidStr(met,k+Length(b),Length(met)+k); //AnsiMidStr(metin,başlangıç,kaçadet)
ne:= AnsiPos(s,seferi); //son kaçıncı karakter
result:=Trim(Copy(seferi,1,ne-1));
end;
Kullanımı :
metin ->
http://www.hay-ns.net/forum/index.php?action=post;board=3.0bas -> action=
son -> ;board
Edit1.Text:=alver(metin,bas,son);
Sonuç : post yazar