易语言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, 整数型