主页 > 编程 > json

易语言 json解析

299 2024-03-12 15:26

text #Include <系统操作/正则表达式操作.e> #Include <变量操作.e> Function ParseJSON(JsonStr As String) As Object Var json_data As Object Var m As Match json_data = CreateObject("EMap") m = RegMatch(JsonStr, '"(\w+)"\s*:\s*"([^"]+)"', #REGEX_GLOBAL) While MatchNext(m) json_data[MatchStr(m, 1)] = MatchStr(m, 2) EndWhile CloseMatch(m) Return json_data EndFunction

顶一下

(0)

0%

踩一下

(0)

0%

相关评论

我要评论