1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Sauvegarder quelque chose avec plusieurs extension en une fois (utile quand il y a plusieurs éléments différents et que quan

Sauvegarder quelque chose avec plusieurs extension en une fois (utile quand il y a plusieurs éléments différents et que quan

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 882 fois - Téléchargée 28 fois

Commenter

Contenu du snippet

En fait j'ai rencontrer un pb l'autre fois j'ai voulu sauvegarder une Listview, une structure, 1 textbox à l'aide de OpenFileDialog et en fait rien que quand j'ai restaurer ma ListView à l'aide de la réponse sur le forum (http://www.vbfrance.com/forum.v2.aspx?ID=231728) et bah en fait ca me restaurer ds ma Listview L'equivalent de la sauvegarde de la TextBox (Je sais pô si vs piger)lolllllll Compliké à expliquer!!!!!!!

Dc en fait j'ai du me servir de deux extensions (Hor & HorTemp) en un clic sur sur le bouton enregistrer Bref ca aussi compliké à expliquer Il vaut mieu regarder le le code vs comprendrez mieu

Source / Exemple : 


' Pour ENREGISTRER
 Dim retour As Integer
        Retour = SaveFileDialog_ListView.ShowDialog()
        If Retour = 1 Then

' Met en mémoir la structure
            With ObjTotal
                .StructureConversionMinute = Label_MinutesConverti.Text
                .StructureTotalHeure = Label_TotalHeure.Text
                .StructureTotalMinute = Label_TotalMinute.Text
            End With

' Sauvegarde la Listview ds la variable "Save_Listview"
            Dim i As Integer
            Dim Save_Listview as string
            Save_Listview = "" ' On réinitialise la variable
            For i = 0 To ListView.Items.Count - 1
                Save_Listview = Save_Listview & ListView.Items(i).SubItems(0).Text & "|" & ListView.Items(i).SubItems(1).Text & "|" & ListView.Items(i).SubItems(2).Text & "|" & ListView.Items(i).SubItems(3).Text & "|" & ListView.Items(i).SubItems(4).Text & vbCrLf
            Next i

' Maintenant on sauvegarde le premier fichier
           FileOpen(1, SaveFileDialog.FileName, OpenMode.Binary)  
          FilePut(1, Save_Listview)
FileClose(1)

' Maintenant on créer Une TextBox invisible
            TextBox_NewExtension.Text = ""
            TextBox_NewExtension.Text = SaveFileDialog.FileName & "Temps"

'Sauvegarde le deuxième fichier
            FileOpen(1, TextBox_NewExtension.Text, OpenMode.Binary)
            FilePut(1, ObjTotal)
            FileClose(1)

'Et pour l'ouvrir
Dim Retour as integer
Retour = OpenFiledialog.ShowDialog()
        If Retour = 1 Then
'On ouvre le premier fichier
            FileOpen(1, OpenFiledialog.FileName, OpenMode.Binary) 
            FileClose(1)

            TextBox_NewExtension.Text = ""
            TextBox_NewExtension.Text = OpenFiledialog.FileName & "Temps"

'On ouvre le deuxième
            FileOpen(1, TextBox_NewExtension.Text, OpenMode.Binary)
            FileGet(1, ObjTotal)   
         FileClose(1)

'recharge la ListView
            Dim LVI As ListViewItem 'Variable qui ajouter ou retire les éléments de la Listview
            Dim val() As String
            Dim fs As New IO.FileStream OpenFiledialog.FileName,IO.FileMode.Open)
            Dim str As New IO.StreamReader(fs)
            Dim i As Integer
            Do Until str.Peek = -1
                val = str.ReadLine.Split("|")
                LVI = ListView.Items.Add(val(0))
                For i = 1 To val.Length - 1
                    LVI.SubItems.Add(val(i))
                Next  
            Loop
            str.Close()
            fs.Close()

'Recharge la structure
            Label_MinutesConverti.Text = ObjTotal.StructureConversionMinute
            Label_TotalHeure.Text = ObjTotal.StructureTotalHeure
            Label_TotalMinute.Text = ObjTotal.StructureTotalMinute

Conclusion :


Cependant si vs avez de meilleurs propositions je suis preneur

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
723
Date d'inscription
dimanche 26 novembre 2006
Statut
Membre
Dernière intervention
23 janvier 2013
 3
Salut, euh, dans la ligne 18, il met un erreur? vous avez une solution?
Signaler
Messages postés
7
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
20 janvier 2005
En fait jai trouver, merci qd meme.... Ce que jai fai c que jai enregistrer ds un fichiet.txt et ensuite je les ai charger : tres simple mais comme g 100 fichier alors ca me fé enormément de fichier.txt.... l'essenciel c que ca marche.
Parcontre mon plus gros probleme c'est :
Ce que je veu faire c'est que lorsque je quitte le programme et que je le relance un peu plus tard, il me garde tout tel que cété :COMMENT FAIRE.

Parcontre vous pouvez me donner des exemple svp je debute... Au fait je suis en vb.net..... Merci beaucoup
Signaler
Messages postés
440
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
 1
A tu essayé d'enregistrer ca ds des structures puis ensuite d'enregistrer les structures??????????????????
Signaler
Messages postés
7
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
20 janvier 2005
Salut.... Simpas le code.... Parcontre j'aurai une question, voila je suis debutant et je suis sur un projet...
J'ai 2 RichTextBox ou je met des commentaire different dans chacun d'eux... et le probleme c'est que je doit ensuite en cilquant sur un bouton Save enregistrer ces commentaire ( sachant qu'il sont independant c'esta dire qu'il n'y a pas marqué la meme chose ) et pouvoir les charger ensuite pour qu'il se place dans leur case correspondante... Est ce que vous pourrier m'aider svp a trouver un moyen d'enregistrer et de charger.... Merci d'avance.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ludovicanceaux)