Ouvrir un fichier dans plusieur textbox

**kokonaru** · 03/01/2013, 20h48

Bonsoir j'ai créer un prog où je rentre dans plusieur textbox des noms et je l'enregistre. Ensuite je n'arrive pas à l'ouvrir le fichier dans leurs textbox correspondant.
Par exemple :
nom1 : kokonaru
nom2 :toto

aprés l'enregistrement je veut que kokonaru s'ouvre dans nom1 et toto dans nom2. merci voici mon code

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
 
'' code pou enregistrer le fichier '' 
 Private Sub enregistrer_Click(sender As System.Object, e As System.EventArgs) Handles enregistrer.Click
 
        Dim savefile As New SaveFileDialog
        savefile.InitialDirectory = "c:\Users\kokonaru\Documents\Fichier ini test"
        savefile.DefaultExt = ".ini"
        savefile.FileName = ""
        savefile.Filter = "fichier de configuration  (*.ini)|*.ini"
        savefile.ShowDialog()
 
 
        Try
            Dim ecrire As New System.IO.StreamWriter(savefile.FileName)
 
            ecrire.WriteLine(tbx_dossier_eleve.Text)
            ecrire.WriteLine()
            ecrire.WriteLine(tbx_partage_eleve.Text)
            ecrire.Close()
 
            '' MessageBox.Show("Vous avez bien enregistrer   ", "Enregistrement", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
 
        Catch ex As Exception
 
        End Try
 
 
    End Sub
'' code l'ouverture du fichier '' 
    Private Sub tbx_dossier_eleve_TextChanged(sender As Object, e As EventArgs) Handles tbx_dossier_eleve.TextChanged
 
    End Sub
 
    Private Sub creer_Click(sender As Object, e As EventArgs) Handles creer.Click
        Dim openfile As New OpenFileDialog
        openfile.InitialDirectory = "c:\Users\kokonaru\Documents\Fichier ini test"
        openfile.DefaultExt = ".ini"
        openfile.Filter = "fichier de configuration  (*.ini)|*.ini"
        openfile.ShowDialog()
 
    End Sub

**Pol63** · 03/01/2013, 21h53

si tu fais
writeline(textbox1.text)
writeline()
writeline(textbox2.text)

il faut faire
textbox1.text = readline
rien = readline
textbox2.text = readline

**wallace1** · 03/01/2013, 22h26

Envoyé par kokonaru

Bonsoir j'ai créer un prog où je rentre dans plusieur textbox des noms et je l'enregistre. Ensuite je n'arrive pas à l'ouvrir le fichier dans leurs textbox correspondant.
Par exemple :
nom1 : kokonaru
nom2 :toto

aprés l'enregistrement je veut que kokonaru s'ouvre dans nom1 et toto dans nom2. merci voici mon code

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
 
'' code pou enregistrer le fichier '' 
 Private Sub enregistrer_Click(sender As System.Object, e As System.EventArgs) Handles enregistrer.Click
 
        Dim savefile As New SaveFileDialog
        savefile.InitialDirectory = "c:\Users\kokonaru\Documents\Fichier ini test"
        savefile.DefaultExt = ".ini"
        savefile.FileName = ""
        savefile.Filter = "fichier de configuration  (*.ini)|*.ini"
        savefile.ShowDialog()
 
 
        Try
            Dim ecrire As New System.IO.StreamWriter(savefile.FileName)
 
            ecrire.WriteLine(tbx_dossier_eleve.Text)
            ecrire.WriteLine()
            ecrire.WriteLine(tbx_partage_eleve.Text)
            ecrire.Close()
 
            '' MessageBox.Show("Vous avez bien enregistrer   ", "Enregistrement", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
 
        Catch ex As Exception
 
        End Try
 
 
    End Sub
'' code l'ouverture du fichier '' 
    Private Sub tbx_dossier_eleve_TextChanged(sender As Object, e As EventArgs) Handles tbx_dossier_eleve.TextChanged
 
    End Sub
 
    Private Sub creer_Click(sender As Object, e As EventArgs) Handles creer.Click
        Dim openfile As New OpenFileDialog
        openfile.InitialDirectory = "c:\Users\kokonaru\Documents\Fichier ini test"
        openfile.DefaultExt = ".ini"
        openfile.Filter = "fichier de configuration  (*.ini)|*.ini"
        openfile.ShowDialog()
 
    End Sub

C'est quoi exactement le but de toutes ces textbox ??
Voudrais-tu enregistrer des paramètres et les récupérer lorsque le programme s'ouvre ?

**kokonaru** · 04/01/2013, 17h57

C'est quoi exactement le but de toutes ces textbox ??
Voudrais-tu enregistrer des paramètres et les récupérer lorsque le programme s'ouvre ?
Hier 21h53

en gros oui c'est je enregistre les paramètres et lorsque je click sur ouvrir je veut que les paramètres s'ouvre

**wallace1** · 04/01/2013, 18h28

Envoyé par kokonaru

C'est quoi exactement le but de toutes ces textbox ??
Voudrais-tu enregistrer des paramètres et les récupérer lorsque le programme s'ouvre ?
Hier 21h53

en gros oui c'est je enregistre les paramètres et lorsque je click sur ouvrir je veut que les paramètres s'ouvre

Pourrais-tu être plus précis stp ??? je vois que tu enregistres des infrmations concernant "eleve" ...Y a t-il plusieurs élèves a enregistrer ??

**kokonaru** · 04/01/2013, 18h30

Envoyé par wallace1

Pourrais-tu être plus précis stp ??? Le fichier .ini que tu ouvres contient-til des paramètres qui affectent ton programme comme pourrait le faire le fichier de configuration : "my.settings" intégré dans Visual Studio ??

PS : le but de mes questions permet de mieux comprendre le besoin afin de voir s'il n'existe pas qqch de plus simple pour l'utilisation que tu souhaites en faire...

Non enfaite c'est un simple programme, en gros sa affecte rien. Juste t'ecris tes parametres ensuite tu les ouvres.

**wallace1** · 04/01/2013, 18h33

Envoyé par kokonaru

Non enfaite c'est un simple programme, en gros sa affecte rien. Juste t'ecris tes parametres ensuite tu les ouvres.

Je vois une textbox eleve...y en a t il plusieurs élèves ?? En fait comment est agencé ta fenêtre ? 1 screenshot éventuellement ??

**kokonaru** · 04/01/2013, 18h35

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub creer_Click(sender As Object, e As EventArgs) Handles creer.Click
 
        ' mettre dans le répertoire courant BIN\DEBUG 1 fichier contenant plusieurs lignes se nommant  doc.txt
        Dim p As New System.IO.StreamReader("c:\Users\kokonaru\Documents\Fichier ini test\ok.ini")
        tbx_dossier_eleve.Text = p.ReadLine()
 
        While p.Peek() >= 0
            tbx_dossier_eleve.Text = tbx_dossier_eleve.Text & p.ReadLine() & tbx_partage_eleve.Text & p.ReadLine() ' lecture
        End While
        p.Close()
 
    End Sub

voila mon code pour l'ouvrir mais le problème c'est le résultat s'affiche seulement dans le premier textbox ( tbux_dossier_eleve)

**kokonaru** · 04/01/2013, 18h39

http://www.imagup.com/data/1171986859.html

voici l'image du capture d’écran

**Guyome41** · 04/01/2013, 18h49

Code :

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

1
2
3
4
5
6
7
data = File.ReadAllText("c:\Users\kokonaru\Documents\Fichier ini test\ok.ini")
for i = 0 to data.Split(vbCrLf)
textbox1.text = data.Split(vbCrLf)(i)
textbox2.text = data.Split(vbCrLf)(i)
textbox3.text = data.Split(vbCrLf)(i)
...
next

**kokonaru** · 04/01/2013, 18h56

data tu le déclare en tant que quoi ?

**Guyome41** · 04/01/2013, 18h59

En tant que string pardon.

Edit: n'oublie pas d'importer system.io si se n'est pas déjà fait.

**wallace1** · 04/01/2013, 19h07

Envoyé par Guyome41

Code :

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

1
2
3
4
5
6
7
data = File.ReadAllText("c:\Users\kokonaru\Documents\Fichier ini test\ok.ini")
for i = 0 to data.Split(vbCrLf)
textbox1.text = data.Split(vbCrLf)(i)
textbox2.text = data.Split(vbCrLf)(i)
textbox3.text = data.Split(vbCrLf)(i)
...
next

Désolé je capte que dalle à ton truc ...de plus je ne comprends pas pourquoi tu utilises 1 fichier .ini alors que tu n'utilises pas sa structure : Section, clé, valeur ??

Je pense que ce qu'il te manque c'est la réflexion sur la manipulation de tes données, à mon sens en voyant : élève, prof, groupe,...etc... tu dois avant tout travailler sur une structure .xml ou .db ou .ini (une vraie à proprement parlé) avant de vouloir aller plus loin....
Quand des termes élèves/prof apparaissent dans 1 programme il me vient dors et déjà à l'esprit la création d'une base de données (même si elle peut être sous forme .xml/xsd). Donc les fonctions : Ajouter/supprimer doivent aussi obligatoirement apparaitre pour la gestion, ou sont-elles ??

Bonne continuation .

**kokonaru** · 04/01/2013, 19h07

j'ai une erreur dans cette ligne

Code :

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

For i = 0 To Data.Split(vbCrLf)

je compare i que j'ai déclarer en tant que decimal à data qui est un string.

voici l'erreur en question merci

Erreur 1 Impossible de convertir une valeur de type 'Tableau à 1 dimension(s) de String' en 'Decimal'. C:\Users\saji\Documents\Visual Studio 2012\Projects\gestionfichier2\gestionfichier2\Form1.vb 54 22 gestionfichier2

**kokonaru** · 04/01/2013, 19h10

Envoyé par wallace1

Désolé je capte que dalle à ton truc ...de plus je ne comprends pas pourquoi tu utilises 1 fichier .ini alors que tu n'utilises pas sa structure : Section, clé, valeur ??

Je pense que ce qu'il te manque c'est la réflexion sur la manipulation de tes données, à mon sens en voyant : élève, prof, groupe,...etc... tu dois avant tout travailler sur une structure .xml ou .db ou .ini (une vraie à proprement parlé) avant de vouloir aller plus loin....
Quand des termes élèves/prof apparaissent dans 1 programme il me vient dors et déjà à l'esprit la création d'une base de données (même si elle peut être sous forme .xml/xsd). Donc les fonctions : Ajouter/supprimer doivent aussi obligatoirement apparaitre pour la gestion, ou sont-elles ??

Bonne continuation .

Enfin le ini c'est moi qui l'utilise dans le cahier des charges c'est plutot un fichier text ( j'ai du mal à respecter le cahier des charges )

**rv26t** · 04/01/2013, 22h06

Bonjour,
Tu peux utiliser un dictionnaire pour regrouper tes données avant de les enregistrer
la clé étant le nom du textbox, la valeur le texte.

Déclaration du dictionnaire au niveau de la feuille

Code :

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

    Dim dicoTextBox As Dictionary(Of String, String) = New Dictionary(Of String, String)

Pour enregistrer tu parcours tous les conteneurs et tu ajoutes les info textbox au dictionnaire (NoteTextBox)
Ensuite tu sauvegardes tous les éléments du dictionnaire (SaveDico)

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
    Private Sub btnEnregistre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnregistre.Click
        dicoTextBox.Clear()
        NoteTextBox(Me, dicoTextBox)
        SaveDico(dicoTextBox)
    End Sub
 
    ''' <summary>Stoque toutes les données des textBox dans un dictionnaire.</summary>
    ''' <param name="conteneur">un conteneur de textbox (form, panel, groupbox)</param>
    ''' <param name="UnDico">le dictionnaire contenant => clé : "nom textbox", valeur : "texte du textbox".</param>
    ''' <remarks></remarks>
    Sub NoteTextBox(ByVal conteneur As Control, ByRef UnDico As Dictionary(Of String, String))
        For Each ctrl As Control In conteneur.Controls
            'select sur true (condition vrai), qui sera vérifié sur chaque case si "ctrl" correspond au type de controle 
            Select Case True
                Case TypeOf ctrl Is TextBox
                    UnDico.Add(ctrl.Name, ctrl.Text)
                Case TypeOf ctrl Is GroupBox
                    NoteTextBox(ctrl, UnDico)
                Case TypeOf ctrl Is Panel
                    NoteTextBox(ctrl, UnDico)
            End Select
        Next
    End Sub
 
    Sub SaveDico(ByVal UnDico As Dictionary(Of String, String))
        Dim savefile As New SaveFileDialog
        savefile.InitialDirectory = "D:\Projets\Data\"
        savefile.DefaultExt = ".txt"
        savefile.FileName = "fichierCfg"
        savefile.Filter = "fichier de configuration  (*.txt)|*.txt"
        savefile.ShowDialog()
        Try
            Dim ecrire As New System.IO.StreamWriter(savefile.FileName)
            For Each element As KeyValuePair(Of String, String) In UnDico
                ecrire.WriteLine("{0}|{1}", element.Key, element.Value)
            Next element
            ecrire.Close()
        Catch ex As Exception
 
        End Try
    End Sub

Pour lire les données tu charges le fichier dans le dictionnaire (loadDico)
Ensuite tu réaffectes les textes aux textbox en parcourant les conteneurs (AffTextBox)

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
    Private Sub frmTextbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AffTextBox(Me, loadDico)
    End Sub
 
    Function loadDico() As Dictionary(Of String, String)
        Dim UneLigne As String
        Dim UnDico As Dictionary(Of String, String) = New Dictionary(Of String, String)
        Try
            Dim srFichier As New System.IO.StreamReader("D:\Projets\Data\fichierCfg.txt")
            UneLigne = srFichier.ReadLine
            While Not UneLigne Is Nothing
                UnDico.Add(UneLigne.Split("|")(0), UneLigne.Split("|")(1))
                UneLigne = srFichier.ReadLine
            End While
            srFichier.Close()
        Catch ex As Exception
 
        End Try
        Return UnDico
    End Function
 
    Sub AffTextBox(ByVal conteneur As Control, ByRef UnDico As Dictionary(Of String, String))
        Try
            For Each ctrl As Control In conteneur.Controls
                'select sur true (condition vrai), qui sera vérifié sur chaque case si "ctrl" correspond au type de controle 
                Select Case True
                    Case TypeOf ctrl Is TextBox
                        ctrl.Text = UnDico(ctrl.Name)
                    Case TypeOf ctrl Is GroupBox
                        AffTextBox(ctrl, UnDico)
                    Case TypeOf ctrl Is Panel
                        AffTextBox(ctrl, UnDico)
                End Select
            Next
        Catch ex As Exception
 
        End Try
    End Sub

Note:attention j'ai modifié les chemins et noms de fichiers pour mes tests, pense a remettre les bons pour ton programme.

A+, Hervé.

**kokonaru** · 05/01/2013, 12h43

Merci mais j'ai pas bien compris la méthode que tu a utilisé mais elle marche parfaitement. Je n'arrive pas à effacer les textbox aprés l'avoir enregistrer

**kokonaru** · 05/01/2013, 13h36

Mais avec un dictionnaire je ne peut pas l'ouvrir dans un autre programme le fichier text.

par exemple j'ai un prog où j'enregistre les parametre dans un fichier text et j'ai un autre programme pour le visualiser.

Vu que c'est 2 programme différent le dictionnaire comment je dois l'utiliser merci

**rv26t** · 05/01/2013, 18h23

Por effacer les textbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Sub EffaceTextBox(ByVal conteneur As Control)
        For Each ctrl As Control In conteneur.Controls
            Select Case True
                Case TypeOf ctrl Is TextBox
                    ctrl.Text = ""
                Case TypeOf ctrl Is GroupBox
                    EffaceTextBox(ctrl)
                Case TypeOf ctrl Is Panel
                    EffaceTextBox(ctrl)
            End Select
        Next
    End Sub

Appel

Code :

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

1
2
3
4
        dicoTextBox.Clear()
        NoteTextBox(Me, dicoTextBox)
        SaveDico(dicoTextBox)
        EffaceTextBox(Me)

**rv26t** · 05/01/2013, 18h25

Envoyé par kokonaru

Mais avec un dictionnaire je ne peut pas l'ouvrir dans un autre programme le fichier text.

par exemple j'ai un prog où j'enregistre les parametre dans un fichier text et j'ai un autre programme pour le visualiser.

Vu que c'est 2 programme différent le dictionnaire comment je dois l'utiliser merci

Il fat que tu mettes la partie lecture dans ton autre programme.
Attention les textbox doivent porter les mêmes noms.

Sinon il faut adapter le code en utilisant par exemple la propriété tag des textbox pour les identifier.

Ouvrir un fichier dans plusieur textbox [Débutant]

VB.NET

Discussions similaires

Partager

Partager