Foxtable(狐表)用户栏目专家坐堂 → [求助]关于josn解析


  共有1711人关注过本帖树形打印复制链接

主题:[求助]关于josn解析

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]关于josn解析  发帖心情 Post By:2024/8/26 11:15:00 [只看该作者]

{"content":"76414989517298\r\n78440201872821\r\n76414989517298\r\n76415372357785\r\n76412299689841登记拦截","final_from_name":"测试名","final_from_wxid":"wxid_62q7me1l6ken12","from_name":"红星中通61-售后群翊邮-仙鸾-风柳-朱","from_wxid":"53284710703@chatroom","is_pc":0,"msg_type":1,"msgid":"8904268467146888670","original_content":"37363431343938393531373239380A37383434303230313837323832310A37363431343938393531373239380A37363431353337323335373738350A3736343132323939363839383431E799BBE8AEB0E68BA6E688AA","robot_wxid":"wxid_ap0qjgxd6j8122","timestamp":1724426837,"to_name":"立秋","to_wxid":"wxid_ap0qjgxd6j8122"}
上面这段josn,我只解析出76414989517298这个,后面的都没有解析出来,我这是什么原因?而且多行json只解析了前面14行,在15行直接出错

Dim s As String = FileSys.ReadAllText("C:\Users\admin\Desktop\微信机器人\定制版接收文本.txt", Encoding.Default)
'Output.Show(s)

Dim Values() As String
Values = s.split(Chr(13) & Chr(10))
For Index As Integer = 0 To Values.Length - 1
    Dim json As String = Values(Index)
    Dim jo As JObject = JObject.Parse(json)
    Output.Show(jo("content"))
Next

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111401 积分:567075 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/26 11:32:00 [只看该作者]

Dim s As String = FileSys.ReadAllText("D:\问题\1.txt")
'Output.Show(s)
Dim jo As JObject = JObject.Parse(s)
'    Output.Show(jo("content").ToString)


For Each a As String In jo("content").ToString.Replace(vbcr, "").Split(vblf)
    Output.Show(a)
    
Next

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2024/8/26 16:49:00 [只看该作者]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2024.8.21.1
错误所在事件:窗口,微信信息记录,记录,Click
详细错误信息:
After parsing a value an unexpected character was encountered: t. Path 'to_name', line 2, position 365.

这是啥意思?每次读取到接近两千行的时候就报错

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111401 积分:567075 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/26 16:54:00 [只看该作者]

json数据自己的问题,比如应该使用双引号的,用成了单引号

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2024/8/26 18:04:00 [只看该作者]

最后一行是空的,怎么剔除?


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111401 积分:567075 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/26 20:25:00 [只看该作者]

s = s.trim(vbcr,vblf," ")

 回到顶部