标题：【求助】这里有报错，但不知道是为啥

1楼

zto001 发表于：2024/9/24 22:29:00

Dim s As String = FileSys.ReadAllText("C:\Users\admin\Desktop\微信机器人\新建文本文档.txt", Encoding.Default)

s = s.trim(vbcr, vblf, " ")'剔除最后一行空值

'Output.Show(s)

Dim Values() As String

Values = s.split(Chr(13) & Chr(10))

For Index As Integer = 0 To Values.Length - 1

'解析json

Dim jo As JObject = JObject.Parse(Values(Index))

Output.Show(Values(Index))

错误来源是这个文档里面的东西

此主题相关图片如下：1.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

2楼

有点蓝 发表于：2024/9/24 22:57:00

文本里的数据有问题：

此主题相关图片如下：1.png

3楼

zto001 发表于：2024/9/25 8:16:00

数据有问题我怎样判断跳过去呢？

4楼

有点蓝 发表于：2024/9/25 8:35:00

For Index As Integer = 0 To Values.Length - 1

Try

Dim jo As JObject = JObject.Parse(Values(Index))

Catch ex As Exception

MsgBox(ex.message)

End Try

共4 条记录, 每页显示 10 条, 页签: [1]