Txt ye kayıt

[ozdogan]

Merhaba.
C:/depo/bilgi.txt yolunda bit txt var.
Excelde hazırlamış olduğum bir veri formu ile bu bilgi.txt içine kayıt aktarmam lazım. Aramalarım sonucunda fatdfalı bilgiye ulaşamadım. yardımcı olursanız sevinirim.

Userform üzerinde 10 adet textbox ve 1 adet kaydet butonu mevcut.

bilgi.txt içinde ise alt alta yazılmıl olan
&sira=
&adi=
&soyadi=
&dtarih=
&ili=
...
...
...
...
şeklinde alanlar vardır.
İsteğim tektboxlara girdiğim verilerin sırayla bu alanlara gelmesidir. Bunun için nasıl bir kod uygulaması yapılmalıdır?
Saygılarımla....

 

[halit3]

örnek dosya koysandın iyi olurdu

aşağıdaki kodu bir dene

Open "C:/depo/bilgi.txt" For Append As #1
Print #1, sıra & adı
Close #1

 

[ozdogan]

Merhaba Halit Hocam. Böyle bir kod uymadı.
Örnek dosyalık bir durum yok aslında ortada.
örneğin
nasıl bir butona şöyle vir kod yazıp;
A1=textbox2.value
A2=textbox2.value
vs gibi yazıp textboxları excel hücresine aktarıyorsak
benim yapmak istediğim olaydada

&sira=textbox1.value
&adi=textbox2.value
şeklinde kaydet butonuna tıklayınca kayıtlar
bilgi.txt deki &sira &adi alanlarına kaydolcak.

örnek bir dosya hazırlasamda sadece bir üser form ve üzerinde 3-5 tane textbox ve hiçbir kodun bulunmadığı bir butondan ibaret olacak. Böyle boş bir formu eklersem heralde bana bayağı bi kızarsın

 

[Orion1]

Ayrıca örnek dosya eklemniz bizim kodları test etmemmiz açısısndan iyi oluyor.Yoksa bir yerde hat oluşursa onu göremeyiz.Örnek dosya eklerseniz hatyı görür düzeltiriz.Yoksa örnek dosyayıda bizmi hazırlayalım.Siz forumla berabaer yollayın nihayetinde forumfdan txt dosyasına veri girilmeyecekmi?
C direktöründe depo isimli klasörünüzün olması lazım.
Halit beyin yazdığı kodu aşağıdaki gibi yapın.

Open "C:\depo\bilgi.txt" For Append As #1
Print #1, Textbox1.text,textbox2.text,[COLOR="Blue"]buralarada ayni mantıkla diğer kayıt edileck textboxları yazın.[/COLOR]
Close #1

 

[haso_excel]

Bir dosya ekledim, Sadece A kolonuna gelecek veri için yaptım siz kendinize göre diğerlerini ekleyebilirsiniz.

 

[halit3]

Merhaba Halit Hocam. Böyle bir kod uymadı.
Örnek dosyalık bir durum yok aslında ortada.
örneğin
nasıl bir butona şöyle vir kod yazıp;
A1=textbox2.value
A2=textbox2.value
vs gibi yazıp textboxları excel hücresine aktarıyorsak
benim yapmak istediğim olaydada

&sira=textbox1.value
&adi=textbox2.value
şeklinde kaydet butonuna tıklayınca kayıtlar
bilgi.txt deki &sira &adi alanlarına kaydolcak.

örnek bir dosya hazırlasamda sadece bir üser form ve üzerinde 3-5 tane textbox ve hiçbir kodun bulunmadığı bir butondan ibaret olacak. Böyle boş bir formu eklersem heralde bana bayağı bi kızarsın

buna benzer konu daha önce aşağıdaki linkte incelendi bir bakarmısınız.?

http://www.excel.web.tr/showthread.php?p=413520#post413520

 

[ozdogan]

Teşekkür ediyorum, Kod işe yaradı fakat istediğimi vermedi. Aslında verdi ama ikinci hatta üçüncü ek iş yapmadan istediğim sonucu elde edemiyorum. Bende en asit yoldan textleri excele aktardım.

örneğin;
Cells(Say + 1, 1).Value = "&adi=" + TextBox1.Value + "&"
şeklinde yazarak excele aktardım.
daha sonra exceli metin olarakl farklı kaydetten kaydettim ve istediğim sonuca ulaştım.

Ayrıca Evren hocam bende biliyorum örnek bir dosya eklemek daha faydalı, yine ayrıca tabiki onuda siz yapın diycek değilim ama, evde internet yoktu, arkadaştan girmiştim, usb girişi bozuk ve pc sinde excel yoktu. oyüzden ekleyemedim yoksa tabiki eklerim.
Hepinize kolay gelsin.