ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

vb.net使用Newtonsoft.Json读取Json文件

2022-01-22 13:01:05  阅读:213  来源: 互联网

标签:vb Newtonsoft End Sub Dm Json dm Public


环境: VS2017社区版
目的: 读取json的key作为combobox的选项,并把对应的value写入textbox
json文件命名为Dm.json, 存放在debug路径

{
	"A":1,
	"B":2,
	"C":3
}

1. 下载Newtonsoft.Json. (官方地址:https://www.newtonsoft.com/json)
可以直接通过VS 2017进行下载并引用
1.1 右击引用,选择"管理NuGet程序包"
在这里插入图片描述
1.2 在浏览里面搜索Json,选择下载即可
2. Dm类,用以读取以及维护json文件

Imports System.IO
'导入Newtonsoft.Json
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

Public Class Dm

    Private dm_dict As Hashtable = New Hashtable()

    '构造函数
    Public Sub New()
        ReadJson()
    End Sub

    '属性dm_dict的getter与setter
    Public Property Dm_dict1 As Hashtable
        Get
            Return dm_dict
        End Get
        Set(value As Hashtable)
            dm_dict = value
        End Set
    End Property
    '读取Json文件
    Public Sub ReadJson()
        'exe路径下的json文件
        Dim FilePath = Environment.CurrentDirectory() & "\dm.json"
        Dim strJson = ""
        Dim obj As JObject = New JObject() 'JObject用来接收读取并转换后的数据
        Try
            '读取文件
            Using sr As StreamReader = New StreamReader(FilePath)
                Dim Line = sr.ReadLine()
                strJson = Line
                While (Line <> Nothing)
                    Line = sr.ReadLine()
                    strJson = strJson & Line
                    Console.WriteLine(Line)
                End While
                'Console.Write("=============")
                'Console.WriteLine(str)
            End Using
            obj = JsonConvert.DeserializeObject(strJson) '转为JObject
            '遍历并存入Hashtable dm_dict
            For Each item In obj
                Dm_dict1.Add(item.Key, item.Value)
            Next
        Catch e As Exception
            Throw e
        End Try
    End Sub

    '获取所有的Key
    Public Function GetKeys()
        Return Dm_dict1.Keys()
    End Function

    '通过key获取对应的值
    Public Function GetValue(key As String)
        If key Is Nothing Then
            Return 0
        Else
            Return Dm_dict1(key)
        End If
    End Function
End Class

3. Module1

Module Module1
    Public dm As Dm = New Dm()
    '获取数据,并放入comboBox
    Public Sub LoadDmUnit()
        Dim keys As ICollection = dm.GetKeys()
        For Each key In keys
            Form1.cbxDmUnit.Items.Add(key)
        Next
    End Sub

    '根据combobox选项的变化,将对应值填入textbox
    Public Sub LoadDmValue()
        Form1.tbDmValue.Text = dm.GetValue(Form1.cbxDmUnit.SelectedItem)
    End Sub
End Module

4. Form1

Public Class Form1
    '加载Sub, 用来初始化
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadDmUnit()
    End Sub
    'combobox选项变更事件,当选项变化,变化对应的值
    Private Sub cbxDmUnit_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxDmUnit.SelectedIndexChanged
        LoadDmValue()
    End Sub
End Class

5. 界面
在这里插入图片描述
6. 演示
在这里插入图片描述

备注:没有系统学过VB.NET, 只是工作中有用到,用来开发一些小工具. 不足之处,还望海涵, 谢谢

标签:vb,Newtonsoft,End,Sub,Dm,Json,dm,Public
来源: https://blog.csdn.net/Lowetu/article/details/122635655

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有