MsflexGrid / fichier txt

1 post / 0 new
ahmani24
MsflexGrid / fichier txt

Bojour a tous,
j ai un fichier texte (txt); qui contient des enregistrement de format :

a1
b1
c1

a2
b2
c2

a3
b3
c3

...
et jai developper un programme qui affiche ce ficheir dans la Msflexgrid sous format :
col1 col2 col3
a1 b1 c1
a2 b2 c2
a3 b3 c3

le voici

Dim ff As Integer
Dim i As Integer
Dim j As Integer

i = MSFlex.Rows
MSFlex.Cols = 4

ff = FreeFile
Open TonFichier For Input As #ff

Do While Not EOF(ff)
MSFlex.Rows = i + 1
For j = 0 To 3
If Not EOF(ff) Then
Input #ff, a$
MSFlex.TextMatrix(i, j) = a$
Else
Exit Do
End If
Next j
i = i + 1
Loop

Close #ff

est ce qu il ya qq qui peux ameliorer ce programme et mettre un boutton modifier supprimer un enregistrement.