json - 将 vb.net 字符串转换为 Json 对象？

Question

我是 vb.net 的新手，我正在开发一个网络服务。我想在 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。

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 的引用。