JSON 向类添加值-解网

问：

有点新（没有经验）的 JSON。我正在尝试在我的项目中添加一个附件代码。示例代码为“HAZ”。

我为 Accessorials 创建了一个公共类（见下文），在该类中，我有“作为 String（）的公共代码”。

Public Class Accessorials
    Public codes As String()
    Public hazardousContact As HazardousContact
    Public cod As Object
    Public insuranceDetails As Object
    Public sortAndSegregateDetails As Object
    Public markDetails As Object
End Class

这反过来又为主包装器提供食物

Public Class fgtload 'Primary wrapper
    Public service As New fgtservice
    Public payment As New fgtpayment
    Public transit As New fgttransit
    Public commodities As New List(Of Items)
    Public origin As New fgtorigin
    Public destination As New fgtdestination
    Public billTo As New fgtbillto
    **Public accessorials As New Accessorials**
End Class

我正在尝试将代码“HAZ”添加到Accessorials类中。它将代码显示为“公共代码作为 String（）”
，我通过（）假设它正在寻找各种数组。（在主包装器中）附件是否应该是一个列表（附件）？

结果应该是：

"accessorials" : {
    "codes" : [ "HAZ" ],
    "hazardousContact" : {
    "name" : "John Snow",
    "phone" : "7704865900"
},

以下是 API 指南中的完整 JSON

{"service":{"level":"STND"},"payment":{"terms":"Prepaid","payer":"Shipper"},"transit":{"pickupDate":"20230930"},"commodities":[{"classification":"92.5","weight":"1500","length":"48","width":"40","height":"40","pieces":"3","packagingType":"PAT","description":"Umbrellas","stackable":"Y"},{"classification":"50","weight":"50","length":"48","width":"48","height":"48","pieces":"5","packagingType":"PAT","description":"Soda","stackable":"N"}],"accessorials":{"codes":["HAZ"],"hazardousContact":{"name":"John Snow","phone":"7704865900"},"cod":null,"insuranceDetails":null,"sortAndSegregateDetails":null,"markDetails":null},"origin":{"account":"1234567","city":"LEBANON","stateProvince":"TN","postalCode":"37090","country":"USA"},"destination":{"account":"","city":"Calgary","stateProvince":"AB","postalCode":"T1Y2S2","country":"CAN"},"billTo":{"account":"","name":"Bill To Company","address":"456 Bill Me Rd.","city":"LEBANON","stateProvince":"TN","postalCode":"37090","country":"USA"}}

JSON vb.net

您可能需要更多地解释您的问题。你谈到了 Accessorials 的一个类，然后给出了一堆其他类的定义，它们与问题究竟有什么关系。你有一个get_data对象，没有关于它在做什么的信息。也许您尝试处理的一些 json 数据可能会有所帮助？最后，如果你的最终目标是使用数据库，那么这个json的目的是什么？

0赞 dashley 8/27/2023

@Tu deschizi eu inchid 和 2020 年是我最后一次使用 JSON。我使用了 JSON 类生成器和格式化程序来完成该项目。我主要做桌面应用程序，一些 Web 并使用 xml/rest/和 URL 请求。现在我有另一个需要 JSON 的项目。所以，是的，我还是个新手。也许我应该说“仍然没有经验”。

0赞 dashley 8/27/2023

@Hursey 嗨，我已经删减了代码，并添加了更多专注于该问题的代码。如果我能将代码“HAZ”添加到 JSON 附件区域，我会很满意。我似乎无法正确为数组创建对象。

0赞 Tu deschizi eu inchid 8/27/2023

以下是 JSON Utils 可能感兴趣的内容。

0赞 dashley 8/28/2023

@Tu deschizi eu inchid 是的，谢谢。这就是我前几天使用类生成器的地方。我只是在创建对象来存储附件代码时遇到问题。

答：

0赞 SSS 8/28/2023 #1

不确定为什么以下方法不起作用？

Dim f = new fgtload
ReDim Preserve f.accessorials.codes(f.accessorials.codes.Length)
f.accessorials.codes(f.accessorials.codes.Length - 1) = "HAZ"

这是我:)的猜测。我已经在代码的顶部声明了“加载为新的fgtload”。所以我把 Load 换成了你的 f。 ReDim Preserve Load.accessorials.codes（Load.accessorials.codes.Length） Load.accessorials.codes（Load.accessorials.codes.Length - 1） = “HAZ” 现在我收到一个错误：“对象引用未设置为对象的实例。使用您提交的或我修改的您的。

0赞 dashley 9/2/2023 #2

决议是：

Load.accessorials.codes = 新列表（字符串） Load.accessorials.codes.Add（“IDL”） -或者用这个 Load.accessorials.codes = 新列表（字符串）（{“IDL”}）

似乎我实际使用的代码，来自实际的 API 指南，是无效的，即拼写错误。我已经联系了他们的网络支持并报告了错别字。一旦我开始使用正确的代码，我就能够毫无错误地处理 JSON。

我发现代码很糟糕，进一步消耗了 httpresponse 使用：

  Dim sReader = New StreamReader(webExcp.Response.GetResponseStream)
        Dim result = sReader.ReadToEnd
        result = result

通过这样做，我看到了有关提交的代码无效的错误。我不知道使用更大的错误代码的能力。我通常只是抓住统计数据和简单的消息。生活和学习。反正我现在很好。感谢您的所有意见。

上一个：传单地图和 VB.net

下一个：VB.NET 如何处理格式奇怪的 json

JSON 向类添加值

JSON Adding values to a class

评论

评论