VFP用Foxjson玩转JSON，超简单的教程

分类：菜鸟笔记作者：fitche

作者：火种
这段时间忙于实现小程序的树型结构，照例是上网抄抄抄、本地试试试，摸了好几天，结果树型结构只做了个半成品，却把foxjson建立JSON的方法玩通了。真是无心插柳柳成阴啊！因此和大家分享一下心得。

一、不管多少级，每一级都要有元素和元素数组。

假设有3级，那么每一级如下：

Ones=createobject(“foxjson”,{})

One=createobject(“foxjson”)

Twos=createobject(“foxjson”,{})

Two=createobject(“foxjson”)

Threes=createobject(“foxjson”,{})

Three=createobject(“foxjson”)

二、赋值顺序为：下一级元素—>下一级元素数组—>上一级元素—>上一级元素数组

元素的赋值用append（健值对），元素数组的赋值用append(元素)

三、赋值采取“吃吐大法”（我觉得用吃吐比较形象）。

元素吃完键值对，要吐给元素数组；元素数组吃完所有元素要吐给上一级元素。吐完都要重新建立才能再吃，就这样重复吃吐直到所有元素和元素数组都吃到第一级元素数组为止。

Ones=Createobject(“foxjson”,{})

One=Createobject(“foxjson”)

Twos=Createobject(“foxjson”,{})   &&&&&&第二级建立&&&&&&&

two=Createobject(“foxjson”)    &&&&&&第二级建立&&&&&&&

threes=Createobject(“foxjson”,{})  &&&&&&第三级建立&&&&&&&

three=Createobject(“foxjson”)   &&&&&&第三级建立&&&&&&&

three.Append(“title”,”第三级1”)  &&&&&&第三级吃&&&&&&&

three.Append(“children”,[])   &&&&&&第三级吃&&&&&&&

threes.Append(three)      &&&&&&第三级吐&&&&&&

three=Createobject(“foxjson”)   &&&&&&第三级建立&&&&&&

three.Append(“title”,”第三级2”)  &&&&&&第三级吃&&&&&&&

three.Append(“children”,[])   &&&&&&第三级吃&&&&&&&

threes.Append(three)      &&&&&& 第三级吐&&&&&&

two.Append(“title”,”第二级1”)  &&&&&&&第二级吃&&&&&&

two.Append(“children”,threes)   &&&&&&&第二级吃&&&&&&

twos.Append(two)        &&&&&&&第二级吐&&&&&&

two=Createobject(“foxjson”)  &&&&&&&&重复上面操作&&&&&&&&&

threes=Createobject(“foxjson”,{})

three=Createobject(“foxjson”)

three.Append(“title”,”第三级3”)

three.Append(“children”,[])

threes.Append(three)

three=Createobject(“foxjson”)

three.Append(“title”,”第三级4”)

three.Append(“children”,[])

threes.Append(three)

two.Append(“title”,”第二级2”)

two.Append(“children”,threes)

twos.Append(two)

one.Append(“title”,”第一级1”)   &&&&&&&第一级吃&&&&&&

one.Append(“children”,twos)    &&&&&&&第一级吃&&&&&&

ones.Append(one)          &&&&&&&第一级吐&&&&&&

?ones.tostring()

_Cliptext=ones.tostring()

将结果发到https://www.json.cn/验证也是OK，如下图。

[
   {
     **"title"**:**"****第一级****1"**,
     **"children"**:[
       {
         **"title"**:**"****第二级****1"**,
         **"children"**:[
           {
             **"title"**:**"****第三级****1"**,
             **"children"**:**[]**
           },
           {
             **"title"**:**"****第三级****2"**,
             **"children"**:**[]**
           }
         ]
       },
       {
         **"title"**:**"****第二级****2"**,
         **"children"**:[
           {
             **"title"**:**"****第三级****3"**,
             **"children"**:**[]**
           },
           {
             **"title"**:**"****第三级****4"**,
             **"children"**:**[]**
           }
         ]
       }
     ]
   }
 ]

 看了上图大家可能有疑问，JSON树体现了各级的元素，那元素数组在树的哪里体现出来呢？其实很简单，上图中的第一级、第二级的children后中括号[]就是表示设有元素数组，如果少了[]，说明下级元素直接添加给了上级元素，json验证也会通过，但个人觉得不够规范。

