Dim a As String = "张三"
Dim b As String = "李四"
Dim json As String = "{'touser':['" & a & "', '" & b & "'],'msgtype':'text'}"
Dim jo As JObject = JObject.Parse(json)
Output.Show(jo.ToSTring)
这样,是能成功的
换行,就不行
[此贴子已经被作者于2024/3/28 10:19:45编辑过]
Dim json As String = "{'touser':['" & a & _
"', '" & b & _
"', '" & c & _
"'],'msgtype':'text'}"