F# 使用 XML Type Provider 修改 xml

F# using XML Type Provider to modify xml

我需要处理一堆 XML 文档。它们的结构非常复杂(即节点负载),但处理过程包括更改几个节点的值并以不同的名称保存文件。

我正在寻找一种无需重建输出 XML 的方法,方法是显式实例化所有类型并传入所有未更改的值,只需从输入中复制它们即可。如果类型提供程序自动生成的类型是记录类型,我可以简单地通过 let output = { input with changedNode = myNewValue } 创建输出,但是对于类型提供程序我必须做 let output = MyXml.MyRoot(input.UnchangedNode1, input.UnchangedNode2, myNewValue, input.UnchangedNode3, ...)。由于我更改的值位于某些嵌套节点中,这使情况变得更加复杂,因此我需要传递大量的绒毛才能到达它。

F# 数据类型提供程序的主要设计目的是在读取数据时提供方便的访问,因此它们没有很好的写入数据的故事(部分原因是底层 JSON 表示相当与基础 XML 表示不同)。

对于 XML,类型提供程序只是包装了标准的 XElement 类型,这些类型恰好是可变的。这意味着您实际上可以使用提供的类型导航到元素,然后使用底层 LINQ to XML 来改变值。例如:

type X = XmlProvider<"<foos><foo a=\"1\" /><foo a=\"2\" /></foos>">

// Change the 'a' attribute of all 'foo' nodes to 1234
let doc = X.GetSample()
for f in doc.Foos do
  f.XElement.SetAttributeValue(XName.Get "a", 1234)

// Prints the modified document    
doc.ToString()

这可能并不完美 - 有时,您需要更改父元素(如此处,提供的 f.A 属性 不是可变的),但它可能会起到作用。我不知道这是否是解决一般问题的最佳方法,或者像 XSLT 这样的方法是否更容易——这可能取决于具体的转换。