Rastgele erişimli Dosyalarda İşlemler

[DeadGhost]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Visual Basıc'de Dosya Açmak


--------------------------------------------------------------------------------

Open Deyimi

Visual Basıc'de dosya açma komutu olarak open komutu kullanılır. Eğer dosya varsa dosyayı açar. Eğer dosya yoksa dosyayı yeniden oluşturur ve açar. Open Deyimiyle dosya Açılımı şu şekildedir;

Private Sub Form_Load()

Open "Kayıt.dat" For Random As #1 Len = Len(Textler)

Kayıt_numarası = LOF(1) / Len(Textler)

Kayıt_numarası = Kayıt_numarası+1

End Sub

Open deyiminin bulunduğu satırı Form_Load() yazmamızın nedeni Form yüklendiğinde dosyayı açtığından. Açılacak dosyanın adı "Kayıt.dat" olarak atandı.

Open deyimine parametre olarak verilen For Random ile dosyanın random yani rastegele erişimli olduğunu belirtir. Random dosyalarında dosyaların adları sayısal değer olarak atanır . Bu sayısal değer 1-255 arasında değer alır. Ayrıca dosya numarasının önüne # işareti konur. Bu dosyadaki dosya numarası 1 olarak alınmıştır.

Len(Textler) ise kaydın byte olarak büyüklüğünü belirler. LOF(1) fonksiyonuylada 1 dosyasının byte olarak uzunluğunu belirler.

Kayıt_numarası nın ilk değerini ... LOF(1) / Len(Textler) fonksiyonu ile ( Dosyanın uzunlugunun kaydın uzunluğuna bölünmesiyle) elde edilir. Kayıt yapıldıktan sonra kayıt numarası 1 artırılır

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.