Dim zlsc As String =
Dim jo As JObject = JObject.Parse(zlsc)
Dim ja As JArray = jo("data")
Dim idx As Integer = 100
For i As Integer = 0 To ja.Count - 1
idx= idx + 1
Dim s As String = ja(i)("file" & idx).ToString()
Dim Values() As String
Values = s.split(".")
'If values.Length = 2 Then End If '不放心的话可以判断一下是不是只有一个点号
Select Case Values(1)
Case "png","jpg","jpeg","gif"
Output.Show( "图片:" & ja(i)("file" & idx).ToString())
Case Else
Output.Show( "文件:" & ja(i)("file" & idx).ToString())
End Select
Next
加好友 
发短信
Post By：2021/6/23 11:39:00 [显示全部帖子]
