End Sub
多重结构，树状显示，类似XML节点树，代码比XML简洁得多 Sub figjson3()
aa = \Chaoyang Road \
Set X = CreateObject(\ X.Language = \
s = \ X.AddCode s
Set y = X.Run(\
MsgBox y.myname MsgBox y.myaddress MsgBox y.myaddress.city
MsgBox y.myaddress.postcode End Sub
数组放入对象里 Sub figjson4()
aa = \\[{ \\\\\},{ \\\\\}, { \\\\\
Set X = CreateObject(\ X.Language = \
s = \ X.AddCode s
Set y = X.Run(\ MsgBox y.firstName MsgBox y.email End Sub
可用单引号代替2个双引号，简化写法，如例子一 Sub figjson()
aa = \
Set x = CreateObject(\ x.Language = \
s = \ x.AddCode s
Set y = x.CodeObject.j(aa)
MsgBox y.myname MsgBox y.myid End Sub
在EXCEL中的应用
如SHEET1 A1单元格为AA, B1单元格为BB
Sub figjson()
aa = \
Set x = CreateObject(\ x.Language = \
s = \ x.AddCode s
Set y = x.CodeObject.j(aa) MsgBox y.aa End Sub
传递数值值 Sub figjson()
Set x = CreateObject(\ x.Language = \
s = \ x.AddCode s
Set y = x.CodeObject.cc MsgBox y.a
End Sub
动态添加数据 Sub figjson()
Set x = CreateObject(\ x.Language = \
s = \电话']=8888;\
x.AddCode s
Set y = x.CodeObject.cc MsgBox y.电话 End Sub
数据动态变化 Sub figjson()
Set x = CreateObject(\ x.Language = \
s = \电话']=8888;\ x.AddCode s
Set y = x.CodeObject.cc MsgBox y.电话
s = \电话']=9999;\ x.AddCode s
MsgBox y.电话 End Sub
用变量来查询 Sub figjson()
Set x = CreateObject(\x.Language = \
s = \x.AddCode s
kk = \
y = x.eval(\ MsgBox y
kk = \
y = x.eval(\ MsgBox y
kk = \
y = x.eval(\ MsgBox y
End Sub
与VB比较，代码更加简洁明了，可作为小型数据库 Sub vb代码() Name = \
If Name = \
If Name = \
If Name = \MsgBox Address
Name = \
If Name = \
If Name = \
If Name = \MsgBox Address End Sub
Sub fjson代码()
Set x = CreateObject(\ x.Language = \
s = \ x.AddCode s
Name = \
Address = x.eval(\
MsgBox Address
Name = \
Address = x.eval(\
MsgBox Address
End Sub
类似数组，可增加和删除数据 Sub figjs()
Set x = CreateObject(\ x.Language = \
s = \
x.AddCode s
For i = 1 To 100
s = \
x.AddCode s Next
Address = x.eval(\
MsgBox Address
Address = x.eval(\
MsgBox Address
x.eval (\
Address = x.eval(\
MsgBox Address
End Sub
在VBA中使用JAVASCRIPT和VBSCRIPT（3）
phpjs是用js实现php同名函数，对PHP熟悉而对JS一般熟悉的人一定写过一些类似PHP函数的JS函数，PHP的函数应该是这个世界上最丰富的函数库了，因为它是由全世界