====== Szöveges állományok ======
1. Fájl típusú változó deklarálása
var
t: text;
2. Fájl változó hozzárendelése a háttértáron lévő állományhoz
Assign(t, 'fajl.txt');
3. Fájl beviteli-kiviteli hibáinak vizsgálata fájlmegnyitásakor
{$i-}
Reset(t);
if IOResult <> 0 then
begin
Write ('Fajlkezelesi hiba!');
Readln;
Halt(1);
end;
{$i+}
4. Megnyitás írásra vagy újraírásra
Rewrite(t);
5. Megnyitás hozzáírásra
Append(t);
6. Írás a fájlba
Write(t, adatok);
Writeln(t, adatok);
7. Olvasás a fájlból
Read(t, valtozo);
Readln(t, valtozo);
8. Az összes adat beolvasása a fájlból
index:=0;
While not eof(t) do
begin
index:=index+1;
Read(t, tomb[index]);
end;
beolvasott_adatmennyiseg := index;
9. A fájl bezárása
Close(t);
===== Szövegfájl kezelése Pascal nyelven =====
program szovegfile_kezeles;
var t: text; i, szam:integer;
begin
assign(t, 'szamok.txt');
rewrite(t);
for i:=1 to 10 do
writeln(t, i);
close(t);
reset(t);
while not eof(t) do begin
readln(t, szam);
writeln(szam);
end;
close(t);
readln;
end.
===== Szövegfájl kezelése C nyelven =====
#include
int main(void)
{
FILE* fp;
/* file-open, w = write - írás*/
fp = fopen("szamok.txt", "w");
if (fp != NULL)
{
int i;
for (i = 1; i <= 10; ++i)
fprintf(fp, "%d\n", i); /* file-printf */
fclose(fp); /* file-close */
}
else
{
perror("Nem sikerült megnyitni a fájlt");
}
/* file-open, r = read - olvasás */
fp = fopen("szamok.txt", "rt"); /* megnyitás */
if (fp == NULL)
{
perror("szamok.txt megnyitása");
return; /* nem folytathatjuk! */
}
/*beolvasás fájlból */
char s[5];
while (fscanf(fp, "%s\n", s) > 0)
{
printf("%d\n", atoi(s));
}
fclose(fp);
return 0;
}
===== Szövegfájl kezelése C++ nyelven =====
// Alapvető file-műveletek
#include
#include
#include
using namespace std;
int main ()
{
// Hozzárendeli írásra a myfile-t
ofstream myfile;
// Ez nyitja meg a file-t írásra
myfile.open ("szamok.txt");
for (int szam = 1; szam <=10; szam++)
{
myfile <
===== Szövegfájl kezelése C# nyelven =====
using System;
using System.IO;
namespace ConsoleApp2
{
class Program
{
static void Main(string[] args)
{
using (StreamWriter sw = new StreamWriter("szamok.txt"))
{
{
for (int i = 1; i <= 10; i++)
{
sw.WriteLine(i);
}
}
}
string line = "";
using (StreamReader sr = new StreamReader("szamok.txt"))
{
while ((line = sr.ReadLine()) != null)
{
Console.WriteLine(line);
}
}
Console.ReadKey();
}
}
}
**A ''szamok.txt'' tartalma**
Ez lesz a konzolkimenet is
1
2
3
4
5
6
7
8
9
10
Órai gyakorlat
program feleles;
var t:text;
i,n,x:integer;
a:array [1..30] of string;
begin
assign(t,'nevsor.txt');
reset(t);
i:=0;
while not eof(t) do
begin
inc(i);
readln(t,a[i]);
writeln(a[i]);
end;
n:=i;
close(t);
randomize;
x:=1+random(n);
writeln;
writeln('Felelo: ',a[x]);
readln;
end.
program gyakorlatvedes;
var t:text;
i,n,x:integer;
cs: string;
a:array [1..30] of string;
begin
assign(t,'nevsor.txt');
reset(t);
i:=0;
while not eof(t) do
begin
inc(i);
readln(t,a[i]);
writeln(a[i]);
end;
n:=i;
//randomize;
for i:=1 to n do
begin
x:=1+random(n);
cs:= a[i];
a[i]:= a[x];
a[x]:= cs;
end;
writeln('A labor vedesi sorrend: ');
for i:=1 to n do
writeln(i:2,'. ',a[i]);
readln;
end.
program feleles_hianyzok_nelkul;
var t:text;
i,j,k,n,m,p,x:integer;
cs: string;
a,h,o:array [1..30] of string;
begin
writeln('Teljes nevsor:');
assign(t,'nevsor.txt');
reset(t);
i:=0;
while not eof(t) do
begin
inc(i);
readln(t,a[i]);
writeln(i:2,'. ',a[i]);
end;
n:=i;
assign(t,'hianyzok.txt');
reset(t);
i:=0;
while not eof(t) do
begin
inc(i);
readln(t,h[i]);
//writeln(i:2,'. ',h[i]);
end;
m:=i;
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i]>a[j] then
begin
cs:=a[i];
a[i]:=a[j];
a[j]:=cs;
end;
writeln;
writeln('Hianyzok nevsora:');
for i:=1 to m do
writeln(i:2,'. ',h[i]);
writeln;
writeln('Oran jelenlevok nevsora:');
k:=0;
for i:=1 to n do
begin //Keressuk azt az a[i]-t, ami nincs a h tombben.
j:=1;
while (j<=m)and(a[i]<>h[j])do
inc(j);
if j>m then
begin
k:=k+1;
o[k]:=a[i];
end;
end;
p:=k;//p-az o[] tomb elemeinek szama
for i:=1 to p do
writeln(i:2,'. ',o[i]);
randomize;
x:=1+random(p);
writeln;
writeln('Felelo: ',o[x]);
readln;
end.
Bado Edina
Baksa Adrien
Barta Erik
Bagu Cintia-Erzsebet
Buda Krisztian
Homoki Janos
Hofman Attila
Demjen Dominika
Ilosvay Aron
Kerek Vanessza
Kovacs Petra-Mariann
Kovacs Julia
Mirosnicsenko Beatrix
Orosz Evelin
Orosz Zsolt
Papp Imre
Penzes Zsolt
Palinszki Alexandra
Szirmai Stefania
Szolnoki Gyula
Toth Ferenc
Himinec Kalman-Laszlo
Juhasz Tamas
Hofman Attila
Kovacs Julia
Mirosnicsenko Beatrix
Orosz Evelin
Orosz Zsolt
Toth Ferenc
Juhasz Tamas
Baksa Adrien
Demjen Dominika
Kerek Vanessza
Penzes Zsolt
Palinszki Alexandra
Szirmai Stefania