如何从 VB.Net 生成特定的 JSON 输出？

Question

作为一名使用 VB.Net 2015 社区的 VB.Net 程序员，我在 C# 中遇到了需要转换为 VB 的项目，但这次我不明白我在使用什么。我正在使用的网站服务返回并期望 JSON / JOBJECTS 结构，例如：

var token = new {
    iss = PARTNERID,
    product = "twpemp",
    sub = "partner",
    siteInfo = new {
        type = "id",
        id = SITEID
    },
    exp = (Int32)DateTime.UtcNow.Add(new TimeSpan(0, 4, 30)).Subtract(new DateTime(1970, 1, 1)).TotalSeconds
};

在线转换器将其转换为：

Dim EPochTime = DateTime.UtcNow.Add(New TimeSpan(0, 4, 0)).Subtract(New DateTime(1970, 1, 1)).TotalSeconds
Dim Token = New With {
    Key .iss = AccNumber,
    Key .product = "twppartner",
    Key .sub = "partner",
    Key .siteInfo = New With {
        Key .type = "id",
        Key .id = Site},
    Key .exp = EPochTime
}

我需要动态创建这种类型的结构，因为“键名”和值会根据返回的内容和需要发回的内容而变化。例如，根据上面的 siteid，返回的结构可能包含以下内容：

"Results": [
{
  "RecordNumber": 000001,
  "EmployeeCode": "0001",
  "FirstName": "John",
  "MiddleName": "A",
  "LastName": "Dow",
  "Designation": "Worker",
  "Home1": "Press",
},
{
  "RecordNumber": 000002,
  "EmployeeCode": "0002",
  "FirstName": "Jane",
  "MiddleName": "b",
  "LastName": "Dow",
  "Designation": "Helper",
  "Home1": "Office",
}
}

对于我提交查询并最终需要更新的下一个客户，可能有：

"Results": [
{
  "RecordNumber": 12345,
  "EmployeeCode": "231",
  "FirstName": "Erick",
  "MiddleName": "G",
  "LastName": "Smith",
  "Department": "Electrial",
},
{
  "RecordNumber": 732456,
  "EmployeeCode": "853",
  "FirstName": "Fred",
  "MiddleName": "W",
  "LastName": "Kerber",
  "Department": "Electrial",
}
}

两者的区别是一个有“部门”，一个没有。此结构会根据第一次调用的 siteID 发生变化。

我的主要问题是如何在 VB.NET 中动态创建类似的东西，其次，这种东西到底叫什么？我称它为缺乏更好用词的结构。

Answer 1

如果您希望以 JSON 格式输出这些内容时更灵活，有两种方法：

1) 您可以使用Dictionary<string,object> 代替动态类型。使用字典方法，您可以在运行时添加（或排除）属性。 JSON 序列化程序将以与序列化动态类型相同的方式输出。

 var dict = new Dictionary<string, object>() { { "key1", "value1"} };
 dict["key2"] = DateTime.Now();
 dict["key3"] = 1234567;
 if (someCondition){
       dict["key4"] = new Dictionary<string, object>() { { "key5", "value5"}, { "key6", "value6"}};
 }

2) 您可以创建一个具有 JSON 结构可能包含的所有可用属性的类。对于数字类型的可选属性，使它们可以为空：

public class Qwijibo 
{
    public int? RecordNumber {get;set;}
    public string EmployeeCode  {get;set;}
    public string FirstName {get;set;}
    public string MiddleName {get;set;}
    public string LastName {get;set;}
    public string Designation {get;set;}
    public string Home1 {get;set;}
    public string Department {get;set;
}

上述课程可能适用于您提出的两种情况。您未为其分配值的属性将在 JSON 中序列化为 null。只要您要传输的任何内容都不会挂在 null 值上，您就可以开始了。