将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.

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