eyw hocam simdi olayi cozdm :D "açık mı var la" yazdı diye ban yiyen adam!

rnegin windows dizininde abc. text war bunun icinde "kaynım bana kaydikaynim bana 5 dakkada 5 kere atladi" yazıor button1 e basldıgında windows dizinini alarak abc. txt dosyasinin sonuna 5 kerede daha atlasin yazirmak istiorm :D yani button1 e basıldığında "kaynım bana kaydikaynim bana 5 dakkada 5 kere atladi" yazan yazi "kaynım bana kaydikaynim bana 5 dakkada 5 kere atladi5 kerede daha atlasin " şeklinde olsun :D "açık mı var la" yazdı diye ban yiyen adam!

Private Sub Command1_Click Open "c:\deneme. txt" For Append As #1yazi = "kaynı 5 kere daha kaymış"Print #1, yaziClose #1End Subc'de deneme. txt diye bi dosya oluşturur, her çalıştığında o dosyanın bir alt satırına yazı değişkenine bağlı şeyi yazar

saol haci format attiktan sonra denicem pc bana yamuk yapıor anlamadm sebebini ama onu bunu kuramassin acamassn gibi deisik seyler dier downloadlar bitsin format ataym hele biPrivate Sub Command1_Click Open "c:\deneme. txt" For Append As #1yazi = text1. textPrint #1, yaziClose #1End Sub bu sekilde text1 deki yazıyı yazar dimi? bide Private Sub Command1_Click Open "c:\deneme. txt" For Append As #1yazi = text1. textyazi=tex2. text Print #1, yaziClose #1End Sub seklinde yaparsak once text1. text i yazıcak tekrar enter yapıp text2. text i yazıcak dimi? yoqsa yan yanami yazar yanyana yazarsa nasıl bi alt satira indircez. ama sanirim yanyana yazar :D "açık mı var la" yazdı diye ban yiyen adam!

biraz daha aciklayayip olay not tefteri gibi bise deil mesala text1 war button1 e basıldıgında en alt satıra inicek orda yapıp 1 alt satira daha inicek text1. text i oraya yapıştırcak kaydetcek kullanıcı sadece text1 i duzenlicek button1 basıcak baska bisi grmücek yada tiklamicak yani kaydedilsn gibi sorular sormasn :D "açık mı var la" yazdı diye ban yiyen adam!

yle yaparsan sadece text2'yi yazar sen yazi değişkenine text1'i atıyosun sonra text2'i atıyosun, text1 yalan oluyo ama onun da çaresi var.. Private Sub Command1_Click Open "c:\deneme. txt" For Append As #1yazi = text1. textPrint #1, yaziyazi2 = text2. textPrint #1, yazi2Close #1End Subbu nce text1'i yazar bir satır altına da text2'yi yazar