Trying to parse/deserialize JSON array with no key?

[hockeyadc]

I have the following JSON format:

[{
  "type":"deposit",
  "currency":"btc",
  "amount":"0.0",
  "available":"0.0"
},{
  "type":"deposit",
  "currency":"usd",
  "amount":"1.0",
  "available":"1.0"
},{
  "type":"exchange",
  "currency":"btc",
  "amount":"1",
  "available":"1"
},{
  "type":"exchange",
  "currency":"usd",
  "amount":"1",
  "available":"1"
},{
  "type":"trading",
  "currency":"btc",
  "amount":"1",
  "available":"1"
},{
  "type":"trading",
  "currency":"usd",
  "amount":"1",
  "available":"1"
}]

I'm trying to return some of the "available" and "amount" values, but cannot get it to work for the life of me. I created the following class:

Public Class ItemsReturned
        Public Property type As String
        Public Property currency As String
        Public Property amount As String
        Public Property available As String
    End Class

I'm then using

Dim balances As ItemsReturned = JsonConvert.DeserializeObject(Of ItemsReturned)(TheJson)

but this gives me the error "cannot deserialize the current JSON array because the type requires a JSON object"

[Inferrd]

Try:

Dim balances() As ItemsReturned = JsonConvert.DeserializeObject(Of ItemsReturned())(TheJson)

where balances() is an array of ItemsReturned.

[hockeyadc]

Try:

Dim balances() As ItemsReturned = JsonConvert.DeserializeObject(Of ItemsReturned())(TheJson)

where balances() is an array of ItemsReturned.

I think that worked. So how would I select say the second "amount" value?

[Inferrd]

I think that worked. So how would I select say the second "amount" value?

Arrays are zero based, so it would be :

Dim theAmount As String = balances(1).amount

[hockeyadc]

AH yes thats it. For some reason I was screwing up the array and class syntax. Thank you!