Problème Enregistré informations dans fichier .

Version imprimable

Bonjour tous le monde,

J'ai encore un problème ... J'ai chercher mais je ne trouve vraiment pas . Je voudrais enregistré dans un fichier les infromations qu'un utilisateur entre . Bon j'ai le code mais quand je test , le débbogeur se lance et me signale une erreur sur cette fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 If _membreAModifier Is Nothing Then 'Enregistre notre membre Dim Monmembre As New membreinfo(Me.nom.Text, Me.genre.Text, Me.ville.Text, Me.age.Text) 'On l'ajoute à la liste membrebiblibo.Listemembre.Add(Monmembre) MsgBox("Fiche correctement crée", vbOKOnly, "Confirmation") Else 'Sinon on le modifie en récupérant son index dans la liste de la fenêtre parent membrebiblibo.Listemembre(membrebiblibo.Listemembre.IndexOf(_membreAModifier)).Update(Me.nom.Text, Me.genre.Text, Me.ville.Text, Me.age.Text) End If
Plus précisement sur la 4em ligne . Si vous pouviez m’éclairez merci beaucoup !

Bonjour,
Pour Ecrire dans un fichier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Sub FileSymbol(ByVal nom as string, byval prenom as string,..... ByVal chemin As String)
If IO.File.Exists(chemin) Then
   Try
                IO.File.Delete(chemin)
   Catch ex As Exception
                MessageBox.Show(ex.ToString)
   End Try
else
        stream = New StreamWriter(chemin, True)
 
            stream.WriteLine(nom & "," & prenom & ",".....)
            stream.Flush()
        stream.Close()
End If
End Sub

:ccool:

04/04/2011, 14h23
Xtremmax

Merci de votre réponse , mais ce n'est pas dans un fichier que je veux écrire . Dans ma fonction décrite c'est dans une variable enfin c'est compliqué ^^ Merci mais ce n'est pas dans un fichier . L'erreur viens de cette ligne :

Code:

Dim Monmembre As New membreinfo(Me.nom.Text, Me.genre.Text, Me.ville.Text, Me.age.Text)
04/04/2011, 14h47
asmduty

Il faudrait qu'on voit comment est fait ton objet, parce que ça peut venir que de ça puisque niveau syntaxe c'est bon.
04/04/2011, 14h54
Xtremmax

Quel partie du code voulez-vous car il est assez gros ? J'ai mis la fonction dans mon 1er post , quel objet voulez-vous ? Merci
04/04/2011, 14h55
asmduty

Si ça plante sur la ligne que tu nous a indiqué il nous faudrait la procédure "New" de ton objet "membreinfo"

Voila la classe ou je créer membreinfo :

Code:

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
49
50
51
52
53
54
55
56
57
58
59
Public Class membreinfo
 
    Private _Nom As String
    Public Property Nom As String
        Get
            Return _Nom
        End Get
        Set(ByVal value As String)
            _Nom = value
        End Set
    End Property
 
    Private _Genre As String
    Public Property Genre As String
        Get
            Return _Genre
        End Get
        Set(ByVal value As String)
            _Genre = value
        End Set
    End Property
 
    Private _Ville As String
    Public Property Ville As String
        Get
            Return _Ville
        End Get
        Set(ByVal value As String)
            _Ville = value
        End Set
    End Property
 
    Private _Age As String
    Public Property Age As String
        Get
            Return _Age
        End Get
        Set(ByVal value As String)
            _Age = value
        End Set
    End Property
 
    Public Sub New()
 
    End Sub
 
    Public Sub New(ByVal Nom As String, ByVal Genre As String, ByVal Ville As String, ByVal Age As Integer)
       _Nom = Nom
        _Genre = Genre
        _Ville = Ville
        _Age = Age
    End Sub
 
    Public Sub Update(ByVal Nom As String, ByVal Genre As String, ByVal Ville As String, ByVal age As Integer)
        _Nom = Nom
        _Genre = Genre
        _Ville = Ville
        _Age = Age
    End Sub

Voila merci de m'aider

04/04/2011, 15h14
asmduty

Code:

ByVal Age As Integer

Or tu lui donne un string :

Code:

Dim Monmembre As New membreinfo(Me.nom.Text, Me.genre.Text, Me.ville.Text, Me.age.Text)

essaye plutôt :

Code:

Dim Monmembre As New membreinfo(Me.nom.Text, Me.genre.Text, Me.ville.Text, Integer.Parse(Me.age.Text)

Enfin il faut aussi, si possible mettre des gestions d'erreurs, parce que si tu te trouve avec un caractère dans ta textbox il va essayer de te la traduire en Entier et ça va planter.
04/04/2011, 15h22
Xtremmax

Voilà ! Merci Enormément ! Cela marche parfaitement , et bien merci encore car je cherchais depuis un bout de temps ! ^^
04/04/2011, 15h31
asmduty

De rien, et pense quand même à la gestion d'erreur ^^
Bonne journée