Ada：追加テキストファイル内のバックスペース

Question

txtファイルを開いたり閉じたりして、複数回（append）書き込むことができることを学びました。しかし、毎回私は新しい行で始まります。とにかく、カーソルがどこに止まったのか正確に戻ってきますか？ ありがとう！

Answer 1

Stringのストリーム属性とストリーム属性'Writeを使用します。属性は、文字列オブジェクトのベアデータを出力するプロシージャを示します。

ファイルの最後の行は、行末で終了していないか、ファイル

$ cat Hello.txt 
Hello, World!$ 

注結果の

with Ada.Streams.Stream_IO; 

procedure Write_Appending is 

    use Ada.Streams.Stream_IO; 

    F : File_Type; 

    procedure Write_Hello is 
    begin 
     String'Write (Stream (F), "Hello, "); 
    end Write_Hello; 

    procedure Write_World is 
    begin 
     String'Write (Stream (F), "World"); 
    end Write_World; 

begin 
    Create (F, Name => "Hello.txt"); 
    Write_Hello; 
    Write_World; 
    Close (F); 

    -- forgot "!", append it at the end of the file. 
    Open (F, Mode => Append_File, Name => "Hello.txt"); 
    Character'Write (Stream (F), '!'); 
    Close (F); 
end Write_Appending; 

。 Current_Outputに書き込む場合は、Ada.Text_IO.Text_Streams（LRM A.12.2）と考えてください。

Answer 2

はい。 Ada.Text_IO以外のI/Oパッケージを使用してください。 1つのオプションは、適切な文字タイプでインスタンス化された汎用パッケージAda.Direct_IOを使用することです。