hai ragione sn stato parecchio confusionario



If x.id >= 17 Then

r = 1
c = 0

Input #fn, x.data
flex.Row = r
flex.Col = c
flex.Text = x.data

End If

r = 1
c = 1

Do While Not EOF(fn)
Input #fn, x.data
x.id = x.id + 1

If x.id >= 17 Then
flex.Row = r
flex.Col = c
flex.Text = x.valori
c = c + 1
If c = 4 Then
c = 1
r = r + 1
End If
End If
Loop


Public Type giorno
id As Integer
data As Variant
filler1 As String * 4
valori As Variant
filler2 As String * 4
End Type

Public x As giorno


allora dovrebbe prendere cosa ce nella riga 17 e lo mette in r(1) c(0). Dopo lavora sovrascrivendo sempre sul solito campo del type valori, e in teoria dovrebbe scriverne il contenuto in r(1) c(1), poi c 2, 3, 4.. a questo punto torna alla colonna 1 e va alla riga successiva... solo che nn fa cosi