字符串转换为自定义的对象列表

Question

说我有一个属性的对象鱼像

Public Property ID As Integer 
Public Property Name As String 
Public Property Type As Integer 
Public Property Age As Integer 

而且我有一个字符串，它看起来像这样：

"Fishes[0].ID=1&Fishes[0].Name=Fred&Fishes[0].Type=1&Fishes[0].Age=3&Fishes[1].ID=2&Fishes[1].Name=George&Fishes[1].Type=2&Fishes[1].Age=5&..." 

是否有转换的任何方式/铸造/无论我的字符串成鱼列表的对象？我似乎无法找到任何帮助。如果能让事情变得简单，我对字符串的格式有一些控制。

非常感谢

Answer 1

你什么需要做的是将输入字符串解析为lo好吧Fishes[X].PROPNAME=VALUE模式。遍历字符串中找到的所有匹配项，并添加或设置Dictionary中的现有对象。使用X作为词典中的每个对象键。

创建鱼结构：

Structure Fish 
    Public ID As String 
    Public Name As String 
    Public Type As Integer 
    Public Age As Integer 
End Structure 

代码来处理输入字符串：

Dim Fishes As New Dictionary(Of String, Fish) 
Dim m As Match = Regex.Match(str, "Fishes\[(?<key>\d+)]\.(?<prop>.+?)=(?<value>[^&]+)", RegexOptions.IgnoreCase) 

Do While m.Success 
    Dim key As String = m.Groups("key").Value.Trim.ToUpper 
    Dim prop As String = m.Groups("prop").Value.Trim.ToUpper 
    Dim value As String = m.Groups("value").Value 

    ' if the key not yet exist in the Dictionary, create and add into it. 
    If Not Fishes.ContainsKey(key) Then 
     Fishes.Add(key, New Fish) 
    End If 

    Dim thisFish As Fish = Fishes(key) ' get the Fish object for this key 

    ' determine the object property to set 
    Select Case prop 
     Case "ID" : thisFish.ID = value 
     Case "NAME" : thisFish.Name = value 
     Case "TYPE" : thisFish.Type = CInt(value) 
     Case "AGE" : thisFish.Age = CInt(value) 
    End Select 

    Fishes(key) = thisFish ' since the Fish object is declared as Structure, 
          ' update the Dictionary item of key with the modified object. 
          ' If Fish is declared as Class, then this line is useless 

    m = m.NextMatch() 
Loop 

Answer 2

试试这个..

Structure Test 
    Dim ID As String 
    Dim Name As String 
    Dim Type As Integer 
    Dim Age As Integer 
End Structure 

在您的按钮单击事件..

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim Fishes As New List(Of Test) 

    Dim Fish As New Test 
    Fish.ID = "GF" 
    Fish.Name = "Gold Fish" 
    Fish.Age = 1 
    Fish.Type = 1 
    Fishes.Add(Fish) 

    MsgBox(Fishes(0).Name) 

End Sub 

Answer 3

这是vb.net转换

Public Partial Class test 
    Inherits System.Web.UI.Page 

    Protected Sub Page_Load(sender As Object, e As EventArgs) 


     If Not IsPostBack Then 
     End If 

    End Sub 
    Public Sub MYtest() 
     Dim ls As New List(Of Fish)() 
     Dim f As New Fish() 
     f.ID = 1 
     f.Name = "My name" 
     f.Type = "My type" 
     f.Age = 20 
     ls.Add(f) 
    End Sub 
End Class 
Public Class Fish 
    Public Property ID() As Integer 
     Get 
      Return m_ID 
     End Get 
     Set 
      m_ID = Value 
     End Set 
    End Property 
    Private m_ID As Integer 
    Public Property Name() As String 
     Get 
      Return m_Name 
     End Get 
     Set 
      m_Name = Value 
     End Set 
    End Property 
    Private m_Name As String 
    Public Property Type() As String 
     Get 
      Return m_Type 
     End Get 
     Set 
      m_Type = Value 
     End Set 
    End Property 
    Private m_Type As String 
    Public Property Age() As Integer 
     Get 
      Return m_Age 
     End Get 
     Set 
      m_Age = Value 
     End Set 
    End Property 
    Private m_Age As Integer 
End Class 

Answer 4

在你提到的，这是通过ASP.Net MVC的意见。 ModelBinder将为您做所有事情。

public ActionResult UpdateFish(IList<Fish> listOfFish) 
    { 
     //the ModelBinder will figure out that the user has posted a list of Fish instances. 
     //do something with listOfFish 
     return View(listOfFish); 
    }