Başlangıç > Kodlar > Visual Basic 6 ile Sequential dosyadan random dosyaya kopyalama yapan prosedür

Visual Basic 6 ile Sequential dosyadan random dosyaya kopyalama yapan prosedür


Kolay gelsin acaromer

Bilindiği gibi dosya çeşitleri random,sıralı ve index sıralı dosyalardır.Bu örnekte size
sıralı bir dosyadan random dosyaya aktarmayı yapan prosedürü anlatacağım..
İkinci prosedürde bunun tam tersini yapar.

Private Sub seq2rnd(seq_dosya As String, rnd_dosya As String)
Open seq_dosya For Input As #1
Open rnd_dosya For Random As #2 Len = Len(Kayit)
Do Until EOF(1)
Input #1, Kayit.Ad, Kayit.Soyad, Kayit.Tel
Put #2, , Kayit
Loop
Close
End Sub

Private Sub rnd2seq(rnd_dosya As String, seq_dosya As String)
Open rnd_dosya For Random As #1 Len = Len(Kayit)
Open seq_dosya For Output As #2
For i = 1 To LOF(1) / Len(Kayit)
Get #1, i, Kayit
Write #2, Trim(Kayit.Ad), Trim(Kayit.Soyad), Trim(Kayit.Tel)
Next
Close
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: