美化JSON代码

dat恶人

从网上看到的JS代码,看到没有人做过易语言版本,我就搞一下,不知道有没有BUG

  

子程序名	返回值类型	公开	备 注
美化JSON	文本型
参数名	类 型	参考	可空	数组	备 注
json文本	文本型

变量名	类 型	静态	数组	备 注
临时数组	文本型		0
i	整数型
临时文本	文本型
tab	整数型
inString	逻辑型
c	文本型
临时文本2	文本型

临时数组 ＝ 分割文本 (json文本, #换行符, )
计次循环首 (取数组成员数 (临时数组), i)
临时文本 ＝ 临时文本 ＋ 临时数组 [i]
如果真 (i ≠ 取数组成员数 (临时数组))
临时文本 ＝ 临时文本 ＋ “ ”

计次循环尾 ()
tab ＝ 0
inString ＝ 假
计次循环首 (取文本长度 (临时文本), i)
c ＝ 取文本中间 (临时文本, i, 1)
如果 (inString)
如果真 (取文本中间 (临时文本, i － 1, 1) ≠ “\”)
inString ＝ 假

如果 (取反 (inString) 且 (c ＝ #引号 或 c ＝ “'”))
' inString ＝ 真
如果 (取反 (inString) 且 (c ＝ “ ” 或 c ＝ “\t”))
c ＝ “”
如果 (取反 (inString) 且 c ＝ “:”)
c ＝ c ＋ “ ”
如果 (取反 (inString) 且 c ＝ “,”)
c ＝ c ＋ #换行符 ＋ 取空白文本 (tab × 2)
如果 (取反 (inString) 且 (c ＝ “[” 或 c ＝ “{”))
tab ＝ tab ＋ 1
c ＝ c ＋ #换行符 ＋ 取空白文本 (tab × 2)
如果 (取反 (inString) 且 (c ＝ “]” 或 c ＝ “}”))
tab ＝ tab － 1
c ＝ #换行符 ＋ 取空白文本 (tab × 2) ＋ c








临时文本2 ＝ 临时文本2 ＋ c
计次循环尾 ()
' 调试输出 (t)
返回 (临时文本2)

.版本 2<br /> <br /> .子程序 美化JSON, 文本型, 公开<br /> .参数 json文本, 文本型<br /> .局部变量 临时数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 tab, 整数型<br /> .局部变量 inString, 逻辑型<br /> .局部变量 c, 文本型<br /> .局部变量 临时文本2, 文本型<br /> <br /> 临时数组 ＝ 分割文本 (json文本, #换行符, )<br /> .计次循环首 (取数组成员数 (临时数组), i)<br />     临时文本 ＝ 临时文本 ＋ 临时数组 <i><br />     .如果真 (i ≠ 取数组成员数 (临时数组))<br />         临时文本 ＝ 临时文本 ＋ “ ”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> tab ＝ 0<br /> inString ＝ 假<br /> <br /> .计次循环首 (取文本长度 (临时文本), i)<br />     c ＝ 取文本中间 (临时文本, i, 1)<br />     .如果 (inString)<br />         .如果真 (取文本中间 (临时文本, i － 1, 1) ≠ “\”)<br />             inString ＝ 假<br />         .如果真结束<br /> <br />     .否则<br />         .如果 (取反 (inString) 且 (c ＝ #引号 或 c ＝ “'”))<br />             ' inString ＝ 真<br />         .否则<br />             .如果 (取反 (inString) 且 (c ＝ “ ” 或 c ＝ “\t”))<br />                 c ＝ “”<br />             .否则<br />                 .如果 (取反 (inString) 且 c ＝ “:”)<br />                     c ＝ c ＋ “ ”<br />                 .否则<br />                     .如果 (取反 (inString) 且 c ＝ “,”)<br />                         c ＝ c ＋ #换行符 ＋ 取空白文本 (tab × 2)<br />                     .否则<br />                         .如果 (取反 (inString) 且 (c ＝ “[” 或 c ＝ “{”))<br />                             tab ＝ tab ＋ 1<br />                             c ＝ c ＋ #换行符 ＋ 取空白文本 (tab × 2)<br />                         .否则<br />                             .如果 (取反 (inString) 且 (c ＝ “]” 或 c ＝ “}”))<br />                                 tab ＝ tab － 1<br />                                 c ＝ #换行符 ＋ 取空白文本 (tab × 2) ＋ c<br />                             .否则<br /> <br />                             .如果结束<br /> <br />                         .如果结束<br /> <br />                     .如果结束<br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br />     临时文本2 ＝ 临时文本2 ＋ c<br /> .计次循环尾 ()<br /> ' 调试输出 (t)<br /> 返回 (临时文本2)

dat恶人

那条
inString ＝ 真
我也不知道为什么要注释掉
他原先是inString ＝ c ,
不要怀疑,JS里面就是这么写的,注释调后反而没有问题了
搞不懂

dat恶人

美化json代码2.0移步:https://bbs.125.la/thread-14758958-1-1.html
修复了部分BUG导致json文本错误,无法解析

shj0205

感谢分享！

396384183

感谢分享，很给力！~

忧郁之子

谢谢分享

mood1000

感谢分享收藏了额

清风徐来2

感谢分享

ploneljs

666666666666666666666666666666666666666666666

shj0205

感谢分享！

ikun123

走过路过不要错过！大撒币大撒币了啊！~https://bbs.125.la/thread-14758184-1-1.html 看了不吃亏，看了不上当！来来来瞧一瞧看一看了啊！