我在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 代码工具，但它们都是错误的。

uj5u.com热心网友回复：

您没有显示整个代码，因此很难进一步帮助您。要安装和使用 Newtonsoft.json，请执行以下操作： 1：在您的 Visual Studio 项目选单上打开您的 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/