有编写这种代码的优雅方法吗？

问题描述

| 我继承了一些代码，当我看着它时，这让我感到有些畏惧。有没有更优雅的方式编写以下内容？

Dim myItem As DTO.MyBaseClass = nothing
Dim myType As String = GetTypestring()
Select Case myType
  Case Is = \"Case1\"
    myItem = Bus.BusManager(Of DTO.MyClass1).Read()
  Case Is = \"Case2\"
    myItem = Bus.BusManager(Of DTO.MyClass2).Read()
\'... etc etc for 30 lines

有没有一种方法可以从字符串到类类型进行映射，然后像这样一行呢？还是类似的东西？

myItem = Bus.BusManager(Of MappingDealy(myType)).Read()

    

解决方法

由于

BusManager

是泛型，因此传递给ѭ3pass的类型必须在编译时指定。它不像您可以在运行时更改的传统参数。 从您列出的代码中不清楚

BusManager

的实际作用。如果它所做的只是创建Generic类型的实例，那么创建它的人也许并不真正理解Generic。您是否有能力重新设计ѭ2的工作原理，还是仅限于按原样使用它？ 如@jmoreno所述，您可以使用反射从包含类型名称的字符串中创建类型的实例。这是如何工作的：

Imports System.Reflection
Imports System.IO

Public Class ObjectFactory
    Private Shared Function CreateObjectFromAssembly(ByVal assembly As Assembly,ByVal typeName As String) As Object
        \' resolve the type
        Dim targetType As Type = assembly.GetType(typeName)
        If targetType Is Nothing Then
            Throw New ArgumentException(\"Can\'t load type \" + typeName)
        End If

        \' get the default constructor and instantiate
        Dim types(-1) As Type
        Dim info As ConstructorInfo = targetType.GetConstructor(types)
        Dim targetObject As Object = info.Invoke(Nothing)
        If targetObject Is Nothing Then
            Throw New ArgumentException(\"Can\'t instantiate type \" + typeName)
        End If

        Return targetObject
    End Function

    Public Shared Function CreateObject(ByVal typeName As String) As Object
        Return CreateObjectFromAssembly(Assembly.GetExecutingAssembly,typeName)
    End Function

    Public Shared Function CreateObject(ByVal typeName As String,ByVal assemblyFileName As String) As Object
        Dim assemblyFileInfo = New FileInfo(assemblyFileName)
        If assemblyFileInfo.Exists Then
            Return CreateObjectFromAssembly(Reflection.Assembly.LoadFrom(assemblyFileName),typeName)
        Else
            Throw New ArgumentException(assemblyFileName + \" cannot be found.\")
        End If
    End Function

End Class

在生产应用程序中，我可能会将所有这些方法的返回类型设置为我的基类或接口。只要确保您传入完整的

typeName

（包括命名空间）即可。 有了该工厂类，那么代码的优雅版本将如下所示：

Dim myItem as DTO.MyBaseClass = ObjectFactory.CreateObject(\"DTO.\" & GetTypeString())

    ,首先，不要使用

Case Is =

，也不要初始化为

Nothing

。所以一个快速的是：

Dim myItem As DTO.MyBaseClass
Select Case GetTypeString()
    Case \"Case1\"
        myItem = Bus.BusManager(Of DTO.MyClass1).Read()
    \' etc etc

但是由于您使用的是模板，除非您要使用反射，否则实际上就没有办法映射它，这是效率非常低下的，但代价是稍微更简洁和更短的代码。您还可以添加ѭ12来保存124个字符，还可以添加Bus来保存120个字符。     ,建议您在看不到更多代码的情况下，在我的Case语句上使用Enumeration，以防止出现较小的错误。 然后，您可以使用Factory方法来基于Enumeration处理数据。