リモートjsonの項目値を読み込み、取得する

Question

asp.net（4.5）vbでhttp://www.example.com/api/stats.jsonのようなリモートJsonから項目total_salesまたはtotals.ordersを出力するにはどうすればよいですか？

{ 
    "sales": { 
    "total_sales": "556.20", 
    "net_sales": "402.35", 
    "average_sales": "402.35", 
    "total_orders": 12, 
    "total_items": 24, 
    "total_tax": "88.81", 
    "total_shipping": "65.04", 
    "total_refunds": 0, 
    "total_discount": "0.00", 
    "totals_grouped_by": "day", 
    "totals": { 
     "2017-03-17": { 
     "sales": "556.20", 
     "orders": 12, 
     "items": 24, 
     "tax": "88.80", 
     "shipping": "65.04", 
     "discount": "0.00", 
     "customers": 0 
     } 
    }, 
    "total_customers": 0 
    } 
} 

Answer 1

使用Json.netその後：

Dim sales as JObject = JObject.Parse(yourJsonString) 
Dim totSales as String = Cstr(sales.GetValue("total_sales")) 

Answer 2

私は、これはあなたが探しているものであると信じています。 JSON文字列を使用して、私は総売上を取得します。

まず参照を追加します。

Imports System.Web.HttpContext 
Imports System.Runtime.Serialization.Json 

次は、リモートJSONを取得し、私は応答が指定した文字列であると仮定します。私たちはHttpWebRequestを使ってリモートJSONを取得します。

Dim req As HttpWebRequest = WebRequest.Create("www.SomeURL.com/?Parameter=somevalue") 
    Dim resp As HttpWebResponse = req.GetResponse() 

    Dim enc As Encoding = System.Text.Encoding.GetEncoding(1252) 
    Dim loResponseStream As StreamReader = New StreamReader(resp.GetResponseStream(), enc) 
    Dim Response As String = loResponseStream.ReadToEnd() 
    Dim jss As JavaScriptSerializer = New JavaScriptSerializer() 
    Dim dict As Object = jss.Deserialize(Of Dictionary(Of String, Object))(Response) 
    Dim KeyValue As String = (dict("sales")("total_sales")) 
    loResponseStream.Close() 

R/ プレスコット...