slm arkadaşlar ben text dosyalarda duzeltme işlemini yapamadım ve nedendir bilmm kafayı yeme durumuna geldim! kabaca bi proje yapıyorum::
Şimd ilk once aratma yapıyorum ve bulunan kayıtın tel numarası list1 de bulunuyor ve onu secip değiştirme işlemi yapmak istiyorum fakat sadece değiştirdiğim kayıt dosyada var diğerleri ucmuş bi şekilde karşıma geliyo. ben yazdığım kodları gonderecem!!
-------------------------------------
Open "Focuments and SettingsKadirBelgelerimcalışmalarımvisual basictext dosyalar calışmasıyedek.dat" For Output As #2
Open "Focuments and SettingsKadirBelgelerimcalışmalarımvisual basictext dosyalar calışmasıteldefteri.dat" For Input As #1
k = List1.List(List1.ListIndex)
Do Until EOF(1)
Input #1, ad, sad, tel
If k = tel Then
mesaj = MsgBox("Eminmisiniz???", vbYesNo, "Duzeltme Bilgi Kutusu")
If mesaj = vbYes Then
ad1 = InputBox("Yeni İSİM", "Yeni Kayıt")
sad1 = InputBox("Yeni SOYİSİM", "Yeni Kayıt")
tel1 = InputBox("Yeni TELEFON", "Yeni Kayıt")
List1.RemoveItem tel
List1.AddItem tel1
Write #2, ad1, sad1, tel1
Else
Write #2, ad, , sad, tel
End If
Else
Write #2, ad, , sad, tel
End If
Loop
Close #1
Close #2
Kill "Focuments and SettingsKadirBelgelerimcalışmalarımvisual basictext dosyalar calışmasıteldefteri.dat"
Name "Focuments and SettingsKadirBelgelerimcalışmalarımvisual basictext dosyalar calışmasıyedek.dat" As "Focuments and SettingsKadirBelgelerimcalışmalarımvisual basictext dosyalar calışmasıteldefteri.dat"
-------------------------------------------------------
arkadaşlar cevaplarınızı bekliorum!!!şimdiden teşekkurler...
__________________