是否将vb.net字符串转换为Json对象？

我是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。

我想有两种方法。因为这是一个简单的字符串，所以您可以强制执行它：

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

请查看