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

时间:2013-05-16 17:45:00

标签: ada

我第一次使用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,

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

2 个答案:

答案 0 :(得分:7)

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

答案 1 :(得分:1)

只是详细说明接受的答案:“out_file”模式创建一个要写入的全新文件(擦除已存在的任何文件)。类似地,模式“out”的参数没有定义的初始值(即使您提供的实际参数可能已初始化为某些内容),也不应在初始化之前读取。在Ada中,“out”和“in”表示他们所说的。 : - )