Metinden istediğim parçayı getir

[turkoder]

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

Kod:

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.0
bas -> action=
son -> ;board

Kod:

Edit1.Text:=alver(metin,bas,son);

Sonuç : post yazar