txt teyi bir memoya yükle
viewtopic.php?f=2&t=16767
txt dosyası içinde arama yapmak.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- greenegitim
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: txt dosyası içinde arama yapmak.
Mücadele güzelleştirir!
Re: txt dosyası içinde arama yapmak.
Delphi XE ve sonrasını kullanıyorsan uses kısmına RegularExpressions ekle.
yine memo1.lines.text içine yazını aktar.
var
regex: TRegEx;
input: string;
ciklar:TMatchcollection;
yyer: Integer;
yestr: string;
begin
i := 0;
input := memo1.lines.text;
regex.Create('test\.exe');
ciklar := regex.Matches('input,'test\.exe'); // text.exe leri arayacak ve bir arraya yerleştirecek
ciklar.count -> bulduklarının sayısını verir bulamazsa sıfır gelir
ciklar.Item[0].Value -> mesela ilk bulduğunun değerini verir.
ciklar.item[0].index -> konumu
.........
regex yaratma kuralları için http://www.regular-expressions.info/quickstart.html adresini inceleyebilirsin..
yine memo1.lines.text içine yazını aktar.
var
regex: TRegEx;
input: string;
ciklar:TMatchcollection;
yyer: Integer;
yestr: string;
begin
i := 0;
input := memo1.lines.text;
regex.Create('test\.exe');
ciklar := regex.Matches('input,'test\.exe'); // text.exe leri arayacak ve bir arraya yerleştirecek
ciklar.count -> bulduklarının sayısını verir bulamazsa sıfır gelir
ciklar.Item[0].Value -> mesela ilk bulduğunun değerini verir.
ciklar.item[0].index -> konumu
.........
regex yaratma kuralları için http://www.regular-expressions.info/quickstart.html adresini inceleyebilirsin..