ada
Pliki i strumienie we / wy
Szukaj…
Uwagi
Standardowa biblioteka Ada zapewnia we / wy tradycyjnych plików danych tekstowych lub binarnych, a także we / wy plików przesyłanych strumieniowo. Pliki danych binarnych będą sekwencjami wartości danego typu, a pliki strumieniowe mogą być sekwencjami wartości możliwie różnych typów.
Do odczytu i zapisu elementów różnych typów z / do strumieniowego przesyłania plików, Ada używa podprogramów oznaczonych atrybutami typów, a mianowicie 'Read 'Write , 'Write 'Input , 'Input 'Output i 'Output . Dwie ostatnie odczytują i zapisują granice tablic, rejestrują dyskryminatory i znaczniki typu, oprócz samych danych wejściowych i wyjściowych, które będą wykonywać operacje Read i 'Write .
Utwórz i zapisz do pliku
Procedury Create , Put_Line , Close z pakietu Ada.Text_IO służy do tworzenia i zapisywania do pliku file.txt .
with Ada.Text_IO;
procedure Main is
use Ada.Text_IO;
F : File_Type;
begin
Create (F, Out_File, "file.txt");
Put_Line (F, "This string will be written to the file file.txt");
Close (F);
end;
Wynikowy plik file.txt
This string will be written to the file.txt
Utwórz i napisz do strumienia
Atrybuty zorientowane na strumień podtypów są wywoływane w celu zapisywania obiektów do pliku, nagich i przy użyciu domyślnych reprezentacji binarnych.
with Ada.Streams.Stream_IO;
procedure Main is
type Fruit is (Banana, Orange, Pear);
type Color_Value is range 0 .. 255;
type Color is record
R, G, B : Color_Value;
end record;
Fruit_Colors : constant array (Fruit) of Color :=
(Banana => Color'(R => 243, G => 227, B => 18),
Orange => Color'(R => 251, G => 130, B => 51),
Pear => Color'(R => 158, G => 181, B => 94));
use Ada.Streams.Stream_IO;
F : File_Type;
begin
Create (F, Name => "file.bin");
for C in Fruit_Colors'Range loop
Fruit'Write (Stream (F), C);
Color'Write (Stream (F), Fruit_Colors (C));
end loop;
Close (F);
end Main;
Wynikowy plik
00000000 00 2e f3 00 e3 00 12 00 01 2e fb 00 82 00 33 00
00000010 02 2e 9e 00 b5 00 5e 00
Otwórz i odczytaj z pliku strumieniowego
Przeczytaj dane funkcji Utwórz i zapisz do strumienia z powrotem do programu.
with Ada.Streams.Stream_IO;
procedure Main is
--
-- ... same type definitions as in referenced example
--
Fruit_Colors : array (Fruit) of Color;
use Ada.Streams.Stream_IO;
F : File_Type;
X : Fruit;
begin
Open (F, Mode => In_File, Name => "file.bin");
loop
Fruit'Read (Stream (F), X);
Color'Read (Stream (F), Fruit_Colors (X));
end loop;
exception
when End_Error =>
Close (F);
pragma Assert -- check data are the same
(Fruit_Colors (Banana) = Color'(R => 243, G => 227, B => 18) and
Fruit_Colors (Orange) = Color'(R => 251, G => 130, B => 51) and
Fruit_Colors (Pear) = Color'(R => 158, G => 181, B => 94));
end Main;