Comment enregistrer et réutiliser un tableau

Sev -  
 Utilisateur anonyme -
Bonjour,

J'ai un tableau qui associe une date selectionnée à un texte entré par l'utilisateur, je voulais savoir comment enregistrer et réutiliser ce tableau afin que l'utilisateur puisse récupérer le texte associé à l'aide d'un datetimepicker.

Visual Basic 2005
Merci par avance

3 réponses

  1. Utilisateur anonyme
     
    Bonjour,

    Il faut plus d'explication :

    Enregistrer dans un fichier ?
    Enregistrer dans une base de données ?
    Enregistrer en mémoire ?

    Quel est le type du tableau, ArrayList, List(), List(Of T), ... ?

    Cdt

    Lupin
    0
  2. Inconnu
     
    Ce serait pour enregistrer dans un fichier texte, en fait mon programme est un agenda et donc j'aimerai pouvoir enregistrer les rendez vous entrés par l'utilisateur lors de la fermeture du programme et les récupérer lors de la réouverture.

    Sinon pour le type de tableau c'est un simple tableau:
    "Structure agenda
    Dim dateevenement As Date
    Dim evenement As String
    End Structure
    Dim Tagenda(1000) As agenda "

    Merci par avance
    0
  3. Utilisateur anonyme
     
    re:

    Et dans quel Langage développes-tu ?

    en VBNET ça ressemblerait à ceci :

    n.b. J'ai utilisé une classe au lieu d'une structure,
    pour l'écriture c'est la même méthode.

    Public Sub EcrireFichier()
    
    	Dim Chemin As String = Application.ExecutablePath
    	Dim Position As Int32 = Chemin.LastIndexOf("\")
    	Dim Dossier As String = Chemin.Substring(0, (Position + 1))
    	Dim NomFichier As String = Dossier & "monfichier.txt"
    
    	Dim UnAgenda As New TAgenda
    	Dim LstAgenda As New List(Of TAgenda)
    	UnAgenda.DateAgenda = System.DateTime.Now
    	UnAgenda.Evenements = "MiseAJour"
    	LstAgenda.Add(UnAgenda)
    
    	Dim LeFichier As New StreamWriter(NomFichier, True)
    
    	Dim Boucle As Int32 = 0
    
    	For Boucle = 0 To LstAgenda.Count - 1
    		LeFichier.WriteLine(LstAgenda.Item(Boucle).DateAgenda.ToShortDateString)
    		LeFichier.WriteLine(LstAgenda.Item(Boucle).Evenements)
    	Next
    
    	LeFichier.Close()
    
    End Sub
    


    Cdt

    Lupin
    0