以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求封装一个对JObject和JArray进行判断的函数  (http://foxtable.com/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
--  
我测试没有问题,外部是怎么传参数的?

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


--  作者:as2565929355
--  发布时间:2023/1/31 13:56:00
--  
谢谢蓝老师,外面的参数传错了 ,传成Object的了