尝试在Ada中的文件末尾添加文本

Question

我第一次使用Ada并且有一个txt文件,上面写着以下内容

      23.000000#:599.659058,-67.651642

我想在存档的换行符中添加一个R,所以它就像这样结束

      23.000000#:599.659058,-67.651642
      R,

为此,我使用以下代码

  Open (File => out_parcial_variante1, Name => "c.txt", Mode => out_file);
    new_line(out_parcial_variante1);
    put(File => out_parcial_variante1, Item=> "R,");
  close(out_parcial_variante1);

但是这样做会删除存档中所有以前写入的数据,只留下新行和唯一的R,

我如何完全追加到文本的末尾这个文本,我似乎可以找到函数,这是我能想到的唯一方法

Answer 1

尝试append_file而不是out_file: Open (File => out_parcial_variante1, Name => "c.txt", Mode => Append_File);