易语言json编码解码模块源码 [db:版本]

易语言json编码解码模块源码

系统结构:读对象文本,读对象整数,添加对象,添加数组,添加组数据,置对象数据,置父级,到下一条,是否在尾部,是否在首部,取数组成员数_,到上一条,移到指定位置,移到首部,移到尾部,取当前位置,读文本,读键值,读属性,修改对象值,置对象文本,添加对象数据,添加对象,添加数组数据,组合父级,ReadByte_文本型,hash,init,Add,GetNum,GetParentNum,GetValue,GetType,GetKey,GetKeyParent,del,GetParent,GetParentCount,GetParentIndexLian,GetParentLian,count,decode,encode,code,CodeArr,CodeObj,error,next,val,obj,arr,assoc,str,num,word,ReadByte,is_numeric,字符转义,取父级,取Key,get_type,Ansi转Utf8,Unicode转Utf8,Ansi转Unicode,Unicode转ansi,十到十六,到十六进制文本,去除首部零,十六到十,MultiByteToWideChar,MultiByteToWideChar1,WideCharToMultiByte,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 读对象文本
| |
| |------ 读对象整数
| |
| |------ 添加对象
| |
| |------ 添加数组
| |
| |------ 添加组数据
| |
| |------ 置对象数据
| |
| |
======变量操作
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 置父级
| |
| |------ 到下一条
| |
| |------ 是否在尾部
| |
| |------ 是否在首部
| |
| |------ 取数组成员数_
| |
| |------ 到上一条
| |
| |------ 移到指定位置
| |
| |------ 移到首部
| |
| |------ 移到尾部
| |
| |------ 取当前位置
| |
| |------ 读文本
| |
| |------ 读键值
| |
| |------ 读属性
| |
| |------ 修改对象值
| |
| |------ 置对象文本
| |
| |------ 添加对象数据
| |
| |------ 添加对象
| |
| |------ 添加数组数据
| |
| |------ 组合父级
| |
| |
======程序集2
| |
| |------ ReadByte_文本型
| |
| |
======JntooHash
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ hash
| |
| |------ init
| |
| |------ Add
| |
| |------ GetNum
| |
| |------ GetParentNum
| |
| |------ GetValue
| |
| |------ GetType
| |
| |------ GetKey
| |
| |------ GetKeyParent
| |
| |------ del
| |
| |------ GetParent
| |
| |------ GetParentCount
| |
| |------ GetParentIndexLian
| |
| |------ GetParentLian
| |
| |------ count
| |
| |
======Json解码编码
| |
| |------ decode
| |
| |------ encode
| |
| |------ code
| |
| |------ CodeArr
| |
| |------ CodeObj
| |
| |------ error
| |
| |------ next
| |
| |------ val
| |
| |------ obj
| |
| |------ arr
| |
| |------ assoc
| |
| |------ str
| |
| |------ num
| |
| |------ word
| |
| |
======公共程序集
| |
| |------ ReadByte
| |
| |------ is_numeric
| |
| |------ 字符转义
| |
| |------ 取父级
| |
| |------ 取Key
| |
| |------ get_type
| |
| |------ _取文本数据地址
| |
| |------ _取字节集数据地址
| |
| |------ Ansi转Utf8
| |
| |------ Unicode转Utf8
| |
| |------ Ansi转Unicode
| |
| |------ Unicode转ansi
| |
| |------ 十到十六
| |
| |------ 到十六进制文本
| |
| |------ 去除首部零
| |
| |------ 十六到十
| |
| |
======调用的Dll
| |
| |---[dll]------ MultiByteToWideChar
| |
| |---[dll]------ MultiByteToWideChar1
| |
| |---[dll]------ _宽字符到双字节1
| |
| |---[dll]------ _宽字符到双字节
| |
| |---[dll]------ WideCharToMultiByte

调用的DLL命令:

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar", 公开
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpMultiByteStr, 文本型
.参数 cchMultiByte, 整数型
.参数 lpWideCharStr, 字节集
.参数 cchWideChar, 整数型

.DLL命令 MultiByteToWideChar1, 整数型, , "MultiByteToWideChar"
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpMultiByteStr, 字节集
.参数 cchMultiByte, 整数型
.参数 lpWideCharStr, 字节集
.参数 cchWideChar, 整数型

.DLL命令 _宽字符到双字节1, 整数型, , "WideCharToMultiByte", , kernel32.dll
.参数 代码页, 整数型, , CodePage
.参数 标志, 整数型, , dwFlags
.参数 宽字符文本, 字节集, , lpWideCharStr
.参数 宽字符文本长度, 整数型, , cchWideChar
.参数 双字节文本, 整数型, , lpMultiByteStr
.参数 双字节文本长度, 整数型, , cchMultiByte
.参数 默认文本, 整数型, , lpDefaultChar
.参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 _宽字符到双字节, , , "WideCharToMultiByte", , kernel32.dll
.参数 代码页, 整数型, , CodePage
.参数 标志, 整数型, , dwFlags
.参数 宽字符文本, 字节集, , lpWideCharStr
.参数 宽字符文本长度, 整数型, , cchWideChar
.参数 双字节文本, 字节集, , lpMultiByteStr
.参数 双字节文本长度, 整数型, , cchMultiByte
.参数 默认文本, 整数型, , lpDefaultChar
.参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 WideCharToMultiByte, 整数型, , "WideCharToMultiByte", 公开, kernel32.dll 将通配符映像为多字节
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpWideCharStr, 字节集
.参数 cchWideChar, 整数型
.参数 lpMultiByteStr, 字节集
.参数 cchMultiByte, 整数型
.参数 lpDefaultChar, 整数型
.参数 lpUsedDefaultChar, 整数型