TXT Adodataset ? (Cxgrid gösterme)

[KOROGLUCW]

Merhaba bir txt dosyam var ve bu bilgileri adodataset ile cxgrid yansıtmak istiyorum ama takılıyorum
adodataset ile ne gibi bir işlem yapmam gerekiyor ki?
en azından fikir veya farklı bir şey yazabilirmisiniz?

VeSSeLaM.

[yusuf simsek]

adodataset yerine MemTable'a gerekli alanları oluşturup, txt dosyasındaki verileri MemTable a ekleyip cxgrid üzerinde rahatlıkla gösterebilirsiniz,

hatta gerekli değişiklikleri yapıp işlemin sonunda memtable üzerinden txt dosyasını güncelleyebilirsiniz

[KOROGLUCW]

yusuf simsek - hocam en azından biraz bilgi yazabilirmisiniz memdata vs adodataset vs.
şuan memdata araştırıyorum ama :S
sıkıntı veriyor bana :s kaynak yok ...
VeSSeLaM. // en azından şu kodlar veya şu yöntemle yapabilirsiniz diye yaza bilirmisiniz?

[KOROGLUCW]

procedure TForm1.cxButton2Click(Sender: TObject);
var
DosyaAdi:string;
begin
if TxtOpenDialog.Execute then
begin
DosyaAdi := TxtOpenDialog.FileName;
//burdan sonrası yok :S txt nasıl okuyup memdata aktarabilrim ki..
end;
end;

txt dosyası şöyle;

P0 986 487 002 VC 3430AP001 1 001 13165141024289

böyle bir şey aslında ....

[yusuf simsek]

cxgrid kullandığın için memdata diye kısa geçmiştim... Kusura bakma, MemoryTable olarak daha rahat bilgiye ulaşabilirsin...

Dev Express'in DxMemData componentini kullanarak RAM BELLEK üzerinde sanal tablo oluşturup, bildiğin dataset kodları ile kaydı girebilirsin. ( alternatif memorytable componentleri mevcuttur )

dxMemData1.append;
dxMemData1.Alan1.Value := 'veri';
dxMemData1.Post;

txt dosyasını okumanın bana göre en basit yolu; txt dosyasını memo nesnesine yükyemek ( memo1.loadfromfile )

sonrasında memo1.text üzerinden COPY ile stringleri alıp memtable aktarmak...

[KOROGLUCW]

hocam çok güzel yazmışsınız ellerinize sağlık ama adodaset ile okumaya çalıştım okuyamadım :S
memdata ile okumaya çalıştım yapamadım,
ama siz diyorsunuz ki memoryTabla atınız ordan ise sonra memtable veya memo1. aktara bilirsiniz ve ordan da tekrardan memdata içine aktarınz diyorsunuz.
ama benm anlamadığım nokta
araştırdığım bütün şeyler satır satır okuma var google.com üzerinden araştırdığımda .
txt normal olarak okuma diye araştırıyorum en azından sadece txt nasıl okurum ve ordan memdata içine nasıl aktara bilirim ki?
sorun sadece bu aslında.
kod yazmayı seviyorum ama bilmediğim bir şey derlemek sıkıntı çıkıyor her severinde :S biraz kod bilgim delphi de az o yüzden foruma girip burdan yardım istiyorum.
zamanı gelecek bende sizler gibi burda yardım edeceğim.
biraz nasıl yazacağım hakkında bilgi ve kod desteği sağlaya bilirmisiniz hocam ?
tekrardan Allah razı olsun hocam.
VeSSeLaM.

[yusuf simsek]

karmakarışık bir kafayla ancak bu kadar yazılabiliyor

- Üstadım, öncelikle txt dosyandan verilerini almam lazım...

txt dosyasındaki verilerin ne olduğunu biliyor olman lazım ki ( dosyadan gride basmak istediğine göre biliyorsundur diye düşünüyorum ) txt tablondan verileri veritabanında ki gibi satır satır okuyabilesin...

--------------------------------------------------------
No Adı Soyadı
1 Köroğlu CW
2 Mustafa Şimşek
3 Yusuf Şimşek
--------------------------------------------------------

- Forma Memo, Buton ve OpenFile nesnesi koyup butona tıkladığında txt dosyanı seç...

- Dosyayı seçtikten sonra dosyanın içeriğini memoya yükle... " memo1.LoadFromFile('c:\deneme.txt'); " ( path + dosya ismi )

- Şimdi string fonksiyonları ile memo nesnesi içinden SATIR SATIR dosya içeriğini okuyalım...

Kod: Tümünü seç

Procedure DosyaIcerikOku ;
var
 sTmp : string;

begin
  sTmp := [b]COPY[/b]( memo1.text, 0, [b]POS[/b]( '2',  memo1.text ) -1  ); // [ sTmp = 1          Köroğlu CW ]

txt dosyasında ki ilk satırı aldık...

- şimdi forma birde cxMemData ( MemoryTable ) nesnesi koyduk...

- cxMemData içerisine alanlarımızı ekleyelim... ( Numara, AdiSoyadi )

- Şimdi de okuduğumuz satırı cxMemData tablomuza EKLEYELİM

Kod: Tümünü seç

   
   cxMemData1.Open;
   cxMemData1.Append;
   cxMemData1Numara.AsString := COPY( sTmp, 0, POS( '1', sTmp ) );
   cxMemData1AdiSoyadi.AsString := COPY( sTmp, POS( '1', sTmp ), LENGTH ( sTmp) );
   cxMemData1.Post;

- Bu işlemi döngü içerisinde Dosyadaki tüm kayıtları okuyana kadar devam edelim...

- En son olarakta form üzerine cxGrid ve DataSource nesneleri ekleyip, cxgrid, datasource ve cxMemData arasındaki ilişkiyi sağladığında txt içerisindeki kayıtlarını cxgrid üzerinde görebilirsin.

Umarım bu sefer açıklayıcı olabilmişimdir

Kolay gelsin

[KOROGLUCW]

hocam çok güzel bir açıklayıcı olmuş ellerinize sağlık ?

H87117680.001RAIART2501306068711768000011VAN HECK BOSCH REMSCHOENEN 001 2516020 311
P0 986 487 002 VC 3430AP001 1 001 13165141024289 ENREMSCHOENEN BS402 020 1

ilk satır olmayacak
:S
hocam şöyle bir txt mevcut ilk satırı atlamak istiyorum ve sonra ise
P0 986 487 002 burdan ise p almayıp gerisini almak istiyorum :S

ne gibi bir işlem olması gerekiyor ki?
VeSSeLaM.

[KOROGLUCW]

başka şekilde yardım edecek yok mu?
rica sadece fikir ve öneri.

VeSSeLaM.

[yusuf simsek]

txt içerisinde ayraç olarak kullanacak birşeyler bulman lazım...

mesela "P"

COPY( sTmp, 0, POS( 'P', sTmp ) );

ama txt dosyanda bir "P" ile daha karşılaşırsan istediğin sonucu alamazsın

[KOROGLUCW]

hım evet hocxam teşekkür ederim,
Kolay gelsin.