Discussion :

[ricil78]

Bonjour,

J'essaie de faire une procédure pour lire une classe qui a été au préalable enregistrer dans un fichier XML.

La classe en question on la nommera TOTO.

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
 
Public Sub LoadXML(ByRef LaClasse As Object)
        Dim SerialXML As XmlSerializer
        Dim streamIo As IO.StreamReader
 
        Try
            SerialXML = New XmlSerializer(LaClasse.GetType)
            streamIo = New IO.StreamReader(MyAdresseFichier)
            LaClasse = CType(SerialXML.Deserialize(streamIo), TOTO)
 
        Catch ex As Exception
        Finally
            If streamIo IsNot Nothing Then streamIo.Close()
        End Try
 
End Sub

Quoi que je mette à la place de TOTO (par exemple LaClasse.GetType) il me dit "Type Non référencé". Il accepte que le nom de la classe.

La fonction marche mais elle a aucun intérêt si je dois toujours revenir la modifié. en fonction de la classe utilisée

Vous avez une soluce ?

merci.

[Dnx]

tu n'as pas besoin de caster
l'objet recoit n'importe quoi...

mais il me semble que la fonction deserialize retourne une string non?

[ricil78]

pour info : La fonction Deserialize renvoie un objet

Si je rajoute une variable pour faire un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Sub LoadXML(ByRef LaClasse As Object, ByVal LeNomDeLaClass As Object)
 
~~~
 
LaClasse = CType(SerialXML.Deserialize(streamIo), LeNomDeLaClass)
 
~~~
 
End sub

Avant même de compiler il me dit << Type "LeNomDeLaClass" non défini >>


PS : C'est la fonction "CType" qui pose problème et non pas "Deserialize"

[Mose]

Pour reprendre ce que voulait dire Dnx : et si tu enlèves le CType ?
Je vis pas bien à quoi il sert...
J'y connais rien en VB, mais faire un cast pour transformer un objet de type Object en un objet de type Object, je comprend pas...

[ricil78]

Si certaine personne suit l'évolution de ce post, voici la solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    ''' <summary>
    ''' TypeClass => Correspont au type de la class à retourner.
    ''' </summary>
    Function Load(Of TypeClass)() As TypeClass
        Dim reader As New XmlSerializer(GetType(TypeClass))
        Dim Resultat As TypeClass = Nothing
        If IO.File.Exists(AdresseFichier) Then
            Dim file As New StreamReader("c:\test.xml")
            Resultat = CType(reader.Deserialize(file), TypeClass)
        End If
        Return Resultat
    End Function

Exemple d'appel :

Code :

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

1
2
3
 
Dim p As personne
p = Load(Of personne)()