以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 遍历JSON数据到Textbox中 (http://foxtable.com/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 -- 抱歉 我是代码调试错误了,老师给的代码是正确的,非常感谢 |