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
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
'--------------
Merhaba
ihtiyaçtan dolayı yukarıdaki kodlarla alakalı olarak, sütün sayısını 4'e çıkarmam gerekti.
malum kodlara c'nin yanına d ve v3'ün yanına v4'ü ve ayrıca
MSFlexGrid1.Col = sutun + 3
MSFlexGrid1.Text = v4
gibi eklemeleri yaptım. programı çalıştırdığımda,
Format 1) "koordinatlar arası ayırıcı ifade virgül"
hjhj,668575.97,4267305.26,1415.44
bu dosyayı okumakta sorun olmamaktadır.
tekrar çalıştırdıktan sonra 2ci denememde
Format 2) "koordinatlar arası ayırıcı ifade boşluk"
aaa 668575.97 4267305.26 1415.44
bu dosyayı okumamaktadır kodlar hata vermektedir. Hata Verdiği kısım:
Input #1, a, b, c, d
kodlarının bulunduğu kısımdır. kodları incelediğimde:
a) 4267305.26
b) 1415.44
c) aaa 668575.97 4267305.26 1415.44
d) BOŞ uyarısı çıkıyor.
şeklinde oluyor. bu hatayı nasıl düzeltebilirim ?
not: kodları visual basıc 6 olarak yardımcı olursanız sevinirim. "vb.net" bilmiyorum.
not: aynı sorunun devamı olduğu için yeni konu açmak istemedim.
Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme
Bu Konudaki Yorumlar |
Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme - Yazar: ikayserili - 04/02/2021, 19:09
Re: Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme - Yazar: atoykan - 04/02/2021, 21:18
RE: Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme - Yazar: ikayserili - 06/02/2021, 16:12
RE: Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme - Yazar: ikayserili - 09/02/2021, 23:47
RE: Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme - Yazar: ikayserili - 10/02/2021, 00:12
|
Konuyu Okuyanlar: 1 Ziyaretçi