43 lines
1.5 KiB
VB.net
43 lines
1.5 KiB
VB.net
Imports Newtonsoft.Json
|
||
Imports Newtonsoft.Json.Serialization
|
||
|
||
Namespace UTSModule.Service
|
||
''' <summary>
|
||
''' 针对服务任务的Json设置
|
||
''' 当前作用：筛选指定类中字段参与Json序列化
|
||
''' </summary>
|
||
Public Class TaskJsonSettings
|
||
Inherits DefaultContractResolver
|
||
|
||
''' <summary>
|
||
''' 需要操作的字段名
|
||
''' 与_retain参数结合使用,实现指定类中某些字段的Json序列化
|
||
''' </summary>
|
||
Private ReadOnly _name() As String
|
||
|
||
''' <summary>
|
||
''' 是否显示指定字段
|
||
''' 为真时,仅显示指定的字段名
|
||
''' 为假时,仅不显示指定的字段名
|
||
''' </summary>
|
||
Private ReadOnly _retain As Boolean
|
||
|
||
Sub New(name2() As String, Optional retain2 As Boolean = True)
|
||
_name = name2
|
||
_retain = retain2
|
||
End Sub
|
||
|
||
|
||
Protected Overrides Function CreateProperties(type As Type, memberSerialization As MemberSerialization) As IList(Of JsonProperty)
|
||
Dim lst As IList(Of JsonProperty) = MyBase.CreateProperties(type, memberSerialization)
|
||
|
||
Return lst.Where(Function(x As JsonProperty)
|
||
If _retain Then
|
||
Return _name.Contains(x.PropertyName)
|
||
Else
|
||
Return Not _name.Contains(x.PropertyName)
|
||
End If
|
||
End Function).ToList()
|
||
End Function
|
||
End Class
|
||
End Namespace |