以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  遍历JSON数据到Textbox中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175605)

--  作者:happy2010
--  发布时间:2022/3/11 10:40:00
--  遍历JSON数据到Textbox中
请教老师,遍历出来的数据如何组合成一段字符串输出到Textbox中。
Dim jo As JObject = Jobject.Parse(ClipBoard.GetText)
If jo("Result")("Sentences") IsNot Nothing Then
    For Each jt As JToken In jo("Result")("Sentences")
        Output.Show( jt("Text").ToString)
    Next
End If


--  作者:有点蓝
--  发布时间:2022/3/11 10:42:00
--  
dim s as string = ""
    For Each jt As JToken In jo("Result")("Sentences")
        s = s & jt("Text").ToString
    Next
Output.Show(s )

--  作者:happy2010
--  发布时间:2022/3/11 10:58:00
--  
老师您给的代码会带json结构数据,如何只提取jt("Text")文字内容呢。
--  作者:有点蓝
--  发布时间:2022/3/11 10:59:00
--  
没看懂,请截图、举例说明一下
--  作者:happy2010
--  发布时间:2022/3/11 11:04:00
--  
抱歉 我是代码调试错误了,老师给的代码是正确的,非常感谢