美化JSON代码 2.0

dat恶人

今天在解析快手的视频的时候,将快手的json使用代码美化了一下发现了一些问题
在第一个贴子我置顶评论说不知道部分代码的用处,在现在我读懂了
我也进行了代码上的改进
关于inString这个变量我的理解是,是否在引号文本中
本次改进主要是针对inString的判断,和代码的优化
也加上了一些注释,简单易懂,不懂评论
好了,接下来是代码部分
喜欢就点个赞吧,谢谢

  

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

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

临时数组 ＝ 分割文本 (json文本, #换行符, )  ' 去前后空
计次循环首 (取数组成员数 (临时数组), i)
临时文本 ＝ 临时文本 ＋ 临时数组 [i]
计次循环尾 ()
计次循环首 (取文本长度 (临时文本), i)
c ＝ 取文本中间 (临时文本, i, 1)
如果真 (c ＝ #换行符 或 c ＝ 到文本 ({ 10 }))  ' 文本去无用换行符
c ＝ “”

如果 (inString)
如果真 ( (c ＝ #引号 或 c ＝ “'”) 且 取文本中间 (临时文本, i － 1, 1) ≠ “\”)  ' 如果前面无转义符,就是单纯的 " 那就代表出引号了(意思就是现在c为后引号) ,有转义符代表还在引号范围
inString ＝ 假

如果 (取反 (inString) 且 (c ＝ #引号 或 c ＝ “'”))  ' 判断是否为前引号
inString ＝ 真
如果 (取反 (inString) 且 c ＝ “ ”)
到循环尾 ()  ' 没有引号引住的文本去空 原代码应该是 c = "",现在改为 到循环尾()
如果 (取反 (inString) 且 c ＝ “:”)
c ＝ c ＋ “ ”  ' 为了美观
如果 (取反 (inString) 且 c ＝ “,”)
c ＝ c ＋ #换行符 ＋ 取空白文本 (tab × 2)  ' 加缩进,"×2"代表两个空格
如果 (取反 (inString) 且 (c ＝ “[” 或 c ＝ “{”))
tab ＝ tab ＋ 1  ' 加缩进数
c ＝ c ＋ #换行符 ＋ 取空白文本 (tab × 2)
如果 (取反 (inString) 且 (c ＝ “]” 或 c ＝ “}”))
tab ＝ tab － 1  ' 减缩进数
c ＝ #换行符 ＋ 取空白文本 (tab × 2) ＋ c








临时文本2 ＝ 临时文本2 ＋ c
计次循环尾 ()
返回 (临时文本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 /> .计次循环尾 ()<br /> .计次循环首 (取文本长度 (临时文本), i)<br />     c ＝ 取文本中间 (临时文本, i, 1)<br />     .如果真 (c ＝ #换行符 或 c ＝ 到文本 ({ 10 }))  ' 文本去无用换行符<br />         c ＝ “”<br />     .如果真结束<br /> <br />     .如果 (inString)<br />         .如果真 ((c ＝ #引号 或 c ＝ “'”) 且 取文本中间 (临时文本, i － 1, 1) ≠ “\”)  ' 如果前面无转义符,就是单纯的 " 那就代表出引号了(意思就是现在c为后引号) ,有转义符代表还在引号范围<br />             inString ＝ 假<br />         .如果真结束<br /> <br />     .否则<br />         .如果 (取反 (inString) 且 (c ＝ #引号 或 c ＝ “'”))  ' 判断是否为前引号<br />             inString ＝ 真<br />         .否则<br />             .如果 (取反 (inString) 且 c ＝ “ ”)<br />                 到循环尾 ()  ' 没有引号引住的文本去空 原代码应该是 c = "",现在改为 到循环尾()<br />             .否则<br />                 .如果 (取反 (inString) 且 c ＝ “:”)<br />                     c ＝ c ＋ “ ”  ' 为了美观<br />                 .否则<br />                     .如果 (取反 (inString) 且 c ＝ “,”)<br />                         c ＝ c ＋ #换行符 ＋ 取空白文本 (tab × 2)  ' 加缩进,"×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 /> 返回 (临时文本2)

kyo9766

能加上一个选择，数组是否拆行，就更完美了，稍微修改了一下，数组只有值的时候，不拆行，数组内嵌JSON数据时拆行，感谢分享

  

子程序名	返回值类型	公开	备 注
JSON美化_4	文本型
参数名	类 型	参考	可空	数组	备 注
参数_json文本	文本型
参数_是否拆分数组	逻辑型				真(默认)拆分数组，假不拆分数组

变量名	类 型	静态	数组	备 注
局部_数组	文本型		0
局部_i	整数型
局部_文本	文本型
局部_tab	整数型
局部_inString	逻辑型
局部_c	文本型
局部_文本2	文本型
局部_数组进入	逻辑型
局部_数组JSON	逻辑型
局部_是否拆行	逻辑型

局部_数组 ＝ 分割文本 (参数_json文本, #换行符, )  ' 去前后空
参数_是否拆分数组 ＝ 选择 (是否为空 (参数_是否拆分数组), 真, 参数_是否拆分数组)
计次循环首 (取数组成员数 (局部_数组), 局部_i)
局部_文本 ＝ 局部_文本 ＋ 局部_数组 [局部_i]
计次循环尾 ()
计次循环首 (取文本长度 (局部_文本), 局部_i)
局部_c ＝ 取文本中间 (局部_文本, 局部_i, 1)
如果真 (局部_c ＝ #换行符 或 局部_c ＝ 到文本 ({ 10 }))  ' 文本去无用换行符
局部_c ＝ “”

如果 (局部_inString)
如果真 ( (局部_c ＝ #引号 或 局部_c ＝ “'”) 且 取文本中间 (局部_文本, 局部_i － 1, 1) ≠ “\”)  ' 如果前面无转义符,就是单纯的 " 那就代表出引号了(意思就是现在c为后引号) ,有转义符代表还在引号范围
局部_inString ＝ 假

如果 (取反 (局部_inString) 且 (局部_c ＝ #引号 或 局部_c ＝ “'”))  ' 判断是否为前引号
局部_inString ＝ 真
如果 (取反 (局部_inString) 且 局部_c ＝ “ ”)
到循环尾 ()  ' 没有引号引住的文本去空 原代码应该是 c = "",现在改为 到循环尾()
如果 (取反 (局部_inString) 且 局部_c ＝ “:”)
局部_c ＝ 局部_c ＋ “ ”  ' 为了美观


如果 (参数_是否拆分数组 ＝ 真)
如果 (取反 (局部_inString) 且 局部_c ＝ “,”)
局部_c ＝ 局部_c ＋ #换行符 ＋ 取空白文本 (局部_tab × 2)  ' 加缩进,"×2"代表两个空格


如果 (取反 (局部_inString) 且 (局部_c ＝ “[” 或 局部_c ＝ “{”))
局部_tab ＝ 局部_tab ＋ 1  ' 加缩进数
局部_c ＝ 局部_c ＋ #换行符 ＋ 取空白文本 (局部_tab × 2)
如果 (取反 (局部_inString) 且 (局部_c ＝ “]” 或 局部_c ＝ “}”))
局部_tab ＝ 局部_tab － 1  ' 减缩进数
局部_c ＝ #换行符 ＋ 取空白文本 (局部_tab × 2) ＋ 局部_c







如果真 (局部_c ＝ “[”)
局部_数组进入 ＝ 真

如果真 (局部_数组进入 且 局部_c ＝ “{”)  ' 这部分逻辑完成，实现 【 { 不分层
局部_数组进入 ＝ 假

如果真 (局部_c ＝ “]”)
局部_数组进入 ＝ 假

如果 (取反 (局部_inString) 且 局部_c ＝ “,” 且 局部_数组进入 ＝ 假)
局部_c ＝ 局部_c ＋ #换行符 ＋ 取空白文本 (局部_tab × 2)  ' 加缩进,"×2"代表两个空格



如果 (取反 (局部_inString) 且 局部_c ≠ “[” 且 局部_c ＝ “{”)
局部_tab ＝ 局部_tab ＋ 1  ' 加缩进数
局部_c ＝ 局部_c ＋ #换行符 ＋ 取空白文本 (局部_tab × 2)
如果 (取反 (局部_inString) 且 局部_c ≠ “]” 且 局部_c ＝ “}”)
局部_tab ＝ 局部_tab － 1  ' 减缩进数
局部_c ＝ #换行符 ＋ 取空白文本 (局部_tab × 2) ＋ 局部_c









局部_文本2 ＝ 局部_文本2 ＋ 局部_c
计次循环尾 ()
返回 (局部_文本2)

.版本 2<br /> <br /> .子程序 JSON美化_4, 文本型, 公开<br /> .参数 参数_json文本, 文本型<br /> .参数 参数_是否拆分数组, 逻辑型, 可空, 真(默认)拆分数组，假不拆分数组<br /> .局部变量 局部_数组, 文本型, , "0"<br /> .局部变量 局部_i, 整数型<br /> .局部变量 局部_文本, 文本型<br /> .局部变量 局部_tab, 整数型<br /> .局部变量 局部_inString, 逻辑型<br /> .局部变量 局部_c, 文本型<br /> .局部变量 局部_文本2, 文本型<br /> .局部变量 局部_数组进入, 逻辑型<br /> .局部变量 局部_数组JSON, 逻辑型<br /> .局部变量 局部_是否拆行, 逻辑型<br /> <br /> 局部_数组 ＝ 分割文本 (参数_json文本, #换行符, )  ' 去前后空<br /> 参数_是否拆分数组 ＝ 选择 (是否为空 (参数_是否拆分数组), 真, 参数_是否拆分数组)<br /> .计次循环首 (取数组成员数 (局部_数组), 局部_i)<br />     局部_文本 ＝ 局部_文本 ＋ 局部_数组 [局部_i]<br /> .计次循环尾 ()<br /> .计次循环首 (取文本长度 (局部_文本), 局部_i)<br />     局部_c ＝ 取文本中间 (局部_文本, 局部_i, 1)<br />     .如果真 (局部_c ＝ #换行符 或 局部_c ＝ 到文本 ({ 10 }))  ' 文本去无用换行符<br />         局部_c ＝ “”<br />     .如果真结束<br /> <br />     .如果 (局部_inString)<br />         .如果真 ((局部_c ＝ #引号 或 局部_c ＝ “'”) 且 取文本中间 (局部_文本, 局部_i － 1, 1) ≠ “\”)  ' 如果前面无转义符,就是单纯的 " 那就代表出引号了(意思就是现在c为后引号) ,有转义符代表还在引号范围<br />             局部_inString ＝ 假<br />         .如果真结束<br /> <br />     .否则<br />         .如果 (取反 (局部_inString) 且 (局部_c ＝ #引号 或 局部_c ＝ “'”))  ' 判断是否为前引号<br />             局部_inString ＝ 真<br />         .否则<br />             .如果 (取反 (局部_inString) 且 局部_c ＝ “ ”)<br />                 到循环尾 ()  ' 没有引号引住的文本去空 原代码应该是 c = "",现在改为 到循环尾()<br />             .否则<br />                 .如果 (取反 (局部_inString) 且 局部_c ＝ “:”)<br />                     局部_c ＝ 局部_c ＋ “ ”  ' 为了美观<br />                 .否则<br /> <br /> <br />                     .如果 (参数_是否拆分数组 ＝ 真)<br />                         .如果 (取反 (局部_inString) 且 局部_c ＝ “,”)<br />                             局部_c ＝ 局部_c ＋ #换行符 ＋ 取空白文本 (局部_tab × 2)  ' 加缩进,"×2"代表两个空格<br />                         .否则<br /> <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 />                         .如果真 (局部_c ＝ “[”)<br />                             局部_数组进入 ＝ 真<br />                         .如果真结束<br /> <br />                         .如果真 (局部_数组进入 且 局部_c ＝ “{”)  ' 这部分逻辑完成，实现 【 { 不分层<br />                             局部_数组进入 ＝ 假<br />                         .如果真结束<br /> <br />                         .如果真 (局部_c ＝ “]”)<br />                             局部_数组进入 ＝ 假<br />                         .如果真结束<br /> <br /> <br /> <br /> <br />                         .如果 (取反 (局部_inString) 且 局部_c ＝ “,” 且 局部_数组进入 ＝ 假)<br />                             局部_c ＝ 局部_c ＋ #换行符 ＋ 取空白文本 (局部_tab × 2)  ' 加缩进,"×2"代表两个空格<br /> <br />                         .否则<br /> <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 />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br />     局部_文本2 ＝ 局部_文本2 ＋ 局部_c<br /> .计次循环尾 ()<br /> 返回 (局部_文本2)

liubf

wolfpack

yuxuanju

谢谢分享，值得学习啊。

mt5856

感谢分享

shj0205

感谢分享!

清风徐来2

感谢分享

396384183

感谢分享!

2446789312