V.Basic ve programlama-60

V.Basic ve programlama-60

Örnek:

Klavyeden öğrencinin numarası, adı, soyadı ve doğum tarihi girilsin, bunları dosyaya yazdıran uygulama:

Eğer output modu kullanılırsa her öğrenciyi girdiğimizde, daha önce

girilen bilgiler yok olacaktır. Bu nedenle Append kipi kullanılarak girile

cektir.

V.Basic ve programlama-61

Çözüm

Private Sub cmdEkle_Click() Dim ogrno As String Dim adi As String Dim soyadi As String

Dim dogum_tarihi As String

ogrno = InputBox("Öğr. No") adi = InputBox("adi")

soyadi = InputBox("Soyadi")

dogum_tarihi = InputBox("D. Tarihi")

Open "c:\a205\rehber.dat" For Append As #1 Write #1, ogrno, adi, soyadi, dogum_tarihi Close 1

End Sub

V.Basic ve programlama-62

Oluşan dosyanın (rehber.dat) içeriği

"91050099","Yahya","Demircan","08/05/1971"

"95050025","Tolga","Çolak","03/12/1978"

aynı bilgiler print # ile yazdırılsaydı dosyanın (rehber1.dat) içeriği aşağıdaki gibi olacaktı.

91050099 Yahya Demircan 08/05/1971

95050025 Tolga Çolak 03/12/1978

V.Basic ve programlama-63

Dosyadan Kayıt Okuma

Okuma işleminde iki çeşit yöntem vardır. Aslında dosyanın içeriğine göre değişmektedir. Print ile yazılmış ve write ile yazılmış dosyanın okunması farklılık göstermektedir. Dosya okuma komutu ikisinde de “Input #n” dir.

Dosya okuma işlemi ilk satirdan (kayıttan) başlayarak dosya sonunda yer alan

“dosya sonu” işaretine kadar devam eder. Her “Input #n” işelminde bir

sonraki kayıt okunur. Eğer dosya sonuna gelindi ise EOF(n) isimli fonksiyon geriye “True” değeri döndürecektir. Öyleyse EOF(n) sonucu True olana kadar

“Input #n” ifadesi tekrar edilir. Bu tekrar içinde en uygun olan döngü do-loop

döngüsüdür

V.Basic ve programlama-64

Dosyadan Kayıt Okuma

Bu yöntem write ile yazılan dosyanın okunmasını ifade eden durumdur. Her satırda bilgileri “,” ile ayrıldığından satırdaki bilgi sayısı kadar değişken gereklidir. Okunan her satır ve bu satırda yer alan bilgiler değişkenlerin içine aktarılır.

Dim ogrno As String Dim adi As String Dim soyadi As String

Dim dogum_tarihi As String

Open "c:\a205\rehber.dat" For Input As #1 Do Until EOF(1)

Input #1, ogrno,adi,soyadi,dogum_tarihi, picYaz.Print ogrno, adi, soyadi, dogum_tarihi Loop

Close 1

V.Basic ve programlama-65

Dosyadan Kayıt Güncelleme

Bu işlemi yapmak için direk bir yöntem yoktur. Bu işlem için geçici (Örn. “gecici.dat”) bir dosya kullanılır. Sırasıyla şunlar yapılır;

1.Okuma kipinde açılan esas dosyadan (“rehber.dat”) bilgiler sırayala okunur, okunan bilgilerden gerekli olan yada olanlarda düzeltme yapılır,

2. yazma kipinde açılan geçici dosyaya yazdırılır.

Tüm kayıtlar bittiğinde elimizde ilk haldeki “rehber.dat” ve güncellenmiş haldeki “gecici.dat” dosyası bulunmaktadır.

3. “rehber.dat” dosyası dosya silme (kill) komutu ile silinir.

Kill “c:\a205\rehber.dat”

4. “gecici.dat” dosyasının ismi dosya adı değiştirme (Name) komutu ile değiştirilir.

Name “c:\a205\gecici.dat” As “c:\a205\rehber.dat”

Böylece güncellenme işlemi yapılmış olacaktır.

V.Basic ve programlama-66

Dosyadan Kayıt Silme

Bu işlemi yapmak için direk bir yöntem yoktur. Bir önceki bölümde anlatılan yönteme çok benzeyen bit yöntemle kayıt silme yapılır. Bu işlem için geçici (Örn. “gecici.dat”) bir dosya kullanılır. Sırasıyla şunlar yapılır;

1. okuma kipinde açılan esas dosyadan (“rehber.dat”) bilgiler sırayala okunur, 2. yazma kipinde açılan geçici dosyaya yazdırılır (silinmesi istenilen kayıt hariç).

Tüm kayıtlar bittiğinde elimizde ilk haldeki “rehber.dat” ve silinmesini istediğimiz kaydı içermeyen “gecici.dat”

dosyası bulunmaktadır.

3. “rehber.dat” dosyası dosya silme (kill) komutu ile silinir.

Kill “c:\a205\rehber.dat”

4. “gecici.dat” dosyasının ismi dosya adı değiştirme (name) komutu ile değiştirilir.

Name “c:\a205\gecici.dat” As “c:\a205\rehber.dat”

Böylece istenilen kayıt silinmiş olacaktır.