{"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
加好友 
发短信
Post By：2024/8/26 11:15:00 [显示全部帖子]
