欢迎您:游客!请先
登录
或
注册
风格
恢复默认设置
|
展区
文件集浏览
图片集浏览
Flash浏览
音乐集浏览
电影集浏览
|
搜索
Foxtable(狐表)
→
用户栏目
→
专家坐堂
→ 求封装一个对JObject和JArray进行判断的函数
新的主题
投票帖
小字报
下一主题 >>
<< 上一主题
共有
3524
人关注过本帖
平板
打印
复制链接
主题:求封装一个对JObject和JArray进行判断的函数
as2565929355
小
大
1楼
|
信息
|
搜索
|
邮箱
|
主页
|
UC
加好友
发短信
等级:幼狐
帖子:
81
积分:1093
威望:0
精华:0
注册:
2017/1/3 9:45:00
求封装一个对JObject和JArray进行判断的函数
Post By:2023/1/31 13:12:00 [
只看该作者
]
想封装一个函数,传递的参数不确定,有可能是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
下一主题 >>
<< 上一主题
RSS2.0
|
Xhtml无图版
|
Xslt无图版
Copyright © 2000 - 2018
foxtable
.com
Tel: 4000-810-820 粤ICP备11091905号
Powered By
Dvbbs
Version 8.3.0
页面执行时间 0.02344 秒, 5 次数据查询