Oncelikle 3 sutundan oluşan bir veri dosyası oluşturalım ve bu dosyayı C: dizinine veri.txt olarak kaydedelim.



Oluşturduğumuz bu dosyadaki veri sayısı onemli değildir. Ben burada veri sayısını 35 olarak aldım. Şimdi formumuza 1 adet listbox, bir adet command button ekleyelim. Listbox kutusunun visible ozelliğini false yapalım ve gizleyelim. Daha sonra project menusunde components den Microsoft Flexgrid control 6.0'ı projemize ekleyelim ve forma bir adet flexgrid nesnesi ekleyelim. Bu nesnemizin ozelliklerini aşağıdaki gibi değiştirelim;
Fixedcols=0
Cols=3
Rows=10
Burada rows ozelliğine istediğiniz değeri verebilirsiniz.

Şimdi kod yazmaya başlayalım. Oncelikle bir fonksiyon tanımlayarak veri sayımızı hesaplayalım;
Function verisayisi()
Dim vsayi As Integer
Open "c:\veri.txt" For Input As 1
Do While True
If Not EOF(1) Then
Input #1, a, b, c
List1.AddItem a
vsayi = List1.ListCount
Else
Close #1
MSFlexGrid1.Rows = vsayi + 1
Exit Function
End If
Loop
End Function

Buradaki kodları kısaca acıklayacak olursak; veri.txt dosyamızı acıyoruz ve dosyadaki 3 sutunu a, b ve c olarak okuyoruz. a sutunundaki verileri listbox nesnesine ekliyoruz ve listcount ozelliğini kullanarak veri sayısını elde ediyoruz. Daha sonra bu veri sayısını kullanarak flexgrid nesnemizin kac satırdan oluşacağını belirliyoruz. Şimdi verileri MsflexGrid nesnemize ekleyelim. Bunun icin aşağıdaki kod yordamını hazırladım;

Private Sub Command1_Click()
Dim v1, v2, v3 As Double
Dim satir, sutun As Integer
verisayisi
Open "c:\veri.txt" For Input As 1
satir = 1
sutun = 0
Do While True
If Not EOF(1) Then
Input #1, v1
Input #1, v2
Input #1, v3
MSFlexGrid1.Row = satir
MSFlexGrid1.Col = sutun
MSFlexGrid1.Text = v1
MSFlexGrid1.Col = sutun + 1
MSFlexGrid1.Text = v2
MSFlexGrid1.Col = sutun + 2
MSFlexGrid1.Text = v3
satir = satir + 1
sutun = 0
Else
Close #1
Exit Sub
End If
Loop
End Sub

Burada ilk olarak dosyadaki veriler icin v1, v2 ve v3 değişkenlerini daha sonra da flexgrid nesnesinin satır ve sutun değişkenlerini tanımlıyoruz. Yukarıda yazdığımız veri sayısı fonksiyonunu kullanarak dosyadaki veri sayısını belirliyoruz. FlexGrid nesnemize ilk olarak 1. satır 0. sutundan yazmaya başlayacağımız icin satır ve sutun değişkenlerimize 1 ve 0 değerlerini atıyoruz. Do while dongusunu kullanarak dosyamızın icindeki verileri okuyoruz. Msflexgrid nesnemize yazma işlemimiz ise şu şekilde devam ediyor; İlk olarak 1. satırın tum hucrelerine 1 satırdaki 3 veriyi yazıyoruz (satır değişkenini sabit tutup sutun değişkenini 1'er arttırıyoruz.). Daha sonra satir değişkenini bir arttırarak 2. satıra geciyoruz ve sutun değişkenine 0 değeri vererek ilk sutuna geri donuyoruz. Do while dongusu icinde bu işlemi dosyadaki son veriye kadar yapıyoruz ve tum verilerimizi MsflexGrid nesnemize aktarmış oluyoruz.
Sizde bu bilgileri kullanarak yeni projeler hazırlayabilirsiniz. Hepinize iyi calışmalar...


__________________