zhmzhm
یک شنبه 24 آذر 1387, 23:14 عصر
سلام!بازم به کمک شما احتیاج دارم!میخوام اطلاعات یک فایل تکست رو بخونم و در یک جدول چاپ کنم، این فایل تکست یک سری سطر وستون از اعداد است.کد زیر رو نوشتم.اما مشکلی که دارم اینه که اگر در یک سطر تعداد ستونها کمتر از 7 تا بشه ستونهای باقیمانده سطر را با ستونهای اول سطر بعد پر میکنه و برنامه نمیتونه تشخیص بده که باید بره سطر بعد.لطفاً کمکم کنید برنامه رو درست کنم:ناراحت:
Private Sub jadval
Dim s60(21, 7) As Single
Dim i As Byte, j As Byte
Dim a0 As Single, a1 As Single, a2 As Single, a3 As Single, a4 As Single, a5 As Single, a6 As Single
MSFlexGrid1.Rows = 21
MSFlexGrid1.Cols = 7
'Open "E\New Text Document.txt" For Input As #1
For i = 0 To 20
MSFlexGrid1.Row = i
Input #1, a0, a1, a2, a3, a4, a5, a6
(s60(i, 0) = Val(a0
(s60(i, 1) = Val(a1
(s60(i, 2) = Val(a2
(s60(i, 3) = Val(a3
(s60(i, 4) = Val(a4
(s60(i, 5) = Val(a5
(s60(i, 6) = Val(a6
For j = 0 To 6
MSFlexGrid1.Col = j
((MSFlexGrid1.Text = Val(s60(i, j
Next j
Next i
Close #1
End Sub
Private Sub jadval
Dim s60(21, 7) As Single
Dim i As Byte, j As Byte
Dim a0 As Single, a1 As Single, a2 As Single, a3 As Single, a4 As Single, a5 As Single, a6 As Single
MSFlexGrid1.Rows = 21
MSFlexGrid1.Cols = 7
'Open "E\New Text Document.txt" For Input As #1
For i = 0 To 20
MSFlexGrid1.Row = i
Input #1, a0, a1, a2, a3, a4, a5, a6
(s60(i, 0) = Val(a0
(s60(i, 1) = Val(a1
(s60(i, 2) = Val(a2
(s60(i, 3) = Val(a3
(s60(i, 4) = Val(a4
(s60(i, 5) = Val(a5
(s60(i, 6) = Val(a6
For j = 0 To 6
MSFlexGrid1.Col = j
((MSFlexGrid1.Text = Val(s60(i, j
Next j
Next i
Close #1
End Sub