做下一个class可以吗？

Question

反序列化抛出异常

Path 'access', line 1, position 10.

我有一部分代码是这样的

            Dim lstPyp As List(Of access) = Nothing
            lstPyp = JsonConvert.DeserializeObject(Of List(Of access))(strRespuesta)

json是这个

{
    "access": "granted",
    "last_login": "2022-04-07 10:30:07",
    "last_access": "2022-04-07 11:55:01",
    "uid": 5497,
    "user": "pepe",
    "id_comitente": 30,
    "profile": "comitente"
}

我有class如下

Public Class access


    Public Property access As String
    Public Property lastlogin As Date
    Public Property lastaccess As Date
    Public Property uid As Integer
    Public Property user As String
    Public Property idcomitente As Integer
    Public Property profile As String

end class

这是我第一次做classes。

Answer 1

您没有任何列表，只有一个对象，所以试试这个

Dim pyp As access =  JsonConvert.DeserializeObject(Of access)(strRespuesta)

做下一个class可以吗？

Is it okay to do the next class?

vb.net

json

class