将Object设置为自己的VB.NET实例

Question

我现在正在使用一个测试对象作为一个非常大的对象(700左右的属性)的概念证明.

基本上我要做的是用一个新的构造函数设置对象中的数据,而不必手动设置属性,因为有这么多.例如

Person.Name = "Bob"
Person.Age = 30
etc...

相反,我要做的是通过反射遍历对象中的属性并在对象中设置属性.数据来自巨型字符串中的大型机......

Private _person As Person

Public Sub New(ByVal personData As String)
    _person = TryCast(ConvertStringToObject(personData, Me.GetType), Person)
End Sub

Public Property FirstName As String
    Get
        Return _person.FirstName
    End Get
    Set(ByVal value As String)
        _person.FirstName = value
    End Set
End Property

 Private Function ConvertStringToObject(ByVal data As String, ByVal obj As Object) As Object

    Dim objectType As Type = obj.GetType
    Dim properties As PropertyInfo() = objectType.GetProperties

    For Each objProperty As PropertyInfo In properties

        'just an example... not really how i get data...
        Dim value As String = data.Substring(0, 10)

        objProperty.SetValue(obj, value, Nothing)

    Next

    Return obj

End Function

因此,当我运行此代码时,一旦设置了属性第一个名称(第一个属性),我就会得到一个对象引用设置错误...这似乎是我创建了一个类似的悖论......我试图在之前设置一些东西它存在,但为了使它存在,我需要先填写它.

我使用的方法需要是通用的,因为它使用了一堆不同的对象,这就是我返回一个对象的原因.

我在过去做过类似的事情但是实体框架中的实体和MVC形式的模型构建了实体,但在这种情况下,我有两个不同的对象,所以没有问题.

现在我的convertStringToObject方法就在它自己的关闭,我只是调用它并将它转换为我想要的对象,但我真的想把它放在基类中并让其他对象继承它并使用新的构造函数.所以代码看起来像:

dim person as new Person 
person = TryCast(ConvertStringToObject(dataString,person), Person)

同样不是很多代码,但仍希望通过新的构造函数在类内部进行转换...

任何想法将非常感谢!

谢谢.

Answer 1

在构建对象是复杂或耗时任务的情况下,我们应用工厂模式或构建器模式.对于您想要完成的任务,Builder模式是完美的匹配.peson类携带大量数据(对于这700个属性).因此,我们还需要将数据传输与业务模型验证分离.这是怎么做的:

首先解耦数据模型和验证

Class PersonData
    Public Name as String
    Public Age as integer
    ...
    ...and 700 more...
End Class

Class person
   private _personData as PersonData = nothing

   sub new(personData as PersonData)
       _personData = personData
   end sub

   property Name as string
       get
           return _personData.Name
       end get
       set(value as string)
           ...the validations here...
           _personData.Name = value
       end set
    end property
End Class

然后定义实例化过程

MustInherit Class PersonBuilder
    protected _stringRepresentation as String

    sub setString(stringRep as string)
        _stringRepresentation = stringRep
    end sub

    function BuildPerson as Person
end class

构建具体实例的一种方法是使用来自大型机的loooong字符串

class MainFramePersonBuilder
    inherits PesonBuilder

    overrides function BuildPerson as Person
         dim pData as PersonData
         pData = DeserializeMainFrameString(_stringRepresentation)
         return new Person(pData)
    end sub

    private function DeserializeMainframeString(mString as string) as personData
         ... do the reflection stuff here...
         ... dont use person class direcctly...
         ... rather use the PersonData structure...

         return thePersonData
    end sub

另一种方法是使用从某些Web服务获取的数据来实现 这一点,我知道它不在范围内,但如果有这个要求,这种架构将有所帮助.

 class JSONPersonBuilder
    inherits PersonBuilder

    overrides function BuildPerson as person
        return new Person(DeserializeJSONString(_stringRepresentation))
    end function

  end class

所以在你的代码中你可以写

 dim pb as PersonBuilder = new MainFramePersonBuilder() 'JSONPersonBuilder
 pb.setString(mainFrameString) ' JSONString
 dim p as Person = pb.BuildPerson()

现在,如果你需要Person通过网络或自己的web服务转移到某个不同的地方,你不需要发送mainFrameString.序列化PersonData并发送它.您将把您的客户与服务器隔离开来 - 您的PersonData是中间层.