J'ai enregistr=E9 le contenu de ma flexgrid dans un fichier
mais comment faire pour qu'=E0 l' activation de la fen=EAtre=20
il m'ouvre le fichier dans ma flexgrid en respectant ligne=20
et colonne?
code d'enregistrement
Private Sub cmdEnregistrer_Click()
Dim colonne As Integer
Dim ligne As Integer
Dim cptligne As Integer
Dim cptcolonne As Integer
Dim chaine As String
Dim emp
emp =3D App.Path
Open emp + "\nomfichier.txt" For Output As #1
colonne =3D Me.flex1.Cols
ligne =3D Me.flex1.Rows
For cptligne =3D 0 To ligne - 1
For cptcolonne =3D 0 To colonne - 1
chaine =3D chaine & Me.flex1.TextMatrix(cptligne, cptcolonne)
chaine =3D chaine & "|"
Next cptcolonne
Print #1, chaine
chaine =3D ""
Next cptligne
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
le_troll
Bonjour,
Pour lire, c'est "Input", sinon, exactement le contraire, en lisant les élemnt et en les extrayant comme ils ont été écrit dans le fichier...
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Ce message est plein de virus "certifiés" Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
"stargate" a écrit dans le message de news: 14f401c47bad$c3390870$ J'ai enregistré le contenu de ma flexgrid dans un fichier mais comment faire pour qu'à l' activation de la fenêtre il m'ouvre le fichier dans ma flexgrid en respectant ligne et colonne?
code d'enregistrement
Private Sub cmdEnregistrer_Click()
Dim colonne As Integer Dim ligne As Integer Dim cptligne As Integer Dim cptcolonne As Integer Dim chaine As String Dim emp
emp = App.Path
Open emp + "nomfichier.txt" For Output As #1 colonne = Me.flex1.Cols ligne = Me.flex1.Rows For cptligne = 0 To ligne - 1 For cptcolonne = 0 To colonne - 1 chaine = chaine & Me.flex1.TextMatrix(cptligne, cptcolonne) chaine = chaine & "|" Next cptcolonne Print #1, chaine chaine = "" Next cptligne
Close #1
End Sub
Bonjour,
Pour lire, c'est "Input", sinon, exactement le contraire, en lisant les
élemnt et en les extrayant comme ils ont été écrit dans le fichier...
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------
"stargate" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 14f401c47bad$c3390870$a401280a@phx.gbl...
J'ai enregistré le contenu de ma flexgrid dans un fichier
mais comment faire pour qu'à l' activation de la fenêtre
il m'ouvre le fichier dans ma flexgrid en respectant ligne
et colonne?
code d'enregistrement
Private Sub cmdEnregistrer_Click()
Dim colonne As Integer
Dim ligne As Integer
Dim cptligne As Integer
Dim cptcolonne As Integer
Dim chaine As String
Dim emp
emp = App.Path
Open emp + "nomfichier.txt" For Output As #1
colonne = Me.flex1.Cols
ligne = Me.flex1.Rows
For cptligne = 0 To ligne - 1
For cptcolonne = 0 To colonne - 1
chaine = chaine & Me.flex1.TextMatrix(cptligne, cptcolonne)
chaine = chaine & "|"
Next cptcolonne
Print #1, chaine
chaine = ""
Next cptligne
Pour lire, c'est "Input", sinon, exactement le contraire, en lisant les élemnt et en les extrayant comme ils ont été écrit dans le fichier...
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Ce message est plein de virus "certifiés" Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
"stargate" a écrit dans le message de news: 14f401c47bad$c3390870$ J'ai enregistré le contenu de ma flexgrid dans un fichier mais comment faire pour qu'à l' activation de la fenêtre il m'ouvre le fichier dans ma flexgrid en respectant ligne et colonne?
code d'enregistrement
Private Sub cmdEnregistrer_Click()
Dim colonne As Integer Dim ligne As Integer Dim cptligne As Integer Dim cptcolonne As Integer Dim chaine As String Dim emp
emp = App.Path
Open emp + "nomfichier.txt" For Output As #1 colonne = Me.flex1.Cols ligne = Me.flex1.Rows For cptligne = 0 To ligne - 1 For cptcolonne = 0 To colonne - 1 chaine = chaine & Me.flex1.TextMatrix(cptligne, cptcolonne) chaine = chaine & "|" Next cptcolonne Print #1, chaine chaine = "" Next cptligne
