0

我现在正在使用一个测试对象作为一个非常大的对象（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)

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

任何想法将不胜感激！

谢谢你。

4

2 回答 2

5

在这种情况下，当对象的构造是一项复杂或耗时的任务时，我们会应用工厂模式或构建器模式。对于您想要完成的任务，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 是中间层。

于 2013-06-08T03:44:24.820 回答
2

您已经有了一个可用的变量，而不是需要一个私有变量来保存您当前的对象实例Me。以下是调整后的代码，Me用作设置其属性值的目标：

Public Sub New(ByVal personData As String)
    ConvertStringToObject(personData)
End Sub

Public Property FirstName As String

 Private Sub ConvertStringToObject(ByVal data As String)

    Dim objectType As Type = Me.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(Me, value, Nothing)

    Next
End Function

希望有帮助。

于 2013-06-08T01:56:04.137 回答