以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求封装一个对JObject和JArray进行判断的函数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185024) |
-- 作者:as2565929355 -- 发布时间:2023/1/31 13:12:00 -- 求封装一个对JObject和JArray进行判断的函数 想封装一个函数,传递的参数不确定,有可能是JObject,也有可能是JArray,现在想对参数进行判断做后续的处理 Dim obj1 As Object = Args(0) Dim obj2 As Object = Args(1) Dim maxLength As Integer = Args(2) If obj1 Is Nothing Then Return obj2 If obj2 Is Nothing Then Return obj1 Dim sum1 As Double Dim sum2 As Double If obj1.GetType() Is GetType(JObject) Then Output.Show("JObject") End If If TypeOf obj1 Is JArray Then Output.Show("obj is JArray") ElseIf TypeOf obj1 Is JObject Then Output.Show("obj is JObject") Else Output.Show("判断不出来") End If |
-- 作者:有点蓝 -- 发布时间:2023/1/31 13:32:00 -- 我测试没有问题,外部是怎么传参数的? |
-- 作者:as2565929355 -- 发布时间:2023/1/31 13:56:00 -- 谢谢蓝老师,外面的参数传错了 ,传成Object的了 |