​ 接下来，再进一步的想法就是中间层根据数据表生成json树再传回小程序，中间层接口代码如下：

例子中的pbtz表的operator,linename,cardname三个字段分别代表父、子、孙三个节点的值

Procedure getpbtree lcregion=HttpQueryParams("region",This.iconnid)

   TEXT TO lcSQLCmd NOSHOW TEXTMERGE

     SELECT id,operator,linename,cardname FROM pbtz ORDER BY operator,linename,cardname

   ENDTEXT       oDBSQLHelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")

   If oDBSQLhelper.SQLQuery(lcSQLCmd,"pbtz_temp")<0

   	Error oDBSQLhelper.errmsg

   Endif



   ***********************************************************

   Select pbtz_temp

   Update pbtz_temp Set operator=Alltrim(operator),linename=Alltrim(linename),cardname=Alltrim(cardname)

   =Tableupdate(.T.)

   Select pbtz_temp

   Go Top

   loperator=pbtz_temp.operator

   llinename=pbtz_temp.linename

   lcardname=pbtz_temp.cardname

   oSchools=Createobject("foxjson",{})

   oSchool=Createobject("foxjson")

   oSchool.Append("title",loperator)

   oSchool.Append("ispb","0")

   oClasss=Createobject("foxjson",{})

   oClass=Createobject("foxjson")

   oClass.Append("title",llinename)

   oClass.Append("ispb","0")

   oStus=Createobject("foxjson",{})

   oStu=Createobject("foxjson")

   oStu.Append("title",lcardname)

   oStu.Append("ispb","1")

   oStu.Append("children",[])

   oStus.Append(oStu)

   Skip

   For i=1 To 1000 &&这地方代码有点low，因为表中945条记录，所以定i最大值为1000&&&&&&

   	If Eof()

   		Exit

   	Endif

   	If pbtz_temp.operator=loperator And pbtz_temp.linename=llinename &&第一级第二级节点不变时

   		oStu=Createobject("foxjson")

   		oStu.Append("title",pbtz_temp.cardname)

   		oStu.Append("ispb","1")

   		oStu.Append("children",[])

   		oStus.Append(oStu)

   	Endif

   	If pbtz_temp.operator=loperator And pbtz_temp.linename<>llinename &&第一级不变，第二级变时

   		oClass.Append("children",oStus)

   		oClasss.Append(oClass)

   		llinename=pbtz_temp.linename

   		oClass=Createobject("foxjson")

   		oClass.Append("title",pbtz_temp.linename)

   		oStus=Createobject("foxjson",{})

   		oStu=Createobject("foxjson")

   		oStu.Append("title",pbtz_temp.cardname)

   		oStu.Append("ispb","1")

   		oStu.Append("children",[])

   		oStus.Append(oStu)

   	Endif

   	If pbtz_temp.operator<>loperator &&第一级变时

   		oClass.Append("children",oStus)

   		oClasss.Append(oClass)

   		oSchool.Append("children",oClasss)

   		oSchools.Append(oSchool)

   		loperator=pbtz_temp.operator

   		llinename=pbtz_temp.linename

   		lcardname=pbtz_temp.cardname

   		oSchool=Createobject("foxjson")

   		oSchool.Append("title",pbtz_temp.operator)

   		oClasss=Createobject("foxjson",{})

   		oClass=Createobject("foxjson")

   		oClass.Append("title",pbtz_temp.linename)

   		oStus=Createobject("foxjson",{})

   		oStu=Createobject("foxjson")

   		oStu.Append("title",pbtz_temp.cardname)

   		oStu.Append("ispb","1")

   		oStu.Append("children",[])

   		oStus.Append(oStu)

   	Endif

   	Skip

   Endfor

   oClass.Append("children",oStus)

   oClasss.Append(oClass)

   oSchool.Append("children",oClasss)

   oSchools.Append(oSchool)

   *oSchools.tostring()

   ********************************************************************

   Return '{"errno":0,"errmsg":"ok","filename":'+oSchools.tostring()+'}'

