Sauver les données d'une applicationRésolu

Question

Je veut pouvoir sauver et lire les variables d'une utilisation d'application (text1, text2, et msflexgrid-2 lignes 3 colonnes) sous un fichier de données avec une structure ressemblant à ça: 25 0 10 moi 10 20 lui J'en ai marre ! J'y suis depuis pas mal de temps et j'arrive pas ! Merci Elios

Ficarcy0407 · Accepted Answer

[Javascript:Insert_Emoticon('./imgs2/smile_kisses.gif'); ]De
rien, mais clique sur le bouton comme quoi tu accepte ma reponse et que
ton probleme est r&#233;solu, ca mettra le sujet en vert et les gens sauront
qu'il n'ont plus besoin de t'aider ;-)



Apluss




Ficarcy, et le monde vous sourit

Pierre_faucon · Answer

Bonjour

Peut-&#234;tre un fichier .ini ferait-il l'affaire?

[text1]
25
[Text2]
Blabla
[MsFlexGrid]
...
...

Ok?

Pierre Fauconnier

Ficarcy0407 · Answer

Tiens essaye de faire un truc qui ressemble a cela : Pour ecrire la sauvegarde : Dim F As Integer Dim Nf As String F = FreeFile() Nf = "sauvegarde.xml" 'la tu met le nom de ton fichier de sauvegarde jai mis un .xml mais tu peut metre ce que tu veux Open Nf For Output As #F '---Pour Text1 Print #F, "" 'Ecrit la dans le fichier... Print #F, Text1.Text Print #F, "" '---fin text1 '---Pour Text2 Print #F, "" Print #F, Text2.Text Print #F, "" '---fin text2 Close #F 'Ferme le fichier texte Pour ouvrir la sauvegarde : Dim F As Integer Dim Nf As String Dim Lignes As String F = FreeFile() Nf = "sauvegarde.xml" 'la tu met le nom de ton fichier de sauvegarde jai mis un .xml mais tu peut metre ce que tu veux Open Nf For Input As #F 'Ouvre le fichier Do While Not EOF(F)'Fait une boucle qui li le fichier ligne par ligne tant que le fichier contient encore des donné Line Input #F, Lignes 'Met dans la variable "Lignes" la chaine de caractere qui a été lu '---------------------------------TEXT 1 If Lignes = "" Then 'Si la ligne est egale a il fait une boucle pour rajouter dans le text1 tout ce qui est entre les balise et Dim texa As String Do Until texa = "" Text1.Text = Text1.Text & vbCrLf & texa Line Input #F, texa Loop End If '-----------------------------------------fin text1 '---------------------------------TEXT 2 If Lignes = "" Then 'Si la ligne est egale a il fait une boucle pour rajouter dans le text1 tout ce qui est entre les balise et Dim texb As String Do Until texb = "" Text2.Text = Text2.Text & vbCrLf & texb Line Input #F, texb Loop End If '-----------------------------------------fin text2 'et Coetera Loop Close #F 'Ferme le fichier En esperant que cela pourat t'aider Ficarcy, et le monde vous sourit

cs_elios · Answer

Merci bc Ficarcy0407 ! Je pense que &#231;a va marcher ton code. Je le teste toute &#224; l'heure et je te tiens au courant.


Elios

cs_elios · Answer

T'&#233;tone pas de l'heure, je suis dans l'hemisph&#232;re sud avec trois heure de d&#233;calage avec vous. (GMT+4).
A+


Elios

cs_elios · Answer

Ca marche ! T'est un g&#233;ni Ficarcy0407 !!!



Elios

cs_elios · Answer

Merci de ton aide. J'&#233;tait obsed&#233; par l'autre  type de structure de donn&#233;es. Et puis j'avait peur de ne pas pouvoir stocker les donn&#233;es de la grille.
J'aime bien les format de donn&#233;e personalis&#233; (txt). Ca &#233;vite d'avoir des run-times &#224; gogo lors d'&#233;changes de progs.


Elios

Sauver les données d'une application

7 réponses

Discussions similaires