Discussion :

[jery87]

Bonjour a tous,
je suis un peu débutant en vb.net et j'ai déjà un problème auquel je dois faire face.
je veux enregistrer les données de certain textbox dans mon application sans avoir recours a une base de données pour la restitution des données enregistrer. de telle sorte que je puise avoir une application exécutable indépendante.

Merci davance

[ToshiroSama]

Sans avoir recours à une base de données .... un fichier XML ?

[jery87]

Merci
moi je voyais plutot un fichier .txt.
mè est ce qu'on peut l'intégré a l'exécutable de l'application de telle sorte que l'application ne dépende pas d'un fichier sur le disque en dehors de l'application?

[hunteshiva]

Bonjour,

tout dépand de la quantité de TextBox que tu a a sauvegarder,
il existe des variables internes a ton programme VB qui restent en mémoire.
(en vrai elles sont exportées dans un fichier XML mais c'est transparent pour toi)



aprés tu a toujours la soution .txt ou .csv (pour moins de 10.000 données)
je dev sur des .txt, je te laisse une fonction de lecteur

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Function Lire_Fichier_Texte(ByVal NomFichier As String) As String()
 
        ' ##############################################
        ' ######### Déclaration des variables ##########
        ' ##############################################
 
        Dim Data(0) As String           'variable retournée par la fonction
        Data(0) = "Erreur Texte"        'par défaut elle est en erreur
        Dim lines As List(Of String)    'lignes du fichier texte
 
 
        ' ##############################################
        ' ############ Recherche du fichier ############
        ' ##############################################
        If Not File.Exists(NomFichier) Then
            MsgBox("le fichier n'héxiste pas", MsgBoxStyle.Critical = vbOK, "Erreur sur le Fichier Texte")
            Data(0) = "Fichier inexistant"
            Return Data
        End If
 
        ' ##############################################
        ' ########## Lecture du fichier Texte ##########
        ' ##############################################
        Try
            lines = File.ReadAllLines(NomFichier).ToList
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical = vbOK, "Impossible de lire le fichier Texte")
            Return Data
        End Try
 
        If lines.Count = 0 Then
            MsgBox("le fichier est vide", MsgBoxStyle.Critical = vbOK, "Erreur sur le Fichier Texte")
            Return Data
        End If
 
        ' ##############################################
        ' #### Renvoie les lignes du fichier texte #####
        ' ##############################################
 
        ReDim Data(lines.Count - 1)
 
        For i As Integer = 0 To lines.Count - 1
            Data(i) = lines(i)
        Next
 
        Return Data
 
    End Function

et d'écriture

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
25
26
27
28
29
30
31
32
33
34
35
36
37
    Public Function Remplacer_Contenu_Fichier_Texte(ByVal NomFichier As String, ByRef Data As String()) As Integer
 
        Dim sWrite As StreamWriter = Nothing
 
        Try
            ' ##############################################
            ' ###### Supression du fichier s'il existe #####
            ' ##############################################
 
            If File.Exists(NomFichier) Then
                File.Delete(NomFichier)
            End If
 
            ' ##############################################
            ' ############ Création du fichier #############
            ' ##############################################
 
            sWrite = New StreamWriter(NomFichier) 'Remarque : On peut utiliser sw = File.AppendText(NomFichier) pour ajouter du texte à un fichier existant
 
            ' ##############################################
            ' ##### Ajout des données dans le fichier ######
            ' ##############################################
            For i As Integer = 0 To Data.Length - 1
                sWrite.WriteLine(Data(i))
            Next
 
            Return 1 ' retourne 1 pour dire que tout c'est bien passé
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical = vbOK, "Erreur Ecriture fichier Texte")
            Return 0 ' retourne 0 en cas d'erreur
        Finally
            'Fermeture streamwriter
            If Not IsNothing(sWrite) Then sWrite.Close()
        End Try
 
    End Function

PS: elles ne sont en Béta donc soyez indulgents


tu a les base de données embarquées tel que ACCESS ou SQLite *mais je pense pas que dans ton cas tu en ait besoin *

[Meiteisho]

Bonjour ,

Je ne pense pas que tu puisse enregistrer l'information "à l'intérieur de l'exécutable", tout simplement car il faudrait modifier celui ci alors qu'il est en cours d'exécution.

Tu dois donc avoir recours a un fichier plat (que cela soit un fichier .txt, .xml ou ce que tu veux)

[jery87]

Merci a tous d'être aussi prompte,
@hunteshiva j'analyse tous cela et je repond.