VB.net - JSON parse - Newtonsoft

Question

У меня есть синтаксический анализ JSON, использующий vb.net с библиотекой Newtonsoft Json.

Мои JSON данных выглядит следующим образом:

{ 
"Result":"Success", 
"UserID":"johns", 
"Password":null, 
"Locked":"False", 
"Comment":"", 
"LastLoggedOn":"11/9/2013 9:14:17 PM", 
"NumFailedAttempts":"1", 
"FirstName":"John", 
"LastName":"Smith", 
"MessageNum":"UA-000", 
"MessageText":"Authorisation successful" 
} 

Мой код выглядит следующим образом:

Dim a As saLoginResponse = JsonConvert.DeserializeObject(Of saLoginResponse)(strJSONEncode) 
      Response.Write(a.ToString) 

Response.Write(a.MessageText) 

Это не производит никакой продукции.

Любая помощь приветствуется.

Answer 1

Предполагая, что ваш класс saLoginResponse определен как следующий, а строка strJSONEncode содержит данные JSON, которые вы отправили в своем вопросе, ваш код должен работать нормально.

Public Class saLoginResponse 
    Public Property Result As String 
    Public Property UserID As String 
    Public Property Password As String 
    Public Property Locked As Boolean 
    Public Property Comment As String 
    Public Property LastLoggedOn As String 
    Public Property NumFailedAttempts As String 
    Public Property FirstName As String 
    Public Property LastName As String 
    Public Property MessageNum As String 
    Public Property MessageText As String 
End Class 

Демо:

Sub Main() 

    Dim json As String = _ 
    "{" + _ 
    """Result"":""Success""," + _ 
    """UserID"":""johns""," + _ 
    """Password"":null," + _ 
    """Locked"":""False""," + _ 
    """Comment"":""""," + _ 
    """LastLoggedOn"":""11/9/2013 9:14:17 PM""," + _ 
    """NumFailedAttempts"":""1""," + _ 
    """FirstName"":""John""," + _ 
    """LastName"":""Smith""," + _ 
    """MessageNum"":""UA-000""," + _ 
    """MessageText"":""Authorisation successful""" + _ 
    "}" 

    Dim a As saLoginResponse = JsonConvert.DeserializeObject(Of saLoginResponse)(json) 

    Debug.WriteLine(a.MessageText + " for " + a.FirstName + " " + a.LastName) 

End Sub 

Вывод в окне отладки:

Authorisation successful for John Smith