json解析失败

json解析失败

2
JSON解析器解析失败判断

- (void)connectionDidFinishLoading:(NSURLConnection *)connection {
[connection release];

NSString *responseString = [[NSString alloc] initWithData:responseData encoding:NSUTF8StringEncoding];
[responseData release];

NSError *error;
SBJSON *json = [[SBJSON new] autorelease];
NSArray *luckyNumbers = [json objectWithString:responseString error:&error];
[responseString release];

if (luckyNumbers == nil)
label.text = [NSString stringWithFormat:@"JSON parsing failed: %@", [error localizedDescription]];
else {
NSMutableString *text = [NSMutableString stringWithString:@"Lucky numbers:\n"];

for (int i = 0; i <; [luckyNumbers count]; i++)
[text appendFormat:@"%@\n", [luckyNumbers objectAtIndex:i]];

label.text = text;
}
}

你案例1跟2解析起来需要的步骤是一样的  具体看我代码注释 private sub command1_click() dim str as string dim scriptobj as object set scriptobj = createobject("msscriptcontrol.scriptcontrol")     scriptobj.language = "javascript"     scriptobj.addcode "var json = " & text1.text & ";"   '这里text1.text的内容就是json的内容     str = scriptobj.eval("json.translation[0]") & vbcrlf     dim l as integer     l = scriptobj.eval("json.basic.explains.length")     for i = 0 to l - 1     str = str & scriptobj.eval("json.basic.explains[" & i & "]") & vbcrlf     next     str = str & "网络：" & vbcrlf     l = scriptobj.eval("json.web.length")     for i = 0 to l - 1         str = str & scriptobj.eval("json.web[" & i & "].key") & "："         n = scriptobj.eval("json.web[" & i & "].value.length")         for j = 0 to n - 1             str = str & scriptobj.eval("json.web[" & i & "].value[" & j & "]")             if j < n - 1 then str = str & "；"  '你案例1跟案例2都可以用这段代码  我看到唯一的区别是下面的符号 ；与，的区别  你把这段&后面的符号改成你需要的即可         next         str = str & vbcrlf     next     text2.text = str end sub