F＃XML提供程序＆＃39; System.TypeInitializationException＆＃39;写作的时候

Question

我在使用F＃数据中的XML类型提供程序时遇到了一些问题。

这是我正在加载的文件：

<authors>
  <science>
    <author name="Paul Feyerabend" born="1924" />
    <author name="Thomas Kuhn" />
  </science>
  <mathematics>
    <author name="Bertrand Russell" />
    <author name="Ludwig Wittgenstein" born="1889" />
    <author name="Alfred North Whitehead" died="1947" />
  </mathematics>
</authors>

我将作者分成子类别，因此每次我想添加作者时都不必重写整个文件（这是正确的还是我遗漏了什么？）

以下是代码：

open FSharp.Data
open System.IO

type Writers = XmlProvider<"../TestProvider/Writers.xml">

let writers = Writers.Load(File.OpenText("../TestProvider/Writers.xml"))

[<EntryPoint>]
let main argv = 
    printfn "%A" argv

    Array.append writers.Science.Authors [| Writers.Author("Richard Feynman", Some 1918) |] |> ignore

    0 // return an integer exit code

这给我带来了以下错误：

System.TypeInitializationException was unhandled
Message: An unhandled exception of type 'System.TypeInitializationException' occurred in TestProvider.exe
Additional information: The type initializer for '<StartupCode$TestProvider>.$Program' threw an exception.

Answer 1

从评论中，我认为您获得的例外是因为您使用了相对路径。当您引用../TestProvider/Writers.xml时，编译器将能够找到相对于您的代码的文件。

假设您使用Visual Studio，在编译代码时，它会将二进制文件放在bin/Debug或bin/Release中。当您尝试从其中一个文件夹运行可执行文件时，它会期望文件位于bin/TestProvider/Writers.xml，这很可能不存在。这种情况最有可能发生在你致电File.OpenText时（你没有发布完整的异常，但我希望在InnerException的某个地方，你会发出相应的消息）。

FWIW，如果您内联样本，则以下运行没有问题：

open FSharp.Data

type Writers = XmlProvider<"""<authors>
  <science>
    <author name="Paul Feyerabend" born="1924" />
    <author name="Thomas Kuhn" />
  </science>
  <mathematics>
    <author name="Bertrand Russell" />
    <author name="Ludwig Wittgenstein" born="1889" />
    <author name="Alfred North Whitehead" died="1947" />
  </mathematics>
</authors>""">

let writers = Writers.GetSample()

Array.append writers.Science.Authors [| Writers.Author("Richard Feynman", Some 1918) |] |> ignore

但是，这不会对文件进行任何更改。

writers.Science.Authors是一个数组（在内存中），[| Writers.Author("Richard Feynman", Some 1918) |]是另一个数组。当您调用Array.append时，它会返回一个新的数组，并附加两个数组，但由于使用了ignore，这个新值会立即被丢弃。

稍微有用的方法是先获得生成的新数组：

> let updatedScientists =
    writers.Science.Authors
    |> Array.append [| Writers.Author("Richard Feynman", Some 1918) |];;

val updatedScientists : XmlProvider<...>.Author [] =
  [|<author name="Richard Feynman" born="1918" />;
    <author name="Paul Feyerabend" born="1924" />;
    <author name="Thomas Kuhn" />|]

正如您所知，这只会为您提供新的Author数组。

您仍然需要将此值添加回writers值并将更新后的值写入文件。这不会自动发生。