txt dosyasına sıralı veri yazdırmak

[kenanyuk]

mevcut bir txt dosyasına sıralı ve bir önceki kaydın sonundan başlayarak
hangi komutu kullanarak kayıt yapabilirim
print #
write #
önceki kayıtları siliyor
yardımcı olursanız sevinirim

 

[Recep İpek]

Bunun için TXT dosyasını Append komutu ile açmanız gerekmektedir.

Aşağıdaki kodları kendinize göre uyarlayabilirsiniz.

Private Sub CommandButton1_Click()
dosya = "C:\Yedek\DATA.TXT"
Open [b][color=red]dosya[/b][/color] For [b][color=red]Append[/color][/b] As #1
Print #1, [A2], [B2], [C2], [D2]    'veya Textbox1 ,Textbox2.....
Close #1
MsgBox "Verileriniz " & dosya & " Dosyasına Kaydetildi."
End Sub

 

[kenanyuk]

ben kendim buldum

append ile açmak gerekiyormuş
ama şimdi başka sorunum var bölgesel ayarlar kullanılmadan virgülleri noktaya çeviremedim

 

[kenanyuk]

teşekkürler

ama şimdi başka sorunum var bölgesel ayarlar kullanılmadan virgülleri noktaya çeviremedim

kendim buldum diye mesaj yazdım kusura bakmayın gönderdiğiniz mesajı görmemiştim henüz
tekrar teşekkürler ilginize

 

[ocamsul]

Private Sub CommandButton1_Click()
dosya = "C:\Yedek\DATA.TXT"
Open dosya For Append As #1
Print #1, [A2], [B2], [C2], [D2] 'veya Textbox1 ,Textbox2.....
Close #1
MsgBox "Verileriniz " & dosya & " Dosyasına Kaydetildi."
End Sub

Arkadaşlar merhabalar. bu kodu kullandım. ancak hücre boş ise dolu olanı boş hücre içine alıyo "TXT sayfasında." bu durumu nasıl düzeltebiliriz? yani sütun içi boş ise o sütunu boş geçecek.