我可以使用下面的函数来覆盖一个文本文件:
let writeFile ~filename:fn s =
let oc = open_out fn in
output_string oc s;
close_out oc ;;
但是,我不知道如何向文本文件追加一行?
最佳答案
您可以将附加模式标志 Open_append
传递给 open_out_gen
函数:
let _ =
let oc = open_out_gen [Open_creat; Open_text; Open_append] 0o640 "a.txt" in
output_string oc "append\n";
close_out oc
关于ocaml - 如何实现 "appendFile"功能?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8090490/