Vb 6 kullanıyorum, dosyaya yazma konusunda bir sorunum var. Mesela dosyada &quot;merhaba&quot; kelimesini bulup, bir alt satırına &quot;naber&quot; yazsın istiyorum, dosyayı sıralı erişim modunda okuma için ayrı yazma için ayrı açıp &quot;naber&quot;'i buldurtuyorum fakat alt satıra geçip yazdırmayı yapamıyorum birtürlü, çünkü altsatıra nasıl geçildiğini bilmiyorum. Alt satıra nasıl geçerim? Ayrıca mesela dosyanın 4. satırına nasıl yazdırırırm? Bir de dosyanın sonuna nasıl yazdırırım?Dosyanın son cümlesinin yanına yazıyor kodları fakat bense dosyanın sonunda alt satıra geçip yazmasını istiyorum...

Cevabınız için teşekkürler... Visual basic'e yeni başladım sayılır dolayısıyla kodu yazabileceğimden şüpheliyim... Kelime bulmayı birinin yardımıyla öğrendim sayılır fakat kayıt uzunluğu ya da satır sayısını hesaplatmayı bilmiyorum...

merhaba oluşturmuş oldugun modul dosyasındaki değişkenlerin özelliklerini kullanacaksın. öncelikle kayıt uzunlugu ve satır sayısını hesaplamakla başlanacak. sonra munlara göre işlem yapacaksın mesela &quot;merhaba&quot; kelimesini buldurmak için önce kayıtı okutacaksın sonra karşılaştıracaksın. Sıralı mod için gecerli. Rastgele erişim kullansan daha kullanıclı olur. Bir alt satıra gecmek için &quot;naber&quot; in bulundugu satırı bulman gerek bunuda dosya değişkenleri ile yapabilirsin. bunu bulduktan sonra str+1 ile alt satıra gecip yazdırabilirsin. son yazdıgınıda yukarıda yazdığım şekilde çözebilirsin. Kodları vermedim hazıra alışırsan öyle gider ben bunun zorlugunu yaşadım kolaygelsin

küçükken yazmıştım yardımı dokunursa yazayım sana burası form kısmı Dim dgr As Integer Private Sub Command4_Click Command4. Visible = False Command5. Visible = True dgr = InputBox Get #1, dgr, alanlar kayitno = dgr Text2. Text = alanlar. ad Text3. Text = alanlar. soyad Text4. Text = alanlar. no Text5. Text = alanlar. tel End Sub Private Sub Command5_Click Command5. Visible = False Command4. Visible = True alanlar. ad = Text2. Text alanlar. soyad = Text3. Text alanlar. no = Text4. Text alanlar. tel = Text5. Text Put #1, dgr, alanlar End Sub Private Sub Form_Load Open &quot;c:\windows\apo. txt&quot; For Random As #1 Len = Len kayitno = LOF(1) / Len kayitno = kayitno + 1 For a = 1 To kayitno Get #1, a, alanlar List1. AddItem List2. AddItem List3. AddItem List4. AddItem Next End Sub Private Sub XpButton1_Click alanlar. ad = Text2. Text alanlar. soyad = Text3. Text alanlar. no = Text4. Text alanlar. tel = Text5. Text Put #1, kayitno, alanlar kayitno = kayitno + 1 Text2. Text = &quot;&quot; Text3. Text = &quot;&quot; Text4. Text = &quot;&quot; Text5. Text = &quot;&quot; List1. AddItem End Sub Private Sub XPButton2_Click oku = InputBox Get #1, oku, alanlar kayitno. Text = oku Text2. Text = alanlar. ad Text3. Text = alanlar. soyad Text4. Text = alanlar. no Text5. Text = alanlar. tel End Sub Private Sub XPButton3_Click sil = InputBox alanlar. ad = &quot;&quot; alanlar. soyad = &quot;&quot; alanlar. no = &quot;&quot; alanlar. tel = &quot;&quot; Put #1, sil, alanlar kayitno. Text = sil Text2. Text = &quot;&quot; Text3. Text = &quot;&quot; Text4. Text = &quot;&quot; Text5. Text = &quot;&quot; End Sub buda yukarda kullandığım modül Type apo ad As String 50 soyad As String 20 no As String 20 tel As String 20 End Type Global alanlar As apo takıldığın bi yer olursa sorarsın, dosya kayit sayısını herseferinde kontrol etmezsen yazdığın herşey bi sonrakinin üzerine yazlır, yukardaki kod işini görür, kırmızı ile yazdığım yer senin için can alıcı nokta

sana yardımcı olacagım tek konu kaynak göstermek olacaktır. yardım ederken sana kötülük etmek istemem böylece daha azimle birseyler yaparsın. www.vbasicmaster.com yada www.programlama.com adreslerine göz atmanı tavsiye ederim gerekli bütün bilgiler derler vs. var kolay gelsin bulamaz isen buradan yardımcı olmaya calışırım. kolaygelsin