如何在F#中实现类似Typescript的非结构化数据处理能力

方案1：通用动态属性访问（对应TS any效果） #

你可以将sData声明为obj类型，搭配F#自定义的动态访问运算符实现和TS几乎一致的链式访问效果，不需要提前定义属性结构：

// 定义全局动态属性访问运算符
let (?) (target: obj) (propName: string) : obj =
    target.GetType().GetProperty(propName).GetValue(target)

// 声明你的记录类型
type PageStatementLine = {
    line: string
    sData: obj option
}

使用方式和TS一致：

let myValue = lineData.sData.Value?someProperty?someOtherProperty

如果需要安全处理空值、属性不存在的场景，可以修改运算符返回option类型，避免运行时异常：

// 安全版动态访问运算符，任意环节出错返回None
let (?<>) (target: obj option) (propName: string) : obj option =
    target |> Option.bind (fun t ->
        match t.GetType().GetProperty(propName) with
        | null -> None
        | prop -> Some (prop.GetValue(t))
    )

// 安全链式访问
let myValue = lineData.sData?<>someProperty?<>someOtherProperty

方案2：JSON场景专用方案 #

如果你的sData是JSON反序列化得到的非结构化数据，直接用.NET自带的System.Text.Json.Nodes.JsonNode类型更便捷，原生支持索引链式访问：

open System.Text.Json.Nodes

type PageStatementLine = {
    line: string
    sData: JsonNode option
}

// 链式访问示例，支持直接转对应类型
let myValue = lineData.sData.Value["someProperty"]["someOtherProperty"].GetValue<int>()

注意事项 #

• 上述两种方案都和TS的any特性一致，会损失编译时类型检查，属性不存在、类型不匹配的问题只会在运行时报错，建议根据业务场景补充异常捕获或者空值判断
• 如果可以提前确定数据结构，优先使用F#原生的记录、可区分联合定义强类型结构，能获得编译时检查、智能提示等强类型优势

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