Sauvegarde flexgrid
ocejade17
Messages postés
12
Statut
Membre
-
ocejade17 Messages postés 12 Statut Membre -
ocejade17 Messages postés 12 Statut Membre -
Bonjour,
je suis a la recherche d une personne qui puisse m aider pour un problème de sauvegarde du contenue d un flexgrid
je m explique j ais un flexgrid ou je peut avoir de 1 ligne a 31 ligne cela varie selon le moment ou l on veut sauvegarder mois ce que je voudrais c est quant on clique son ma commande " enregistre" que tous les linges afficher a se moment la dans le flexgrid soit sauvegarder dans mon fichier texte ( relever.txt) .
pour l instant avec le code qui suit je ne peut enregistrer que deux lignes
Private Sub Command3_Click()
Dim m As Integer
For b = 0 To 1
a = 2 + b
m = FreeFile
Open "relever.txt" For Output As #m
Print #m, MSFlexGrid1.TextMatrix(2, 0) & " , " & MSFlexGrid1.TextMatrix(2, 1) & " , " & MSFlexGrid1.TextMatrix(2, 2) & " , " & MSFlexGrid1.TextMatrix(2, 3) & " , " & MSFlexGrid1.TextMatrix(2, 4) & ", " & MSFlexGrid1.TextMatrix(2, 5) & vbCrLf
Print #m, MSFlexGrid1.TextMatrix(a, 0) & " , " & MSFlexGrid1.TextMatrix(a, 1) & " , " & MSFlexGrid1.TextMatrix(a, 2) & " , " & MSFlexGrid1.TextMatrix(a, 3) & " , " & MSFlexGrid1.TextMatrix(a, 4) & ", " & MSFlexGrid1.TextMatrix(a, 5) & vbCrLf
Close #m
Next b
End Sub
le format de mon fichier texte est " 14/01/2009 , 00 h 00 , 00 h 00 , 0 h 0 , -6 h -30, 6 h 0"
j espère avoir été clair et vous remercie d avance
je suis a la recherche d une personne qui puisse m aider pour un problème de sauvegarde du contenue d un flexgrid
je m explique j ais un flexgrid ou je peut avoir de 1 ligne a 31 ligne cela varie selon le moment ou l on veut sauvegarder mois ce que je voudrais c est quant on clique son ma commande " enregistre" que tous les linges afficher a se moment la dans le flexgrid soit sauvegarder dans mon fichier texte ( relever.txt) .
pour l instant avec le code qui suit je ne peut enregistrer que deux lignes
Private Sub Command3_Click()
Dim m As Integer
For b = 0 To 1
a = 2 + b
m = FreeFile
Open "relever.txt" For Output As #m
Print #m, MSFlexGrid1.TextMatrix(2, 0) & " , " & MSFlexGrid1.TextMatrix(2, 1) & " , " & MSFlexGrid1.TextMatrix(2, 2) & " , " & MSFlexGrid1.TextMatrix(2, 3) & " , " & MSFlexGrid1.TextMatrix(2, 4) & ", " & MSFlexGrid1.TextMatrix(2, 5) & vbCrLf
Print #m, MSFlexGrid1.TextMatrix(a, 0) & " , " & MSFlexGrid1.TextMatrix(a, 1) & " , " & MSFlexGrid1.TextMatrix(a, 2) & " , " & MSFlexGrid1.TextMatrix(a, 3) & " , " & MSFlexGrid1.TextMatrix(a, 4) & ", " & MSFlexGrid1.TextMatrix(a, 5) & vbCrLf
Close #m
Next b
End Sub
le format de mon fichier texte est " 14/01/2009 , 00 h 00 , 00 h 00 , 0 h 0 , -6 h -30, 6 h 0"
j espère avoir été clair et vous remercie d avance
Configuration: Windows Vista Firefox 3.0.6
1 réponse
-
il faut que tu ouvres ton fichier en ecriture
ensuite que tu boucles sur chaque row de ton msdatagrid1 avec ton for... next
ensuite que tu boucles sur chaque col de ton msdatagrid1 avec un autre for... next
ca ferait un truc du genre (si ligne 0 contient les titres)
tu ouvres ton fichier en ecriture
open "relever.text" for outuput as #m
tu boucles sur tes lignes
for w=0 to msflexgrid1.rows-1
for y=0 to msflexgrid1.cols-1
ligne=ligne & msflexgrid(w,y) & ", "
next y
ligne=ligne & vbcrlf
print #m ligne
ligne=""
next w
close #m
en espérant avoir répondu à ta question.-
bonjour a toi yakov
je te remercie pour ta rapidité a me répondre
j ais juste modifie un peut t on code comme ce qui suit
Open "relever.txt" For Output As #m
For w = 2 To MSFlexGrid1.Rows - 1
For y = 0 To MSFlexGrid1.Cols - 2
ligne = ligne & MSFlexGrid1.TextMatrix(w, y) & ", "
Next y
ligne = ligne
Print #m, ligne
ligne = ""
Next w
Close #m
ET SA MARCHE SUPER BIEN ENFIN LA DÉLIVRANCE MERCI MERCI MERCI
-