Endproc

小程序接收后显示的树型结构如下图。

img

小程序接收显示我是参考网上大侠的代码：

https://blog.csdn.net/weixin_44646763/article/details/122751392

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

json

相关推荐

如何学习编程？新手菜鸟如何学编程？
学习编程是顺着互联网的发展潮流，是一件好事。新手如何学习编程？其实不难，不过在学习编程之前你得先了解你的目的是什么？这个很重要，因为目的决定你的发展方向、决定你的发展速度。
it行业都是什么工作？it行业主要做什么？
IT行业是什么工作做什么？IT行业的工作有：产品策划类、页面设计类、前端与移动、开发与测试、营销推广类、数据运营类、运营维护类、游戏相关类等，根据不同的分类下面有细分了不同的岗位。
女生学Java好就业吗？女生适合学Java编程吗？
女生学Java好就业吗？女生适合学Java编程吗？目前有不少女生学习Java开发，但要结合自身的情况，先了解自己适不适合去学习Java，不要盲目的选择不适合自己的Java培训班进行学习。只要肯下功夫钻研，多看、多想、多练
mysql-connect-confused
Can’t connect to local MySQL server through socket \'/var/lib/mysql/mysql.sock问题 1.进入mysql路径
oracle基本命令
oracle基本命令 一、登录操作 1.管理员登录 # 管理员登录 sqlplus / as sysdba 2.普通用户登录
shell判断服务是否启动
一、背景 因为项目中需要通北京网络，所以需要连vpn，但是服务器有时候会断掉，所以写个shell脚本每五分钟去判断是否连接，于是就有下面的shell脚本。
SQL BETWEEN 操作符
BETWEEN 操作符选取介于两个值之间的数据范围内的值。这些值可以是数值、文本或者日期。
​​windows上传ipa到开发者中心app store的方法
假如你已经使用过苹果开发者中心上架app，你肯定知道在苹果开发者中心的web界面，无法直接提交ipa文件，而是需要使用第三方工具，将ipa文件上传到构建版本，开...
SQL 入门篇之什么是别名？
下面的 SQL 语句指定了两个别名，一个是 name 列的别名，一个是 country 列的别名。**提示：**如果列名称包含空格，要求使用双引号或方括号：
windows上传ipa文件到app store的方法​
在使用H5混合开发的app打包后，需要将ipa文件上传到appstore进行发布，就需要去苹果开发者中心进行发布。​
SQL AND & OR 运算符
+----+--------------+---------------------------+-------+---------+
C++ 数组
数组的声明并不是声明一个个单独的变量，比如 number0、number1、...、number99，而是声明一个数组变量，比如 numbers，然后使用 nu...
最全iOS 应用上架流程提交到AppStore
第一步：到appuploader官网下载辅助工具和iCloud驱动，使用前面创建的AppID登录。
SQL ALTER TABLE 语句
如需删除表中的列，请使用下面的语法（请注意，某些数据库系统不允许这种在数据库表中删除列的方式）：
dism操作巨慢
前不久在制作win11pe，制作了一版，1.26GB，太大了，不满意，想再裁剪下，发现这次dism mount正常，commit或discard巨慢，以前都很快...
三种方法卸载Symantec Endpoint Protection 赛门铁克
赛门铁克各个版本概览：https://knowledge.broadcom.com/external/article?legacyId=tech163829
python3.6、python3.10用什么版本的pip
实测Python 3.6.6用pip 21.3.1，再高就报错了，Python 3.10.7用pip 22.3.1是可以的
博通和诺顿
Broadcom Corporation （博通公司，股票代号AVGO）是全球领先的有线和无线通信半导体公司。其产品实现向家庭、 办公室和移动环境以及在这些环境...
高版本c4d在低版本windows系统上打开后不显示窗格
发现个问题，server2016上安装了c4d这些版本，低版本的正常显示窗格，但红色圈出的高版本c4d打开后不显示窗格，
基础网络windows不要使用TAT、如何卸载TAT
TAT：https://cloud.tencent.com/document/product/1340
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot