Question

我有以下对API的调用。我需要将字符串格式的返回数据写入标签而不是Console.WriteLine：

使用client = New HttpClient（） Dim endpointUri As String，resourceId As String Dim str1 As String endpointUri =＆＃34; https://outlook.office365.com/api/v1.0/me/events＆＃34;

        Using request = New HttpRequestMessage(HttpMethod.[Get], endpointUri)
            request.Headers.Add("Authorization", "Bearer eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI1NiIsIng1dCI6Ik1uQ19WWmNBVGZNNXBPWWlKSE1iYTlnb0VLWSIsImtpZCI6Ik1uQ19WWmNBVGZNNXBPWWlKSE1iYTlnb0VLWSJ9.eyJhdWQiOiJodHRwczovL291dGxvb2sub2ZmaWNlMzY1LmNvbS8iLCJpc3MiOiJodHRwczovL3N0cy53aW5kb3dzLm5ldC9kYjNmMmI3ZS1hNzZmLTQwYjMtYmJiZC04NGMzMDhiODg2ZTcvIiwiaWF0IjoxNDMzODY3Mzg2")

            Using response = Await client.SendAsync(request)
                Dim content = Await response.Content.ReadAsStringAsync()
                Label1.Text = content.ToString
                For Each item In JObject.Parse(content)("value")
**Console.WriteLine**=("Message ""{0}"" received at ""{1}""", item("Subject"), item("DateTimeReceived"))
                Next
            End Using
        End Using
    End Using

任何帮助？

提前致谢

Answer 1

以下代码应该这样做。只需将json值添加到标签的文本中。

Using request = New HttpRequestMessage(HttpMethod.[Get], endpointUri)
    request.Headers.Add("Authorization", "Bearer eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI1NiIsIng1dCI6Ik1uQ19WWmNBVGZNNXBPWWlKSE1iYTlnb0VLWSIsImtpZCI6Ik1uQ19WWmNBVGZNNXBPWWlKSE1iYTlnb0VLWSJ9.eyJhdWQiOiJodHRwczovL291dGxvb2sub2ZmaWNlMzY1LmNvbS8iLCJpc3MiOiJodHRwczovL3N0cy53aW5kb3dzLm5ldC9kYjNmMmI3ZS1hNzZmLTQwYjMtYmJiZC04NGMzMDhiODg2ZTcvIiwiaWF0IjoxNDMzODY3Mzg2")

    Using response = Await client.SendAsync(request)
        Dim content = Await response.Content.ReadAsStringAsync()
        Label1.Text = "" //clean the label from existing content

        For Each item In JObject.Parse(content)("value")
            Label1.Text += ("Message ""{0}"" received at ""{1}""", item("Subject"), item("DateTimeReceived"))
        Next
    End Using
End Using

从Azure API json返回数据

1 个答案: