将vb.net字符串转换为JSON对象？

Question

我是VB.NET的新手，正在开发一个Web服务。我想用JSON对象发送响应。我的响应中只有一个字符串。

public string GetUser(String IMEI)
{
    string msg = "";
    string SQL1 = "Select Email from [Customer] where [Vehicle]='" + IMEI + "'";
    DataTable dt = dbcom.GetDataTable(SQL1);
    if (dt.Rows.Count > 0)
    {
        msg = dt.Rows[0]["Email"].ToString();
        //CV(username, IMEI);
        //vehiclechk(IMEI);
    }
    return msg;
}

这是发送XML字符串。 我们如何将msg字符串转换为JSON。

- Nadeem

---

请查看Json.NET。 - valverij

Answer 1

我想有两种方法可以实现。由于这是一个简单的字符串，您可以直接使用暴力破解：

 Dim jsonMsg = "{""msg"":""" & msg & """}"

更加复杂的方式是将其放入一个类中并对其进行序列化。

Public Class MyMessage
  Public Property Msg As String
  Public Sub New(myMsg as String)
    Msg = myMsg
  End Sub
End Class

Dim myMsg As New MyMessage(msg)
Dim serializer as new JavaScriptSerializer
Dim jsonMsg = serializer.Serialize(myMsg)

你需要引用 System.Runtime.CompilerServices。

- Holger Brandt