如何使用Newtonsoft.Json在vb.net中输出json文件

Question

我在Newtonsoft.Json文档中看到的c#示例代码类似于

，但我不太把它转换成vb.net代码

StringBuilder sb = new StringBuilder();
StringWriter sw = new StringWriter(sb);

using (JsonWriter writer = new JsonTextWriter(sw))
{
    writer.Formatting = Formatting.Indented;

    writer.WriteStartObject();
    writer.WritePropertyName("CPU");
    writer.WriteValue("Intel");
    writer.WritePropertyName("PSU");
    writer.WriteValue("500W");
    writer.WritePropertyName("Drives");
    writer.WriteStartArray();
    writer.WriteValue("DVD read/writer");
    writer.WriteComment("(broken)");
    writer.WriteValue("500 gigabyte hard drive");
    writer.WriteValue("200 gigabyte hard drive");
    writer.WriteEnd();
    writer.WriteEndObject();
}

// {
//   "CPU": "Intel",
//   "PSU": "500W",
//   "Drives": [
//     "DVD read/writer"
//     /*(broken)*/,
//     "500 gigabyte hard drive",
//     "200 gigabyte hard drive"
//   ]
// }

我怎样才能在vb.net中转录他？

我尝试过使用一些C#来编写vb.net代码工具，但它们都是错误的。

Answer 1

您没有显示整个代码，因此很难进一步帮助您。要安装和使用Newtonsoft.json，请执行以下操作: 1:在Visual项目菜单上打开NuGet包管理器，并将“Newtonsoft.Json”安装到项目中。

2:在要使用包的文件顶部键入以下VB代码：

Imports Newtonsoft.Json

守则翻译如下：

Imports System.IO
Imports System.Text
Imports Newtonsoft.Json
Public Class YourClassName
    Private Sub subname() 
        Dim sb As StringBuilder = New StringBuilder()
        Dim sw As StringWriter = New StringWriter(sb)

        Using writer As JsonWriter = New JsonTextWriter(sw)

            writer.Formatting = Formatting.Indented

            writer.WriteStartObject()
            writer.WritePropertyName("CPU")
            writer.WriteValue("Intel")
            writer.WritePropertyName("PSU")
            writer.WriteValue("500W")
            writer.WritePropertyName("Drives")
            writer.WriteStartArray()
            writer.WriteValue("DVD read/writer")
            writer.WriteComment("(broken)")
            writer.WriteValue("500 gigabyte hard drive")
            writer.WriteValue("200 gigabyte hard drive")
            writer.WriteEnd()
            writer.WriteEndObject()
        End Using

        ' {
        '  "CPU": "Intel",
        '   "PSU": "500W",
        '   "Drives": [
        '     "DVD read/writer"
        '     /*(broken)*/,
        '     "500 gigabyte hard drive",
        '     "200 gigabyte hard drive"
        '   ]
        ' }
    End Sub

注意:在C#中，这个转换为：using Newtonsoft.Json;，那么剩下的代码.希望这能有所帮助。

//翻译为“征求意见”。

：：不在VB.net中使用

下面的页面对于将代码从C#转换为vb.net非常有用，反之亦然：https://converter.telerik.com/