file - 如何在F#中写入文件的开头

Question

我需要在现有文件的开头写一个流水号。到目前为止，我所能做的就是写入每个文件的末尾。请问有什么帮助吗？

Answer 1

怎么样（警告！未经测试的代码）：

open System.IO
File.ReadAllText("c:\\old.txt")
    |> fun s -> let r = new StreamReader(s)
                let data = r.ReadToEnd
                r.Close()
                s.Close()
                data

let writeStringToFile d =
    (File.OpenWrite("c:\\new.txt"), d)
    |> fun ((s : FileStream), (d : string)) -> let r = new StreamWriter(s)
                                               r.WriteLine("new data")
                                               r.Write(d)
                                               r.Close()
                                               s.Close()

getStringFromFile()
|> writeStringToFile

编辑：

更好的解决方案：

File.WriteAllText("c:\\new.txt", "new Text" + File.ReadAllText("c:\\old.txt"))