|
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 |