以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  哪里有JArray的相关方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179344)

--  作者:qaz17909
--  发布时间:2022/8/19 11:12:00
--  哪里有JArray的相关方法
 Dim arr As New JArray,
这个数组的方法在哪里可以看,帮助里只是出现了add方法,还有其他方法吗,比如删除某个数组里某个指定的元素

--  作者:有点蓝
--  发布时间:2022/8/19 11:21:00
--  
更新到最新版,就可以直接在代码编辑器里看了:

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:qaz17909
--  发布时间:2022/8/19 11:50:00
--  
 这个我看到了,但是好像没有看到方法的使用说明
--  作者:有点蓝
--  发布时间:2022/8/19 13:37:00
--  
第三方的东西是没有说明的。只能根据字面意思猜了。或者网上搜搜:https://www.newtonsoft.com/json/help/html/Introduction.htm
--  作者:qaz17909
--  发布时间:2022/8/19 15:32:00
--  
想删除数组内一个特定的对象,这样写报错,应该怎么写?
Dim arr As New JArray
Dim obj1 As New JObject
obj1("单号") = "A001"
arr.Add(obj1)
Dim obj2 As New JObject
obj2("单号") = "A002"
arr.Add(obj2)
Dim obj3 As New JObject
obj3("单号") = "A003"
arr.Add(obj3)
For Each obj As JObject In arr.Children
    If obj("单号") = "A003" Then
        arr.Remove(obj)
    End If
Next 

--  作者:有点蓝
--  发布时间:2022/8/19 15:45:00
--  
For i As Integer = arr.Count - 1 To 0 Step - 1
    If arr (i)("单号") = "A003" Then
        arr.RemoveAt(i)
    End If
Next