1. /// Description: 字符串或流转json
    2. /// Input:         data - json格式的字符串或流
    3. ClassMethod JSONParse(data) As %DynamicArray
    4. {
    5.     s stream = ##class(%GlobalCharacterStream).%New()
    6.     if $IsObject(data) {
    7.         d stream.CopyFrom(data)
    8.     }else{
    9.         d stream.Write(data)    
    10.     }
    12.     if (stream.Read(1) = "[") {
    13.         s tObj=##class(%DynamicArray).%New()
    14.     } else {
    15.         s tObj=##class(%DynamicObject).%New()
    16.     }
    17.     d stream.Rewind()
    18.     s jsonData = tObj.%FromJSON(stream)
    19.     q jsonData
    20. }
    DHC-APP>w ##class(PHA.CACHE.UTILS).JSONParse("[{""name"":""yun""}]")
6@%Library.DynamicArray

DHC-APP>w ##class(PHA.CACHE.UTILS).JSONParse("{""name"":""yun"",""age"":""123""}")
4@%Library.DynamicObject