Discussion :

[flamel]

Bonjour,

Je cherche un modèle simple de création, écriture et lecture de fichier.
Je suis un amateur et je n'arrive pas à m'en sortir.
Je souhaiterais conserver des données saisies dans un logiciel que j'ai fait, afin de les retrouver lorsque l'on redémarre. Mon logiciel écrit des noms de personnes sur des photos au passage de la souris. Lorsque je ferme le logiciel, je perds mes données qui sont saisies simplement sur une ligne avec l'instruction 'split' et que je voudrais conserver.

Merci à qui me donnera un petit modèle de fichier, ou autre moyen de conserver les données.

Cordialement.

[SfJ5Rpw8]

ben cela dépends du nombre de données à sauvegarder...

tu peu par exemple utiliser un fichier .ini , voir
Comment lire / écrire dans un fichier .ini ?

[rv26t]

Bonjour,

mes données qui sont saisies simplement sur une ligne avec l'instruction 'split'

Une autre solution :
Si tu as un tableau (ce que laisse supposer l'utilisation de "split"), sauvegarde le directement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
'' -----------------------------------------------
Sub SauveDonnees()
Dim sNomFichier As String
Dim iNumFichier As Long
 
  sNomFichier = App.Path & "\donnees.bin"
  iNumFichier = FreeFile 'le prochain numéro de fichier libre pouvant être utilisé par l'instruction Open.
  Open sNomFichier For Binary As #iNumFichier
  Put #iNumFichier, , TableauDonnees ' enregistre le tableau
  Close #iNumFichier
End Sub
 
'' -----------------------------------------------
Sub LitDonnees()
Dim sNomFichier As String
Dim iNumFichier As Long
 
  sNomFichier = App.Path & "\donnees.bin"
  iNumFichier = FreeFile  'le prochain numéro de fichier libre
  Open sNomFichier For Binary As #iNumFichier
  Get #iNumFichier, , TableauDonnees ' lit le tableau
  Close #iNumFichier
End Sub

A+, Hervé

[flamel]

Merci rv26t

C'est ce que je cherchais. Je vais de suite essayer.
Quelles sont les instructions pour ajouter des termes à un fichier existant et pour supprimer le fichier ?

Merci aussi à bbil

Cordialement.

[rv26t]

Bonjour,

Quelles sont les instructions pour ajouter des termes à un fichier existant

En fait le fichier est vu comme un bloc constitué par le tableau.

Donc tu modifies ton tableau, et tu rappeles la procedure de sauvegarde ("SauveDonnees").
Le fichier est réécrit avec les nouvelles données.
L'avantage de cette méthode est quelle est très simple d'utilisation.

Maintenant si tu veux gérer ligne à ligne (pour écrire ou lire seulement une ligne), il faut utiliser une autre méthode. (ex:solution de bbil)
A+, Hervé.

[AdHoc]

Tu as également un bon petit tuto
Les bases de la gestion de fichiers

Pour effacer (= del en dos)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

kill "D:\MonFichierAEffacer.txt"

Tu peux également référencer la dll sccrun.dll (Microsoft Scripting Runtime) et déclarer des objets de type FileSystemObject avec moult méthodes et propriétés.

Par contre, réfléchis bien au devenir de ton logiciel (dont d'ailleurs je n'ai pas saisis la finalité, écrire = afficher ? 1 photo = 1 nom ou 1 zone photo =1 nom ?) car à mon avis tu es aux limites de la base de données (redondance d'information).