TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz?

1 2
23/08/2009, 18:14

mehmetdemiral

Gönderdiğiniz örnek.txt dosyasında anladığım kadarıyla her değerin arasındaki bir boşluk karakterinden yararlanılacak. Ancak sizin dosyanızda bir isim ile soyad arasında 2 karakter boşluk var, bu hesapları bozar. Bunlara dikkat etmeniz gerekir. Ben size bir örnek hazırladım, inceleyiniz. Çift isimli olanlar için de bir formül düşünmelisiniz. Bu arada txt dosyasını da düzelterek tekrar gönderdim.
23/08/2009, 19:30

maytas

Merhaba.
Eğer 2 karaktere kadar boşluk varsa, alttaki gibi kod revize edilebilir, daha fazlası için de bişeyler yapılır, ama verilerin standart olması daha uygun olacaktır.
Ayrıca sayın mehmetdemiral'ın bahsettiği gibi çift isimli ve soyisimli kayıtlara bir çare düşünmelisiniz.

Kod:
Split(Replace(Text, "  ", " "), " ")(0)
24/08/2009, 08:37

kadirdursun

sayın mehmetdemiral;
birşey dikkatimi çekti.
tablodaki 3 alanında (no, adı, soyadı) dolu olması gerekiyor. aksi halde o kayıtları almıyor. bunun önüne nasıl geçeriz. yani soyadını bilmiyorsak ve boş geçmişsek bu kaydıda alsın...
24/08/2009, 15:23

mehmetdemiral

Onun için de döngünün devam etmesini sağlamak lazım. Bir boşluk karakteri gördüğünde diğer alana geçen kod, boşluk bile olmayan bir alan gördüğünde verinin bittiğini düşünerek veri almayı durdurmaktadır. Alanlar arasında seperator bir değer verilse daha kolay olurdu. Bu $,@ veya # gibi bir değer olabilir. Ama sanıyorum elinizde hazır veriler var. Soyadı olmayanlar için en azından bir boşluk bile verilebilse sanırım işlem devam ederdi. Ama kod yazılarak çare bulunabilir. Zaman bulduğumda bakarım. Hallolmayacak problem değil. Bu problem sadece soyadı alanında olacaksa bir if then cümleciği ile soyadı alanında değer yoksa sonraki alana atlaması sağlanabilir.
06/08/2010, 14:42

qnill

merhaba Mehmet bey,

Ben yaklaşık 1.5 haftadır bunu yapmaya calısıyorum burası dahıl vb.net bolumune actıgım konuyu gorebılırsınız bu yazdınız kodları ben vb.nete nasıl uyarılıyabılırım yardımcı olursanız sevınırım

İyi calısmalar...
1 2