美化JSON代码

dat恶人 · 发表于 2022-12-22 20:44:54

从网上看到的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恶人 · 发表于 2022-12-22 20:47:14

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

dat恶人 · 发表于 2022-12-26 18:45:08

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

shj0205 · 发表于 2022-12-24 13:31:32

感谢分享！

396384183 · 发表于 2022-12-24 10:33:26

感谢分享，很给力！~

忧郁之子 · 发表于 2022-12-24 00:36:32

谢谢分享

mood1000 · 发表于 2022-12-23 15:57:36

感谢分享收藏了额

清风徐来2 · 发表于 2022-12-23 15:31:50

感谢分享

ploneljs · 发表于 2022-12-23 14:09:58

666666666666666666666666666666666666666666666

shj0205 · 发表于 2022-12-23 12:36:08

感谢分享！

ikun123 · 发表于 2022-12-23 09:16:29

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

		自动登录	找回密码
密码			注册

[易语言纯源码] 美化JSON代码

评分