轉換vb.net數據JSON字符串，並將其發送到特定的URL

這是JSON字符串中的數據需要使用指定的URL發送。轉換vb.net數據JSON字符串，並將其發送到特定的URL

$jsonstr = '{"data": 
    [{ 
     "id":"5", 
     "owner_id":"0", 
     "status":"unassigned", 
     "first_name":"Test", 
     "last_name":"IS", 
     "tobacco_user":"", 
     "date_of_birth":"", 
     "age":"", 
     "gender":"", 
     "email":"[email protected]", 
     "zip":"", 
     "phone":"(210)629-2560", 
     "phone_type":"cell", 
     "phone_alt":"", 
     "phone_alt_type":"", 
     "product_msip":"", 
     "product_pdp":"", 
     "product_sdhv":"" 
     },

我正在使用VB.net，我需要使用VB.net創建此字符串。我試着用namevaluecollection並做一個POST。我也試着製作一個字符串並使用GET發送數據。兩個失敗。我怎樣才能做到這一點？

來源

2011-05-03 wedwe

創建一個屬性名稱與您的示例中相同的對象，請使用DataContract和DataMember屬性標記序列化。

然後使用JavaScriptSerializer序列化對象變成JSON。

您可以在託管代碼中使用JavaScript對象表示法（JSON）時使用該類。

來源

2011-05-03 19:08:35 Oded

如果你不想像@Oded建議的那樣建立一個實際的類，你可以把它作爲一個字符串一起進行破解。正如你所說的，我通常使用NameValueCollection。

''//Setup some values 
    Dim NVC As New NameValueCollection() 
    NVC.Add("id", "5") 
    NVC.Add("owner_id", "0") 
    NVC.Add("status", "unassigned") 

    ''//Convert to string 
    Dim Pairs As New List(Of String) 
    For Each N As String In NVC.Keys 
     Pairs.Add(String.Format("""{0}"":""{1}""", N.Replace("""", "\"""), NVC(N).Replace("""", "\"""))) 
    Next 
    Dim S = Join(Pairs.ToArray(), ",")

S現在持有"id":"5","owner_id":"0","status":"unassigned"，你應該能夠Concat的到你的更大的JSON字符串。

來源

2011-05-03 20:59:52

轉換vb.net數據JSON字符串，並將其發送到特定的URL

回答

相關問題