VISUAL BASIC İLE DOSYALAMA İŞLEMLERİ 2

Burada dosya kontrol fonksiyonlarını göreceğiz.

Dosya Kontrol Fonksiyonları

EOF(no)
Sıralı dosyalarda dosya sonuna gelinip gelinmediğini anlamak için kullanılır. Eğer dosya sonuna gelinmişse true değer gönderilir. Örnek olarak:

Private Sub Form_Load()
Dim ty
Open "c:\autoexec.bat" For Input As #1
Do
Line Input #1, isim 'satır satır okuma yapılıyor
ty = ty + isim
Loop While Not EOF(1) 'dosya sonu kontrol ediliyor
Text1 = ty 'okunan satırlar text1 kutusuna aktarılıyor
Close #1
End Sub

LOF(no)

Numarası verilen dosyanın byte olarak uzunluğunu verir. FileLen fonksiyonu ile aynı işi yapar. Tek farkı LOF ile boyutu öğrenilecek olan dosyanın “Open” komutuyla açılmış olması gerekir.

Private Sub Form_Load()
Dim ty
Open "c:\autoexec.bat" For Input As #1
Do
Line Input #1, isim 'satır satır okuma yapılıyor
ty = ty + isim
Loop While Not EOF(1) 'dosya sonu kontrol ediliyor
Text1 = ty 'okunan satırlar text1 kutusuna aktarılıyor
MsgBox LOF(1)’Dosyanın uzunluğu msgbox ile bildiriliyor.
Close #1
End Sub

Diğer Kontrol Fonksiyonları

Dosyalama işlemlerinde de işe yarayacak birkaç kontrol fonksiyonu daha vardır. Bunları aşağıda tek tek göreceğiz.

Ltrim

Verilen bir metinin solundaki boşlukları kaldırır.
Kullanımı:
Ltrim(Metin) şeklindedir.

Rtrim

Aynı şekilde verilen bir metinin sağındaki boşlukları kaldırır. Kullanım biriçimi Ltrim ile aynıdır.

Trim

Verilen bir metnin her iki tarafındaki boşlukları kaldırır. Kullanım biçimi aynıdır.

StrConv

Verilen bir metini belirlenen biçime dönüştürür.
Başlıca kullanılan modlar şunlardır.
VbProperCase : Verilen metinin ilk harfini büyük yapar.
VbLowerCase : Verilen metni küçük harfe çevirir.
VbUpperCase : Verilen metni büyük harfe çevirir.
VbUnicode : Verilen metinin ilk harfini gösterir.
Bunlardan başka;
VbFormunicode
VbHiragana
VbKatakana
VbNarrow
VbWide
Komutları kullanılır.

Right

Verilen metin içindeki n tane karakteri verir.
Örnek:
Dim a
A = right(“PcMagazine”,8)
Bu şekilde yazdığımızda sonuç “Magazine” olarak görüntülenecektir.

Left

Verilen metin içerisindeki soldan n tane karakteri verir. Kullanım biçimi aynıdır.

Len

Metin içerisindeki karakter sayısını verir.

Kullanımı: Len(Metin) biçimindedir.

InStr

Bu fonksiyon bir stringin içinde arama yapmaya yarar. Belirlenen bir karakterden başlayarak arama yapabilir.
Örnek olarak bir sürücü yolundaki sürücü harfini çıkaracak bir kod yazalım.

Private Sub Command1_Click()
Dim a, b
a = "C:\Program Files\Winamp\"
If InStr(a, "\") Then
b = Mid(a, 1, InStr(a, "\"))
MsgBox b
End If
End Sub

Bir sürücü yolundaki ilk “\” işareti sürücü harfinin sağındaki işaretttir. Bundan yola çıkarak ilk “\”’ı bulup mid komutuyla parçalayarak sürücü harfini çıkarttık. Burada Mid komutunu bilmeyenler için aşağıda açıkladım.

Mid

Mid komutu bir stringi parçalamaya yarar. Stringin başlangıcında belirlenen karaktere kadar olan bölümünün çıkartılmasını sağlar.
Kullanımı: Mid(String, Baslangic, Nereye Kadar) şeklindedir. Örnek olarak:

Dim a, b
a = "PcMagazine"
b = Mid(a, 1, 2)
MsgBox b

Şeklinde bir kod yazarsak “PcMagazine” içinde 1. karakterden 2. karaktere kadar olan yeri çıkarmış oluruz. Sonuçta Msgbox “Pc” degerinin gönderir.