Ajouter un commentaire

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.

Filtered HTML

Plain text

CAPTCHA
Cette question permet de vérifier que vous n'êtes pas un robot spammeur :-)
  QQQ     GGG   L     U   U  PPPP  
Q Q G L U U P P
Q Q G GG L U U PPPP
Q QQ G G L U U P
QQQQ GGG LLLL UUU P
Q