DOSYA OLUŞTURMA
Yeni bir rastgele erişimli dosya oluştururken yine FileOpen metodundan faydalanılabilir. Dosyanın açılış biçimini belirtmek üzere kullanılan “OpenMode” metodu “Random” modunda kullanılmalıdır.
Örnek: Dosya oluşturarak “TextBox1” in içindeki veriyi dosya içerisine kaydedeceğiz.
-------------------------------------------------------------
FileOpen(1, dosyam, OpenMode.Random, Open.Access.Write)
FilePut(1, TextBox1.Text)
FileClose(1)
Msgbox("Dosya ’dosyam’ adı ile oluşturuldu.")
-------------------------------------------------------------
Kodumuz içindeki “FilePut(1, TextBox1.Text)” metodu ile “textbox1” in içindeki veriyi dosyaya aktardık.
FilePut Kullanımı:
FilePut(Dosya Numarası, Eklenecek bilgi, kayıt numarası)
Kayıt numarası verildiği takdirde eklenecek veri o numara ile kaydedilir.
DOSYA ÜZERİNDEN DÜZENLEME YAPMAK
Daha önceden var olan bir dosya üzerinde düzenleme yapmak için dosyamızı FileOpen metodu ile açarken OpenMode parametresini Random modu ile açmalıyız. Dosya içerisine ekleme yaparken ya ekleyeceğimiz kayıt numarasını belirtmeliyiz ya da LOF() fonksiyonu ile dosyanın sonuna eklemeliyiz.
-------------------------------------------------------------
FileOpen(1, dosyam, OpenMode.Random, Open.Access.Write)
FilePut(1, TextBox1.Text, LOF(1))
FileClose(1)
Msgbox("Dosya ’dosyam’ adı ile kaydedildi.")
-------------------------------------------------------------
DOSYADAN OKUMA YAPMAK
Daha önceden var olan bir dosya üzerinde düzenleme yapmak için dosyamızı FileOpen metodu ile açarken OpenMode parametresini Random modu ve OpenAccess parametresinin read modu ile açmalıyız.
-------------------------------------------------------------
FileOpen(1, dosyam, OpenMode.Random, Open.Access.Read)
FileGet(1, TextBox1.Text, LOF(1))
FileClose(1)
Msgbox("Dosya ’dosyam’ adı ile kaydedildi.")
-------------------------------------------------------------
Kodumuzdaki
FileGet(1, TextBox1.Text)
Metodu ile belirtilen numaralı dosya okunarak içeriği belirtilen değişkene aktarılır. FileGet metodunun kullanımı şu şekildedir:
FileGet(Dosya Numarası, Değişken Adı, Kayıt Numarası)
ÖRNEK:
Dosya uzantısı .plt olan bir not defteri yapalım. Formuza iki buton birde textbox koyalım
-------------------------------------------------------------
Imports System.IO
Public Class Form1
Dim notal As String
Dim notac As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _ Button1.Click
FileClose(1) ’daha önceden açık kalan varsa kapatıyoruz
FileOpen(1, Application.StartupPath & "\\dosya.plt", OpenMode.Random, OpenAccess.Write) ’dosya oluşturuyoruz
notal = TextBox1.Text ’değişkenimize değeri atıyoruz
FilePutObject(1, notal, 1) ’değişkenimizi aktarıyoruz
FileClose(1) ’tamamlayıp kapatıyoruz
TextBox1.Clear() ’textboxımızı temizliyoruz
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _ Button2.Click
If File.Exists(Application.StartupPath & "\\dosya.plt") = True Then ’dosyanın olup olmadığını kontrol ediyoruz varsa
FileOpen(1, Application.StartupPath & "\\dosya.plt", OpenMode.Random, OpenAccess.Read) ’dosyayı açıyoruz
FileGetObject(1, notac, 1) ’değişkeni alıyoruz
TextBox1.Text = notac ’textboxumuza değeri aktarıyoruz
FileClose(1) ’dosyayı kapatıyoruz
MsgBox("dosya açıldı") ’onay mesajı verdiriyoruz
Else ’ dosya yoksa
MsgBox("Dosya bulunamadı") ’hata mesajı verdiriyoruz
End If
End Sub
End Class
