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

Merhaba Visual Basıc 6 bilen veya kullanan pek kalmadı malesef. Bende hobi amaçlı olarak kullanıyorum. Eğer ki kullanan varsa yardım isteyecektim lütfen. ' Function verisayisi Dim vsayi As Integer Open "c:\veri. txt" For Input As 1 Do While True If Not EOF(1) Then Input

Exit Sub End If Loop End Sub ' Kodlar Bu haliyle format 1) "koordinatlar arası ayırıcı ifade virgül" 668575.97,4267305.26,1415.44 format 2) "koordinatlar arası ayırıcı ifade boşluk" 668575.97 4267305.26 1415.44 bu 2 şekilde formatı okumaktadır. ihtiyaçtan dolayı 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