公用模块代码:
'一、这个是取单个数据
静态 函数 json(源码 为 文本型,类名 为 文本型)为 文本型
变量 取出值 为 文本型
源码 = UCS2解码(源码)
取出值 = 取指定文本2(源码,代码转字符(34) & 类名 & 代码转字符(34) & ":" & 代码转字符(34) , 代码转字符(34))
如果 取出值 = "" 则
取出值 = 取指定文本2(源码,代码转字符(34) & 类名 & 代码转字符(34) & ":" , ",")
结束 如果
如果 取出值 = "" 则
取出值 = 取指定文本2(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , "}")
结束 如果
如果 取出值 = "" 则
取出值 = 取指定文本2(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , "]")
结束 如果
json=取出值
结束 函数
'二、这个是取多个数组
静态 函数 json2(源码 为 文本型,类名 为 文本型)为 文本型()
变量 取出值 为 文本型()
源码 = UCS2解码(源码)
取出值 = 取指定文本(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" & 代码转字符(34) , 代码转字符(34))
如果 取数组成员数(取出值) = 0 则
取出值 = 取指定文本(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , ",")
结束 如果
如果 取数组成员数(取出值) = 0 则
取出值 = 取指定文本(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , "}")
结束 如果
如果 取数组成员数(取出值) = 0 则
取出值 = 取指定文本(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , "]")
结束 如果
json2=取出值
结束 函数
使用方法
1.单个数组使用 公用模块.json(源码,"XX")
2.多个数组使用 公用模块.json2(源码,"XX")
版权声明
1.本站大部分下载资源收集于网络,不保证其完整性以及安全性,请下载后自行测试。
2.本站资源仅供学习和交流使用,版权归资源原作者所有,请在下载后24小时之内自觉删除。
3.若作商业用途,请购买正版,由于未及时购买和付费发生的侵权行为,与本站无关。
4.若内容涉及侵权或违法信息,请联系本站管理员进行下架处理,邮箱ganice520@163.com(本站不支持其他投诉反馈渠道,谢谢合作)
发表评论