Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Dosya Adı ve İçeriğinde Arama Yapma
#1
Merhabalar 
girilen herhangi bir yazının, Seçilen klasör ve alt klasörlerdeki dosya adlarında ve dosyaların içinde geçiyor mu ? bunun aramasının nasıl yapabilirim ?
Cevapla
#2
function  KlasordekiAltKlasorDahilDosyalariListele(AKlasorYolu:String;const ADoldurulacakListe:TStrings;const AKriter:String = '*.*'):Integer; //Result File Count
 procedure DosyaTara(const Yol: String);
 var
   Ara: TSearchRec;
 begin
   if FindFirst(Yol + AKriter, faAnyFile, Ara) = 0 then
     repeat
       if Ara.Attr and faDirectory = 0 then
         ADoldurulacakListe.Add(Yol + Ara.Name);
     until FindNext(Ara) <> 0;
   System.SysUtils.FindClose(Ara);
   if FindFirst(Yol + '*.*', faDirectory, Ara) = 0 then
     repeat // daha alt klasörleri tara
       if (Ara.Name <> '.') and (Ara.Name <> '..') and
         (Ara.Attr and faDirectory = faDirectory) then
         DosyaTara(Yol + Ara.Name + '\');
     until FindNext(Ara) <> 0;
   System.SysUtils.FindClose(Ara);
 end;
begin
 ADoldurulacakListe.BeginUpdate;
 ADoldurulacakListe.Clear;
 if (AKlasorYolu <> '') and (AKlasorYolu[Length(AKlasorYolu)] <> '\') then
   AKlasorYolu := AKlasorYolu + '\';
 DosyaTara(AKlasorYolu);
 ADoldurulacakListe.EndUpdate;
 Result := ADoldurulacakListe.Count;
end;

Parametre olarak verilen uzantı dosyaları listeler, biraz yorum yaparsanız yapabilirsiniz.
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Cevapla
#3
Artık TDirectory.GetFiles var.  İşinizi çok kolaylaştırır.



(21-06-2019, Saat: 21:38)dkadir Adlı Kullanıcıdan Alıntı: Merhabalar 
girilen herhangi bir yazının, Seçilen klasör ve alt klasörlerdeki dosya adlarında ve dosyaların içinde geçiyor mu ? bunun aramasının nasıl yapabilirim ?

Girilen yazının dosyanın içinde geçip geçmediğine bakmak için dosyaları açıp arama yapmanız gerekir. Bu da dosya türüne vs. göre değişir. Yukarıda ismini verdiğim fonksiyonla dosya isimlerini bulmak kolay. Bundan sonrası dosyaları tek tek açıp bakmak.
There's no place like 127.0.0.1
WWW
Cevapla
#4
Hex olarak arama yapsak bi yararı olur mu acaba
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Excel import yapma (Güncelleme) cinarbil 2 188 28-07-2020, Saat: 17:39
Son Yorum: cinarbil
  Web Browser Resize yapma. enigma 4 470 05-07-2020, Saat: 18:23
Son Yorum: mrmarman
Photo Dosya kaydederken memory leak hatası. KUNTAY 8 773 23-06-2020, Saat: 14:58
Son Yorum: KUNTAY
  Build Öncesi batch dosya çalıştırma tuna 2 312 26-05-2020, Saat: 16:05
Son Yorum: tuna
  Style değişiklik yapma ekank 4 637 21-05-2020, Saat: 14:34
Son Yorum: ekank



Konuyu Okuyanlar: 1 Ziyaretçi