易语言JimStone(谢栋)-JSON模块：STJson源码,易语言JSON模块修改

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