F#静态成员赋值与JSON解析：如何用微软内置库解析JSON至可访问类型？

当然可以！不管是用微软内置的System.Text.Json库，还是你正在尝试的JSON.net（Newtonsoft.Json），都能轻松把指定的JSON字符串解析成F#中可以直接访问字段的类型——F#的记录类型就非常适合这种场景。下面我给你详细讲两种方案的实现，顺便聊聊静态成员赋值的处理方式。

一、使用微软内置的System.Text.Json #

首先我们需要定义一个和JSON结构匹配的F#记录类型，通过特性来映射JSON中的蛇形/驼峰字段名和F#记录的PascalCase字段名：

open System.Text.Json
open System.Text.Json.Serialization

// 定义与JSON结构对应的记录类型
type User = {
    [<JsonPropertyName("account_type")>]
    AccountType: string
    [<JsonPropertyName("address")>]
    Address: string
    [<JsonPropertyName("preferred_languages")>]
    PreferredLanguages: string list
    [<JsonPropertyName("displayName")>]
    DisplayName: string
    [<JsonPropertyName("last_name")>]
    LastName: string
}

接下来就是解析JSON字符串并访问字段：

let targetJson = """{"account_type":"type1","address":"US","preferred_languages":["en","ar","cn"],"displayName":"John","last_name":"Doe"}"""

// 配置解析选项（可选，开启大小写不敏感适配更多场景）
let parseOptions = JsonSerializerOptions(PropertyNameCaseInsensitive = true)

// 解析成User类型实例
let parsedUser = JsonSerializer.Deserialize<User>(targetJson, parseOptions)

// 直接访问各个字段
printfn "用户账号类型：%s" parsedUser.AccountType
printfn "用户偏好语言：%A" parsedUser.PreferredLanguages
printfn "用户全名：%s %s" parsedUser.DisplayName parsedUser.LastName

二、使用你正在尝试的JSON.net（Newtonsoft.Json） #

JSON.net的用法和内置库类似，不过需要先通过NuGet安装Newtonsoft.Json包。同样先定义记录类型：

open Newtonsoft.Json

type User = {
    [<JsonProperty("account_type")>]
    AccountType: string
    [<JsonProperty("address")>]
    Address: string
    [<JsonProperty("preferred_languages")>]
    PreferredLanguages: string list
    [<JsonProperty("displayName")>]
    DisplayName: string
    [<JsonProperty("last_name")>]
    LastName: string
}

然后执行解析和字段访问：

let targetJson = """{"account_type":"type1","address":"US","preferred_languages":["en","ar","cn"],"displayName":"John","last_name":"Doe"}"""

// 解析成User实例
let parsedUser = JsonConvert.DeserializeObject<User>(targetJson)

// 访问字段示例
printfn "用户地址：%s" parsedUser.Address
printfn "用户姓氏：%s" parsedUser.LastName

关于静态成员赋值的处理 #

如果你的需求是把JSON解析后的值赋值给类型的静态成员，F#里可以通过静态方法或者直接赋值来实现。比如我们给User类型添加静态成员：

// 以System.Text.Json的User类型为例，添加静态成员
type User = {
    [<JsonPropertyName("account_type")>]
    AccountType: string
    [<JsonPropertyName("address")>]
    Address: string
    [<JsonPropertyName("preferred_languages")>]
    PreferredLanguages: string list
    [<JsonPropertyName("displayName")>]
    DisplayName: string
    [<JsonPropertyName("last_name")>]
    LastName: string
} with
    // 定义静态字段存储当前用户的账号类型
    static member mutable CurrentAccountType: string = ""
    // 静态方法：从实例中更新静态成员
    static member UpdateStaticAccountType(user: User) =
        User.CurrentAccountType <- user.AccountType

解析后调用静态方法完成赋值：

let parsedUser = JsonSerializer.Deserialize<User>(targetJson, parseOptions)
User.UpdateStaticAccountType(parsedUser)

// 访问静态成员
printfn "当前静态存储的账号类型：%s" User.CurrentAccountType

总结一下：两种库都能很好地满足你的需求，System.Text.Json是.NET自带的，无需额外安装；JSON.net则提供了更丰富的自定义选项，适合复杂的JSON解析场景。

内容的提问来源于stack exchange，提问作者App2015