txt veri alma

[resul]

elimde birtane txt dosyası var ben b
unun içindeki Örnek No bulup memo1 yazdırmak istiyorum bunu nasıl yapa bilirim

Write 11.06.2007 14:03:38 <SOH>#-YK<CR>
Sys 11.06.2007 14:03:38 Haberleşme Sonu
Read 11.06.2007 14:03:38 <SOH>#-B4<CR>
Write 11.06.2007 14:03:37 <SOH>#,YJ<CR>
Sys 11.06.2007 14:03:37 Test : ANTIHCV Kontrol Sonuç : 4.71
Sys 11.06.2007 14:03:37 Örnek No : 23802
Sys 11.06.2007 14:03:36 Dosya Sonu. Sonuçlar Kayıt Edilecek
Read 11.06.2007 14:03:36 <SOH>#,ZK<CR>
Write 11.06.2007 14:03:36 <SOH>#+YI<CR>
Read 11.06.2007 14:03:36 <SOH>m+D<FR1>406<FR1>606<FR1><FR1>06<SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><FR2>380<FR2><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP>40"0<FR1>.0000<FR2>3<SP><SP><SP><SP><SP>4.7<FR1>0S0EM<SP><SP><SP><SP><SP><SP>}]<SUS><CR>
Write 11.06.2007 14:03:35 <SOH>#*YH<CR>
Sys 11.06.2007 14:03:35 File : R0000017&
Sys 11.06.2007 14:03:35 Örnek Analiz Başlangıcı
Read 11.06.2007 14:03:34 <SOH>+*FR00000<FR1>7&<CR>
Write 11.06.2007 14:03:34 <SOH>#)YG<CR>
Sys 11.06.2007 14:03:34 Test : ANTIHCV Kontrol Sonuç : 0.11
Sys 11.06.2007 14:03:34 Örnek No : 23801
Sys 11.06.2007 14:03:33 Dosya Sonu. Sonuçlar Kayıt Edilecek
Read 11.06.2007 14:03:33 <SOH>#)ZH<CR>
Write 11.06.2007 14:03:33 <SOH>#(YF<CR>
Read 11.06.2007 14:03:33 <SOH>m(D<FR1>406<FR1>606<FR1><FR1>06<SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><FR2>380<FR1><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP>40!0<FR1>.0000<FR2>3<SP><SP><SP><SP><SP>0.<FR1><FR1>0Q0EM<SP><SP><SP><SP><SP><SP>}]/<CR>
Write 11.06.2007 14:03:32 <SOH>#'YE<CR>
Sys 11.06.2007 14:03:32 File : R0000016"
Sys 11.06.2007 14:03:32 Örnek Analiz Başlangıcı
Read 11.06.2007 14:03:31 <SOH>+'FR00000<FR1>6"<CR>
Write 11.06.2007 14:03:31 <SOH>#&YD<CR>
Sys 11.06.2007 14:03:31 Test : ANTIHCV Kontrol Sonuç : 4.49
Sys 11.06.2007 14:03:30 Örnek No : 23802
Sys 11.06.2007 14:03:30 Dosya Sonu. Sonuçlar Kayıt Edilecek
Read 11.06.2007 14:03:30 <SOH>#&ZE<CR>
Write 11.06.2007 14:03:30 <SOH>#%YC<CR>
Read 11.06.2007 14:03:29 <SOH>m%D<FR1>406<FR1>606<FR1><FR1>06<SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP><FR2>380<FR2><SP><SP><SP><SP><SP><SP><SP><SP><SP><SP>40"0<FR1>.0000<FR2>3<SP><SP><SP><SP><SP>4.490S0EM<SP><SP><SP><SP><SP><SP>}]<REP><CR>
Write 11.06.2007 14:03:29 <SOH>#$YB<CR>
Sys 11.06.2007 14:03:29 File : R0000015]
Sys 11.06.2007 14:03:29 Örnek Analiz Başlangıcı
Read 11.06.2007 14:03:28 <SOH>+$FR00000<FR1>5]<CR>
Write 11.06.2007 14:03:28 <SOH>##Y<REC><CR>
Sys 11.06.2007 14:03:27 Test : ANTIHCV Kontrol Sonuç : 0.07
Sys 11.06.2007 14:03:27 Örnek No : 23801
Sys 11.06.2007 14:03:27 Dosya Sonu. Sonuçlar Kayıt Edilecek
Read 11.06.2007 14:03:27 <SOH>##ZB<CR>
Write 11.06.2007 14:03:26 <SOH>#"Y<SUS><CR>

[mrmarman]

Basit string operasyonlarla yapabilirsin... Copy ve Length komutunu araştırarak başla...

Kod: Tümünü seç

Procedure OrnekNolari( Log:String; Liste:TStrings );
Const
  Ornek = 'Örnek No :';
begin
  While Pos(Ornek, Log) > 0 do begin
    Delete(Log, 1, Pos(Ornek, Log)+Length(Ornek)-1);
    Liste.Add( Copy(Log, 1, Pos(#13, Log)-1) );
  end;
end;

Kullanımı :
Bu metni Memo1'e koy, aşağıdaki uygulama ile Memo2'de örnek numaralarını göreceksin...

Kod: Tümünü seç

  OrnekNolari( Memo1.Text, Memo2.Lines );