2

我需要一种创建对象列表的方法，其中对象来自字符串

例如，我希望将以下内容转换为对象列表

Dim categoryList as IList(Of "classname") = new List(Of "class name")

最终结果 

Dim categoryList As IList(Of BO.Store.Category) = New List(Of BO.Store.Category)

感谢 xxbbcc 为我指明了正确的方向。我想出了下面的解决方案，它可以让我上传任何 csv 文件并将其解析为 x 对象列表。

这是通过 dropzone 上传文件以及表名、对象类名和映射类名来实现的。这现在允许我使用准备导入临时表的 csvhelper 解析文件的内容。

<AcceptVerbs(HttpVerbs.Post), BaseViewModelFilter>
    Function Upload(model As ImportUploadViewModel) As JsonResult

        Dim balUpload As BAL.Upload = New BAL.Upload()
        Dim balImport As BAL.Import = New BAL.Import()
        Dim folder As String = String.Format("{0}tmp\import\category", Server.MapPath("\"))

        Dim result = balUpload.SaveFiles(Request, folder, UserProfile.ID)

        Dim importClassType = Type.[GetType](String.Format("Roxybox.BO.{0}", model.EntityClass))
        Dim importClassMapType = Type.[GetType](String.Format("Roxybox.BO.{0}", model.EntityMap))

        Dim records As IList

        ' Import all successful files
        For Each successFile As String In result("success")

            ' Parse csv file
            Using sr = New StreamReader(String.Format("{0}\{1}", folder, successFile))
                Dim reader = New CsvReader(sr)

                reader.Configuration.RegisterClassMap(importClassMapType)
                records = reader.GetRecords(importClassType).ToList()

            End Using

            For Each category In records
                Dim data As BO.Import = New BO.Import()
                With data
                    .EntityModel = model.EntityModel
                    .Data = JsonConvert.SerializeObject(category)
                    .UserProfileID = UserProfile.ID
                    .Filename = successFile
                    .Status = "pending"
                End With

                balImport.Save(data, UserProfile.ID)
            Next
        Next

        Return Json(result, JsonRequestBehavior.AllowGet)

    End Function
4

1 回答 1

1

您可以使用Activator.CreateInstance基于字符串程序集名称/类型名称来创建对象。（该方法还有许多其他重载。）

该调用返回 an Object，因此您必须将其转换为已知类型（例如，接口类型）。据我所知（我不是 VB.Net 专家）没有办法用字符串类型名称定义变量，所以你需要要么

  1. 将您的实例存储在Object-s 列表中（这可行，但您实际上并没有这种方式可用的对象）。
  2. 让你的类型都实现通用的、众所周知的接口。在这种情况下，您可以使用创建类型的实例，CreateInstance然后将它们转换为已知的接口类型。类型名称将来自字符串，但接口类型必须硬编码到代码中。

例如（在 C# 中）：

  List<IMyInterface> oList = new List<IMyInterface> ();

  // ...

  // Loop through your assembly / type names
  ObjectHandle oHandle = Activator.CreateInstance(sAssemblyName, sTypeName);
  IMyInterface oInstance = oHandle.Unwrap() as IMyInterface; // null if wrong type

  if (oInstance!=null)
      oList.Add(oInstance);

  // ...

  // When you try using these instances, you can pull them from
  // the list and call functions through IMyInterface
  oList(3).CallInterfaceMember( /* params */ );

不要试图将对象转换为特定的非接口类型——你从字符串创建实例，所以你对真实类型没有实际的了解——你只知道它们可能实现哪些接口。

于 2015-01-08T19:46:07.737 回答