Text dosyasından bilgi almak

[Armani]

Arkadaşlar merhaba
Text dosyasından belirli karakterler arasında bilgi almak istiyorum.
ör.

15042004 1111 AAAA 12132654
...
...

Amacım sadece AAAA kısmındaki bilgileri çağırıp Dbgridde görmek istiyorum. SAtırlar değişmiyor. Hep alt alta

Bu konu hakkında bana ör. olacak kod yazabilirmisiniz.

teşekkürler

[Selman72]

String içinden belli bir alandaki kayıtı alma işlemini

Copy(S; Index, Count: Integer)

işlemi ile yapabilirsin. Bu işlemden sonrasını ise sen kendi mantığınla düzenlemelisin.

Var a,b : String;
.
.
a:= '15042004 1111 AAAA 12132654';
b:= Copy(a,15,4) // Sana AAAA değerlerinin dönmesini sağlar.
.
.

b değişkeninde istediğin gibi kullanabilirsin.

[gkimirti]

bir stringlist create et
dosyayı loadfromfile metodu ile yukle
satırlara strings ozelligi ile eris

Pos ile satırda 'AAAA' ara
buldugun pozisyon+4 den istedigin kadar kopyala vs.

[Armani]

Ama aaaa lar değişken. pos komutunu "her satırdaki şu karakterler arası bilgiyi al" olarak kullanabilirmiyim.

[TRSoft]

Satırlar arasında boş satır olmadığı ve AAAA ların hep aynı yerden ve aynı uzunlukta olduğunu varsayarak aşağıdaki kodları kullanabilirsin..

Kod: Tümünü seç

var
  F: TextFile;
  S: String;
begin
     AssignFile(F,'C:\Dosya.Txt');
     Reset(f);
     s:=' ';
     While s<>'' Do
     Begin
          Readln(f,S);
          Memo1.Lines.Add(Copy(S,15,4));//Kaçıncı karakterten kaç tane alınacağı
     End;
     CloseFile(f);
end;