我這裏有壹個json編碼函數。
Json編碼？被誰？希爾內
支持數組、字典和記錄集等對象的直接編碼，並支持key &；“:“& amp值格式
功能？JsonEncode（JSON）
暗淡？我，？l？關鍵，？潛艇用熱中子反應堆（submarine thermal reactor的縮寫）
str？=?""
如果？艾薩裏（json）？然後
l？=?UBound（JSON
如果？TypeName（JSON（0））=“String“？然後
如果？InStr（JSON（0），“:“）& gt0?然後
str？=?str？& amp？"{"
為了什麽？i=0？去哪？l
str？=?str？& amp？""""?& amp？left（JSON（I），InStr（JSON（I），“:“）-1）？& amp""":"
str？=?str？& amp？""""?& amp？enco dejson（Mid（JSON（I），InStr（JSON（I），“:“）+1）？& amp""""
如果？我& ltl？然後呢？str？=?str？& amp？","
然後
str？=?str？& amp？"}"
JsonEncode？=?潛艇用熱中子反應堆（submarine thermal reactor的縮寫）
退出？功能
結束？如果
結束？如果
str？=?str？& amp？"["
為了什麽？i=0？去哪？l
str？=?str？& amp？JsonEncode（JSON（I））
如果？我& ltl？然後呢？str？=?str？& amp？","
然後
str？=?str？& amp？"]"
埃爾瑟夫。TypeName（JSON）=“字典”？然後
l？=?json。數數
我？=?0
str？=?str？& amp？"{"
為了什麽？每壹個？鑰匙？在嗎？json
我？=?我？+?1
str？=?str？& amp？""""?& amp？鑰匙？& amp""":"
str？=?str？& amp？JsonEncode（JSON（key））
如果？我& ltl？然後呢？str？=?str？& amp？","
然後
str？=?str？& amp？"}"
埃爾瑟夫。TypeName（JSON）=“記錄集”？然後
暗淡？田
l？=?json。字段。計數
str？=?str？& amp？"["
做什麽？直到？json。文件結束
我？=?0
str？=?str？& amp？"{"
為了什麽？每壹個？領域？在嗎？json。菲爾茨
我？=?我？+?1
str？=?str？& amp？""""?& amp？LCase（字段。姓名）？& amp""":"
如果？UCase（字段。名字）“IP”？然後
str？=?str？& amp？JsonEncode（IP mask（字段。值））
其他
str？=?str？& amp？JsonEncode（字段。值）
結束？如果
如果？我& ltl？然後呢？str？=?str？& amp？","
然後
str？=?str？& amp？"}"
json。下壹步
如果？不是嗎？json。EOF？然後呢？str？=?str？& amp？","
環
str？=?str？& amp？"]"
其他
選擇？案例？變量類型（json）
案例？2,3,4,5,6
str？=?str？& amp？json
案例？其他
str？=?str？& amp？""""?& amp？安可德森（json & amp"")?& amp""""
結束？挑選
結束？如果
JsonEncode？=?潛艇用熱中子反應堆（submarine thermal reactor的縮寫）
結束？功能用法:
回應。寫作？JsonEncode（Array（“state:“& amp；stat？消息:“& amp味精？URL:“& amp；參數）
//或者
回應。寫作？JsonEncode（字典對象）