易语言JSON模块修改版源码

系统结构:StrToArray,ArrayToStr,SortStringArray,FormatStringToJson,FormatJsonToString,进制_十六到十,W2A_单个_添加到字节数组,取变量地址_短整数,取变量地址_字节,showJsonTree,Clear,Type,Size,Get,GetAt,Put,Add,Remove,RemoveAt,ContainsObject,Keys,IsNull,AsLong,AsString,AsDouble,AsBool,SetLong,SetDouble,SetString,SetBool,SetNull,ToJsonString,JsonToByteArray,ByteArrayToJson,WriteString,WriteByteArray,ReadString,ReadByteArray,WriteInt,ReadInt,WriteLong,ReadLong,WriteDouble,ReadDouble,SetFormatBlankStr,Parse,IsNumber,ToJsonString,blank,blk,CreateLongValue,CreateDoubleValue,CreateStringValue,CreateBoolValue,CreateNullValue,RtlFreeAnsiString,RtlUnicodeStringToAnsiString,开始测试,结束测试,输出,结束并输出,取耗时,取启动时间_,NtQuerySystemInformation,

======_APP_BOOTSTRAP
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======STStringUtil
           |  |
           |  |------ StrToArray
           |  |
           |  |------ ArrayToStr
           |  |
           |  |------ SortStringArray
           |  |
           |  |------ FormatStringToJson
           |  |
           |  |------ FormatJsonToString
           |  |
           |  |------ 进制_十六到十
           |  |
           |  |------ W2A_单个_添加到字节数组
           |  |
           |  |------ 取变量地址_短整数
           |  |
           |  |------ 取变量地址_字节
           |  |
           |  |
======FormTest
           |  |
           |  |------ _btnParse_被单击
           |  |
           |  |------ _btnToJson_被单击
           |  |
           |  |------ showJsonTree
           |  |
           |  |------ _btnFormat_被单击
           |  |
           |  |------ _btnClear_被单击
           |  |
           |  |
======STJsonValue
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ Clear
           |  |
           |  |------ Type
           |  |
           |  |------ Size
           |  |
           |  |------ Get
           |  |
           |  |------ GetAt
           |  |
           |  |------ Put
           |  |
           |  |------ Add
           |  |
           |  |------ Remove
           |  |
           |  |------ RemoveAt
           |  |
           |  |------ ContainsObject
           |  |
           |  |------ Keys
           |  |
           |  |------ IsNull
           |  |
           |  |------ AsLong
           |  |
           |  |------ AsString
           |  |
           |  |------ AsDouble
           |  |
           |  |------ AsBool
           |  |
           |  |------ SetLong
           |  |
           |  |------ SetDouble
           |  |
           |  |------ SetString
           |  |
           |  |------ SetBool
           |  |
           |  |------ SetNull
           |  |
           |  |------ ToJsonString
           |  |
           |  |------ __OUT_DATA_ARRAY
           |  |
           |  |------ __OUT_DATA_OBJ
           |  |
           |  |------ __IN_DATA_ARRAY
           |  |
           |  |------ __IN_DATA_OBJ
           |  |
           |  |
======STJsonTool
           |  |
           |  |------ JsonToByteArray
           |  |
           |  |------ ByteArrayToJson
           |  |
           |  |------ WriteString
           |  |
           |  |------ WriteByteArray
           |  |
           |  |------ ReadString
           |  |
           |  |------ ReadByteArray
           |  |
           |  |------ WriteInt
           |  |
           |  |------ ReadInt
           |  |
           |  |------ WriteLong
           |  |
           |  |------ ReadLong
           |  |
           |  |------ WriteDouble
           |  |
           |  |------ ReadDouble
           |  |
           |  |
======STJson
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ SetFormatBlankStr
           |  |
           |  |------ Parse
           |  |
           |  |------ _parse
           |  |
           |  |------ IsNumber
           |  |
           |  |------ _parse_next_block
           |  |
           |  |------ _parse_next_tag
           |  |
           |  |------ ToJsonString
           |  |
           |  |------ _to_json_string
           |  |
           |  |------ blank
           |  |
           |  |------ blk
           |  |
           |  |------ CreateLongValue
           |  |
           |  |------ CreateDoubleValue
           |  |
           |  |------ CreateStringValue
           |  |
           |  |------ CreateBoolValue
           |  |
           |  |------ CreateNullValue
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RtlFreeAnsiString
           |  |
           |  |---[dll]------   RtlUnicodeStringToAnsiString
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======速度测试类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 开始测试
           |  |
           |  |------ 结束测试
           |  |
           |  |------ 输出
           |  |
           |  |------ 结束并输出
           |  |
           |  |------ 取耗时
           |  |
           |  |------ 取启动时间_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   NtQuerySystemInformation

调用的DLL命令:

.DLL命令 RtlFreeAnsiString, 整数型, "ntdll.dll", "RtlFreeUnicodeString"
    .参数 AnsiString, PANSI_STRING

.DLL命令 RtlUnicodeStringToAnsiString, 整数型, "ntdll.dll", "RtlUnicodeStringToAnsiString"
    .参数 DestinationString, PANSI_STRING
    .参数 SourceString, PUNICODE_STRING
    .参数 AllocateDestinationString, 逻辑型

调用的DLL命令:

.DLL命令 NtQuerySystemInformation, 整数型, "NTDLL.DLL"
    .参数 SystemInformationClass, 整数型
    .参数 SystemInformation, SYSTEM_TIME_OF_DAY_INFORMATION, 传址
    .参数 SystemInformationLength, 整数型
    .参数 ReturnLength, 整数型, 传址