网站首页 > 文章中心 > 其它

vb.net解析json

作者:小编 更新时间:2023-09-22 09:03:41 浏览量:163人看过

vb.net json 数据处理问题

你只获取接口的每个 obj_name 和speed 值的话,你完全没必要当json来处里,你可以直接截取字符串就可以了.用substring函数

求一个vbnet post/get 发送数据和处理返回json的例子.灌水的路过...

Java代码

/* 注意get和post请求的发送区别

* 1、创建HttpGet(或HttpPost)对象,将要请求的URL通过构造方法传入HttpGet(或HttpPost)对象中;

* */

public class TestHttpActivity extends Activity {

private Button btn_get;

private Button btn_post;

@Override

public void onCreate(Bundle savedInstanceState) {

super.onCreate(savedInstanceState);

setContentView(R.layout.main);

btn_get=(Button)findViewById(R.id.btn_get);

btn_post=(Button)findViewById(R.id.btn_post);

btn_get.setOnClickListener(listener);

btn_post.setOnClickListener(listener);

}

private OnClickListener listener=new OnClickListener() {

public void onClick(View v) {

switch (v.getId()) {

case R.id.btn_post:

Log.i("TestHttpActivity", "ok");

DefaultHttpClient client = new DefaultHttpClient();

/**NameValuePair是传送给服务器的请求参数 param.get("name") **/

ListNameValuePair list = new ArrayListNameValuePair();

NameValuePair pair1 = new BasicNameValuePair("name", "name0001");

list.add(pair1);

UrlEncodedFormEntity entity=null;

try {

/**设置编码 **/

} catch (UnsupportedEncodingException e) {

// TODO Auto-generated catch block

e.printStackTrace();

/**新建一个post请求**/

HttpPost post = new HttpPost("");

post.setEntity(entity);

HttpResponse response=null;

String strResult="";

/**客服端向服务器发送请求**/

response = client.execute(post);

} catch (ClientProtocolException e) {

} catch (IOException e) {

/**请求发送成功,并得到响应**/

/**读取服务器返回过来的json字符串数据**/

strResult = EntityUtils.toString(response.getEntity());

} catch (IllegalStateException e) {

JSONObject jsonObject = null;

/**把json字符串转换成json对象**/

jsonObject = getJSON(strResult);

} catch (JSONException e1) {

e1.printStackTrace();

String names="";

/**

* jsonObject.getString("code") 取出code

* **/

/**得到data这个key**/

String data=jsonObject.getString("data");

/**把data下的数据转换成json对象**/

JSONObject jDat = new JSONObject(data);

/**判断data对象下的list是否存在**/

if(jDat.get("list")!=null){

/**把list转换成jsonArray对象**/

JSONArray jarr = jDat.getJSONArray("list");

/**循环list对象**/

for (int i = 0; i jarr.length(); i◆◆) {

/** **/

JSONObject jsono = (JSONObject) jarr.get(i);

/**取出list下的name的值 **/

names=names◆jsono.getString("name");

Toast.makeText(TestHttpActivity.this, "code:"◆jsonObject.getString("code")◆"name:"◆names, Toast.LENGTH_SHORT).show();

} catch (JSONException e) {

else Toast.makeText(TestHttpActivity.this, "POST提交失败", Toast.LENGTH_SHORT).show();

break;

case R.id.btn_get:

DefaultHttpClient client1 = new DefaultHttpClient();

UrlEncodedFormEntity entity1=null;

/**新建一个get请求**/

HttpGet get = new HttpGet("");

HttpResponse response1=null;

String strResult1="";

response1 = client1.execute(get);

strResult1 = EntityUtils.toString(response1.getEntity());

JSONObject jsonObject1 = null;

jsonObject1 = getJSON(strResult1);

String data=jsonObject1.getString("data");

JSONObject jDat1 = new JSONObject(data);

if(jDat1.get("list")!=null){

JSONArray jarr1 = jDat1.getJSONArray("list");

for (int i = 0; i jarr1.length(); i◆◆) {

JSONObject jsono = (JSONObject) jarr1.get(i);

Toast.makeText(TestHttpActivity.this, "get请求: code:"◆jsonObject1.getString("code")◆"name:"◆names, Toast.LENGTH_SHORT).show();

else Toast.makeText(TestHttpActivity.this, "get提交失败", Toast.LENGTH_SHORT).show();

};

public JSONObject getJSON(String sb) throws JSONException {

return new JSONObject(sb);

VB.NET如何解析JSON数据,提取变量的值

先用ADO.NET读取数据,然后赋值即可,这个很容易的, 如果你要和某个控件的值做比对,就可以先赋值给控件,然后做比对... 例如,你读取数据库中的一条记录,然后绑定到textbox上,和另外一个textbox里面的数字比较大校.

【VB.NET】这个json怎么解析?用的是Newtonsoft.Json.dll

先如下程序集

Imports?System.Web.Script.Serialization

Function?StringToObject(content?As?String)?As?Object

Dim?jss?As?New?JavaScriptSerializer()

Return?jss.DeserializeObject(content)

End?Function

Dim?test1?As?Dictionary(Of?String,?Object)?=?StringToObject("{

},

}}

")

Dim?cc?As?Dictionary(Of?String,?Object)?=?DirectCast(test1.Values(0),?Dictionary(Of?String,?Object))

Dim?dd?=?cc.Values(0)("hash")

这样就可以遍历 hash值了

VB.NET 如何反序列化通过百度翻译API获得的JSON字符串 高分求救!!

这个跟反序列化毫无关系.

分隔字符串就用 Split(),没什么难度.

以上就是土嘎嘎小编为大家整理的vb.net解析json相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!

版权声明:倡导尊重与保护知识产权。未经许可,任何人不得复制、转载、或以其他方式使用本站《原创》内容,违者将追究其法律责任。本站文章内容,部分图片来源于网络,如有侵权,请联系我们修改或者删除处理。

编辑推荐

热门文章