[VB6] [Fichier] Enregistrer des variables de structure

Version imprimable

06/10/2002, 15h41
de.bo

[VB6] [Fichier] Enregistrer des variables de structure

j'ai un tableau, dans ce tableau j'ai plusieurs variable exemple :
nom d'une personne ,la date 'le jour et un compteur incrémental alors je voudrais créer un enregistrement sous forme de fichier ligne de texte ou de tableau pour récupérer ces infos à la demande par la suite comment puis je faire y a t'il une commande ou une fonction existante toute prête
qui répondrais à ma demande.
merci pour les solutions .
A+
06/10/2002, 16h29
Nektanebos
je crois pas tu dois soit enregistré dans un fichier séquentielle ou dans un fichier a acces direct

exemple
Code:

1 2 3 open "fichier" for append as #1 write #1, varnom,varprenom 'etc close
quand tu veux récuperer tu fais open "fichier" for input as #1
Code:

1 2 input #1, varnom,varprenom 'etc close
pour les fichier a acces direct c'est un peu plus compliquer

cherche de la doc j'ai pas envie de tt recopier :-p
06/10/2002, 16h54
Maxence HUBICHE

tu peux peut-être aussi faire, via les ADO, un reccordset fichier. Je sais que c'est faisable, mais je me souviens pas...comment.

Si ce sont des informations qui n'ont pas pour nécéssité de stocker une série d'informations, tu peux aussi t'orienter vers la saisie des informations dans la base de registre (voir SaveSetting et GetSetting)

Zemenasse propose une solution simple car enregistrer un recordset est très simple, cependant il faut en maitriser le reste de l'utilisation...

Pourquoi ne pas essayer un fichier random ?
Dans ton tableau, chaque ligne peut être contenu dans un élément de taille fixe.
Crée un type LigneTableau
Code:

1 2 3 4 5 6 Type LigneTableau Mom as string * 30 Prénom as string * 30 date as date .... end type
Dans lequel tu reprends chaque élément de ton tableau (colonne)

puis pour sauvegarder tu fais:
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim FichierSauvegarde as string FichierSauvegarde = App.path & "\RepSave\Sauvegarde.ext" pos = 1 Open FichierSauvegarde For Random As #1 Len = Len(EnrMemo) for ligne = 1 to maxlignetableau 'ici tu scannes ton tableau en mettant chaque ligne dans le LigneTableau 'puis tu enregistres le ligne dans le fichier random à la position pos Put #1, pos, EnrMemo pos = pos +1 next ligne close #1
Tu aboutis à un fichier qui a chaque position contient une ligne de ton tableau

L'idée est là à toi de personaliser ...

Caa me travaillais de ne pas retrouver comment ca marchait le truc des enregistrement fichier. ALors j'ai pondu un peu de code.
Je te donne ce que j'ai fait ci-dessous... si ca t'intéresse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'Pour créer le fichier
Sub RecordsetADODeconnecteCreate()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Fields.Append "Nom", adChar, 30
    rs.Fields.Append "Prenom", adChar, 30
    rs.Fields.Append "Date", adChar, 30
    rs.Open
    rs.Save "c:\stage\monrs", adPersistADTG         'Enregistrement propriétaire
    'rs.Save "c:\stage\monrs.xml", adPersistXML      'Enregistrement XML
    rs.Close
    Set rs = Nothing
End Sub
 
'Pour écrire des informations
Sub RecordsetADODeconnecteWriteIn()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "c:\stage\monrs"
    rs.AddNew Array("Nom", "Prenom", "Date"), Array("Durand", "Lucette", Date)
    'on aurait pu faire :
    'rs.AddNew
    'rs("Nom") = "Durand"
    'rs("Prenom") = "Lucette"
    'rs("Date") = Date
    rs.Update
    rs.Save ', adPersistXML    <= est à ajouter si sauvegarde au format 
    rs.Close
    Set rs = Nothing
End Sub
 
'Pour récupérer des informations
Sub RecordsetADODeconnecteRead()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "c:\stage\monrs"
    MsgBox rs("Nom") & vbCrLf & rs("Prenom") & vbCrLf & rs("Date")
    rs.Close
    Set rs = Nothing
End Sub