循环遍历对象的属性值？ [复制]

Question

我知道有很多主题都有相同的问题，但我很困惑。

我想遍历我的对象属性并写入值。

但是我所看到的一切都告诉了

        Dim pinfo() As PropertyInfo = MyCompanies(1).GetType().GetProperties()

这将创建一个包含属性信息的数组，但它不存储该 object.property 的实际值，

属性名称是ticker，但Mycompanies(1).ticker的值是AMZN。

我的代码：

 Dim pinfo() As PropertyInfo = MyCompanies(1).GetType().GetProperties()

 'Loop through Properties 
 For pi = 0 To pinfo.Length - 1
        'I want to get the values of each property
        Console.WriteLine(?)
    Next pi

注意：MyCompanies(1) 只是对象数组中的第二个对象，所有对象都属于公司类

https://msdn.microsoft.com/en-us/library/b05d59ty(v=vs.110).aspx 也无济于事。它让我相信我应该这样做：

    For Each pi In pinfo
        'I want to get the values of each property
        Console.WriteLine(PropertyInfo.GetValue(MyCompanies(1))
    Next pi

但这甚至不会建立。是不是因为我试图通过使用数组中的位置来给它对象？

...在这个循环之外，我将不得不遍历我的对象数组，所以我想我可以将 1 替换为 i...

Answer 1

你应该这样调用：

Dim props As PropertyInfo() = MyCompanies(1).GetType().GetProperties()

注意GetProperties 返回一个由PropertyInfo 组成的数组——一个代表每个属性。

然后，循环：

For Each prop in props
    Console.WriteLine(prop.GetValue(MyCompanies(1)).ToString())
Next

请注意，PropertyInfo 类不包含对您从中派生类型信息的特定对象的引用（这就是您不能只调用prop.GetValue() 的原因）。

它只是一种描述相关类型的模板 - 因此您必须将引用传递给您要提取其属性值的实际对象。

如果您要访问多个 MyCompanies 对象，您只需派生一次类型信息，然后就可以重用它。

例如：

Dim props As PropertyInfo() = MyCompanies(1).GetType().GetProperties()

For Each company in MyCompanies

    Console.WriteLine(company.ToString()) 'e.g. to print the company name

    For Each prop in props
        Console.WriteLine(prop.GetValue(company).ToString())
    Next
Next

我还没有测试代码，所以请原谅任何小失误。