JSON运行崩溃

烧猪 · 发表于 2015-12-9 01:05:18

本帖最后由萧阳天于 2015-12-12 20:11 编辑

.版本 2
.子程序号码查询_APIStore, 整数型, 公开, 百度API_查询，成功返回1，失败返回错误码
.参数参数_文本_号码, 文本型, , 欲查询的号码
.参数参数_文本_性别, 文本型, 参考可空, 返回性别，M-男，F-女，N-未知，没有返回“”
.参数参数_文本_出生日期, 文本型, 参考可空, 返回出生日期，没有返回“”
.参数参数_文本_归属地, 文本型, 参考可空, 返回归属地，没有返回“”
.参数参数_文本_错误码返回说明, 文本型, 参考可空, 返回错误码返回说明，没有返回“”
.局部变量局部_对象_json, 类_json
.局部变量局部_文本_返回文本, 文本型
.局部变量局部_文本_url, 文本型
.局部变量局部_文本_errNum, 文本型
.局部变量局部_文本数组_错误码行, 文本型, , "0"
.局部变量局部_整数_计次, 整数型
.局部变量局部_文本数组_单条错误码, 文本型, , "0"
局部_文本_url ＝ “http://apis.baidu.com/apistore/idservice/id?id=” ＋参数_文本_号码
局部_文本_返回文本＝到文本 (网页_访问_对象 (局部_文本_url, 0, , , , “apikey: 81381f08243cc463e6b3bd7f0c08a369”, , , , , , , , , , ))
.如果 (局部_对象_json.解析 (局部_文本_返回文本))
局部_文本_errNum ＝局部_对象_json.取通用属性 (“errNum”)
.如果真 (局部_文本_errNum ≠ “0” 且局部_文本_errNum ≠ “”)
      局部_对象_json.清除 ()
      返回 (到整数 (局部_文本_errNum))
.如果真结束
.如果 (局部_对象_json.取通用属性 (“retMsg”) ＝ “success”)
      ' 参数_文本_性别＝局部_对象_json.取通用属性 (“retData.sex”)
      参数_文本_性别＝局部_对象_json.取属性 (“retData”).取通用属性 (“sex”)
      参数_文本_性别＝编码_U编码转换 (参数_文本_性别, “to16un”)
      ' 参数_文本_出生日期＝局部_对象_json.取通用属性 (“retData.birthday”)
      参数_文本_出生日期＝局部_对象_json.取属性 (“retData”).取通用属性 (“birthday”)
      ' 参数_文本_归属地＝局部_对象_json.取通用属性 (“retData.address”)
      参数_文本_归属地＝局部_对象_json.取属性 (“retData”).取通用属性 (“address”)
      .如果真 (参数_文本_性别＝ “0”)
         参数_文本_性别＝ “”
      .如果真结束
      .如果真 (参数_文本_出生日期＝ “0”)
         参数_文本_出生日期＝ “”
      .如果真结束
      .如果真 (参数_文本_归属地＝ “0”)
         参数_文本_归属地＝ “”
      .如果真结束
      局部_对象_json.清除 ()
      返回 (1)
.否则
      局部_对象_json.清除 ()
      返回 (0)
.如果结束
.否则
返回 (0)
.如果结束

循环调用该子程序时，基本上循环2～3次程序就会崩溃，调试和编译后均会出现，如果使用子程序中注释的3行代码，则不会崩溃，请问这是BUG还是使用方法的问题