Discussion :

[samiasamia]

Salut,

J’ai un form contient groupbox qui contient un ensemble de text box et un bouton lorsque je click sur le bouton les information de groupbox( contenue de textbox) sera afficher dans un fichier
Ca marche
Mon problème est lorsque l’implémente autre fois je tiens que le contenue sera afficher dans un autre fichier sachant que chaque fichier à sa propre nom.

Aidez-moi SVP

[azstar]

salam;

tu peut me donner quelque lignes de ton code que je puis te suivre ?


et merci

[samiasamia]

Ok voila :

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
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fw = New StreamWriter(GroupBox1.Text + ".txt", True)
        Dim X As Object
          X = New Agent
        X.idam = Me.idam.Text
        fw.WriteLine(Me.idam.Text)
        X.env = Me.TextBox2.Text
        fw.WriteLine(Me.TextBox2.Text)
        X.Scam = Me.TextBox3.Text
        fw.WriteLine(Me.TextBox3.Text)
        X.P_encours = Me.TextBox5.Text
        fw.WriteLine(Me.TextBox5.Text)
        X.Prj = Me.TextBox6.Text
        fw.WriteLine(Me.TextBox6.Text)
        X.MPer = Me.TextBox7.Text
        fw.WriteLine(Me.TextBox7.Text)
        X.MNegoc = Me.TextBox8.Text
        fw.WriteLine(Me.TextBox8.Text)
 
        fw.Close()
 
        End Sub

[azstar]

Et la fonction pour lire les données ?

[samiasamia]

Non ca pour enregistrer les données ----> ça marche pour

Lorsque j'implémente autre fois les données enregistrer dans le même fichier, je souhaite que chaque fois les données sera enregistrer dans un autre fichier sachant que chaque fichier à sa propre nom

[azstar]

Tu peut ajouter la datetime au nom de fichier

Code :

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

.     Dim fw = New StreamWriter(GroupBox1.Text +DateTime.now....+ ".txt", True)

[samiasamia]

Désole

ne fonctionne pas .
Il y'a un problème au niveau de ligne

Code :

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

  Dim fw = New StreamWriter(GroupBox1.Text + DateTime.Now + ".txt", True)

Le format de la donnée chemin n'est pas pris en charge.

[azstar]

essaye ça

Code :

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

1
2
 
Dim fw = New StreamWriter(GroupBox1.Text + DateTime.Now.tostring("d-MMM-yyyy--HH-mm-ss") + ".txt", True)

[samiasamia]

Merci ça marche mais tous les fichiers prendre la même nom

[azstar]

non ils vont prendre des noms proches; vu que la difference entre eux c'est la datetime .

par exemple : si tu a groupbox.text qui égal à "Title"

les noms des fichiers : pour le cas "dd-MM-yyyy--HH-mm-ss"
exemple ça répond de datetime)

Title 9-05-2013--11-34-20.txt
Title 9-05-2013--11-35-20.txt
Title 9-05-2013--11-36-20.txt
Title 9-05-2013--11-37-20.txt


tu peut jouer avec la chaîne de DateTime.Now.tostring pour avoir des noms qui te convient.

ahh a présent :

d: jour (day)
MM : mois
yyyy: l'année

voir plus sur