Hay-NS Yazılım

DELPHİ KÖŞESİ => Kod Bankası => Konuyu başlatan: turkoder üzerinde Aralık 17, 2010, 01:52:44 ÖÖ



Konu Başlığı: Metinden istediğim parçayı getir
Gönderen: turkoder üzerinde Aralık 17, 2010, 01:52:44 ÖÖ
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