反序列化對象內的對象

Question

這可能嗎？

Public Class Foo 
    public var as string 

    public sub Load(byval filename as string) 
     'This is done 
     [...] 
     oItem = [...] 'Code to deserialize 

     me = oItem 'THIS LINE 
    end sub 
end class 

這樣就可以從序列文件加載富像這樣：

Public Sub Main 
    Dim f as Foo = new Foo() 
    f.load("myFile") 
end sub 

直至現在我已經有這樣的返回美孚作爲對象的函數（我試圖使序列化/反序列化過程一般，所以我可以複製和粘貼，並避免明確設置每個變量）

Answer 1

不，你想要在你的情況下做什麼有Load是一個共享函數，返回新創建的項目。

更多類似：

Public Class Foo 
    public var as string 

    public Shared Function Load(byval filename as string) As Foo 
     'This is done 
     [...] 
     oItem = [...] 'Code to deserialize 

     Return oItem 
    end sub 
end class 

Public Sub Main 
    Dim f as Foo 
    f = Foo.load("myFile") 
end sub 

另外，而不是直接嵌入反序列化到每個類別中，可以有一個通用的方法，如：

''' <summary> 
''' This method is used to deserialize an object from a file that was serialized using the SoapFormatter 
''' </summary> 
''' <param name="sFileName"></param> 
''' <returns></returns> 
''' <remarks></remarks> 
Public Function Deserialize(Of T)(ByVal sFileName As String) As T 
    ' Exceptions are handled by the caller 

    Using oStream As Stream = File.Open(sFileName, FileMode.Open, IO.FileAccess.Read) 
     If oStream IsNot Nothing Then 
      Return DirectCast((New SoapFormatter).Deserialize(oStream), T) 
     End If 
    End Using 

    Return Nothing 
End Function 

然後可以調用如：

Public Sub Main 
    Dim f as Foo 
    f = Deserialize(Of Foo)("myFile") 
end sub