在 F# 中从 xml 序列化中去除回车符

Question

更新：一些背景 - 我使用 xml 文件生成一组 pdf（通过驱动 JasperReports 的 java 应用程序）。当我使用这个新的 xml 文件时，所有报告都显示为空白。我已经排除了网络问题，因为我使用来自同一服务器的旧 xml 文件，该服务器与新 xml 文件运行 java 应用程序。我使用十六进制编辑器比较了两个文件（旧的好文件和新的坏文件），我的第一个线索是新文件中有回车符，旧文件中没有回车符。这可能无法解决问题，但我想将其从等式中消除。

我认为我需要从 xml 文件中删除所有回车符，以便它能够按我需要的方式工作。在我的旅行中，我发现的最接近的是：

.Replace("\r","")

但是我在下面的代码中在哪里使用它？我创建数据模型，创建根，并将其传递给序列化器。什么时候我可以说“删除回车符”？

let def = new reportDefinition("decileRank", "jasper", new template("\\\\server\\location\\filename.jrxml", "jrxml"))
let header = new reportDefinitions([| def |])
let root = reportGenerator(header, new dbConnection(), new reports(reportsArray))

let path = sprintf "C:\\JasperRpt\\parameter_files\\%s\\%d\\%s\\%s\\" report year pmFirm pmName //(System.DateTime.Now.ToString("ddMMyyyy")) 
Directory.CreateDirectory(path) |> ignore
let filename = sprintf "%s%s" path month
printfn "%s" filename     
use fs = new FileStream(filename, FileMode.Create) 
let xmlSerializer = XmlSerializer(typeof<reportGenerator>)    
xmlSerializer.Serialize(fs,root)
fs.Close()

Answer 1

XmlWriterSettings 有一些用于格式化输出的选项，因此通过 XmlWriter 传递输出。

你应该能够做到这样的事情（现在手边没有 FSI，不知道它是否可以编译。:)

 //use fs = new FileStream(filename, FileMode.Create) 
 let settings = new XmlWriterSettings();
 settings.Indent <- true;
 settings.NewLineChars <- "\n";
 use w = XmlWriter.Create(filename, settings);
 let xmlSerializer = XmlSerializer(typeof<reportGenerator>)    
 xmlSerializer.Serialize(w,root)

Answer 2

这可能不是最好的解决方案，但你可以尝试

// after your current code
let xmlString = File.ReadAllText filename
ignore( File.WriteAllText( filename , xmlString.Replace("\r","")))