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

Ouvrir un fichier dans plusieur textbox [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager