字符串轉換爲自定義的對象列表

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); 
    }