:
Append (f) - F ;
Assign (f,s) - S F;
Close (f) - F;
Eof (f) - True, F, False;
Eoln (f) - True, F, False;
Erase (f) - F ;
Execute (n) - N;
FilePos (f) - F;
FileSize (f) - F;
Read (f,d) - D F;
Rename (f,s) - F S;
Reset (f) - F ;
ReWrite (f) - F ( );
Seek (f,n) - F N;
Write (f,d) - D F ( ).
: Assign, ReWrite Reset , (/) Close.
program ReadFile;
{ }
Var
name: string; { }
fl: text; { text = file of string ( )}
chr: char; { }
Begin
Writeln; { }
Writeln( ');
Writeln; { }
Write(' ? ');
readln(name); { nm }
assign(fl, name); { }
reset(fl); { }
while not eof(fl) do { }
Begin
read(fl, chr); { }
Write(chr); { }
end;
close(fl); { }
Writeln; { }
Writeln('.');
end.
program WriteFile;
{ 0 20. }
Var
name: string; { }
fl: text; { text = file of string ( )}
cnt: integer; { }
Begin
Writeln; { }
Writeln(' 0 20.');
Writeln; { }
Write(' ? ');
readln(name); { nm }
assign(fl, name); { }
reWrite(fl); { }
for cnt:= 0 to 20 do { 0 20 }
Write(fl, cnt: 4); { i fl }
close(fl); { }
Writeln; { }
|
|
Writeln('.');
end.
CSV
CSV . Comma Separated Value ( ). CSV , . , ( !). , , .
1.
M x N. , :
1. c .
2. .
3. CSV.
2.
M x N. , :
1. CSV.
2. .
3. .