Hoşgeldiniz, Ziyaretçi.Lütfen giriş yapın veya kayıt olun.
E-posta adresinize aktivasyon iletisi gelmediyse lütfen buraya tıklayın.
Kasım 15, 2018, 04:28:51 ÖS


FORUM ŞU AN İÇİN (ÖZEL BÖLÜMLER HARİÇ) TÜM ZİYARETÇİLERE AÇIKTIR.
EMEĞE SAYGI AÇISINDAN ALINTILARIN MUTLAKA KAYNAK GÖSTERİLMESİ RİCA OLUNUR.


Ana Sayfa Ana Sayfa Yardım Ara Giriş Yap Kayıt
+  Hay-NS Yazılım
|-+  DELPHİ KÖŞESİ
| |-+  Delphi Programlama
| | |-+  Kod Bankası
| | | |-+  Metinden istediğim parçayı getir
0 Üye ve 1 Ziyaretçi konuyu incelemekte. « önceki sonraki »
Sayfa: [1] Aşağı git Bu Konuyu Gönder Yazdır
Gönderen Konu: Metinden istediğim parçayı getir  (Okunma Sayısı 9552 defa)
turkoder
Adnan YILDIZ
Administrator
Onbaşı
*****

Rep Puanı: +0/-0
Çevrimdışı Çevrimdışı

Mesaj Sayısı: 218



WWW
« : 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
Logged
Sayfa: [1] Yukarı git Bu Konuyu Gönder Yazdır 
« önceki sonraki »
Gitmek istediğiniz yer:  


Kullanıcı adınızı, parolanızı ve aktif kalma süresini giriniz

MySQL Kullanıyor PHP Kullanıyor Powered by SMF 1.1.8 | SMF © 2006-2008, Simple Machines LLC XHTML 1.0 Uyumlu! CSS Uyumlu!
Bu Sayfa 0.029 Saniyede 19 Sorgu ile Oluşturuldu