A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
Előző változat mindkét oldalon Előző változat | |||
inf-prog-fszi:szoeveges_allomanyok [2017/06/22 15:35] beistvan |
inf-prog-fszi:szoeveges_allomanyok [2017/06/23 11:55] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Szöveges állományok ====== | ||
+ | |||
+ | 1. Fájl típusú változó deklarálása | ||
+ | <code pascal fajlvaltozo2t.pas> | ||
+ | var | ||
+ | t: text; | ||
+ | </ | ||
+ | |||
+ | 2. Fájl változó hozzárendelése a háttértáron lévő állományhoz | ||
+ | |||
+ | <code pascal fajlhozzarendel2t.pas> | ||
+ | Assign(t, ' | ||
+ | </ | ||
+ | |||
+ | 3. Fájl beviteli-kiviteli hibáinak vizsgálata fájlmegnyitásakor | ||
+ | <code pascal fajlolvasasnyitas2t.pas> | ||
+ | {$i-} | ||
+ | Reset(t); | ||
+ | if IOResult <> 0 then | ||
+ | begin | ||
+ | Write (' | ||
+ | Readln; | ||
+ | Halt(1); | ||
+ | end; | ||
+ | {$i+} | ||
+ | </ | ||
+ | |||
+ | 4. Megnyitás írásra vagy újraírásra | ||
+ | <code pascal fajlirasnyitas2t.pas> | ||
+ | Rewrite(t); | ||
+ | </ | ||
+ | |||
+ | 5. Megnyitás hozzáírásra | ||
+ | <code pascal fajlhozzairas2t.pas> | ||
+ | Append(t); | ||
+ | </ | ||
+ | |||
+ | 6. Írás a fájlba | ||
+ | <code pascal fajlbairas2t.pas> | ||
+ | Write(t, adatok); | ||
+ | Writeln(t, adatok); | ||
+ | </ | ||
+ | |||
+ | 7. Olvasás a fájlból | ||
+ | <code pascal fajlbololvasas2t.pas> | ||
+ | Read(t, valtozo); | ||
+ | Readln(t, valtozo); | ||
+ | </ | ||
+ | |||
+ | 8. Az összes adat beolvasása a fájlból | ||
+ | <code pascal fajlmindbeolvas2t.pas> | ||
+ | index:=0; | ||
+ | While not eof(t) do | ||
+ | begin | ||
+ | index: | ||
+ | Read(t, tomb[index]); | ||
+ | end; | ||
+ | beolvasott_adatmennyiseg := index; | ||
+ | </ | ||
+ | |||
+ | 9. A fájl bezárása | ||
+ | <code pascal fajlbezaras2t.pas> | ||
+ | Close(t); | ||
+ | </ | ||
+ | |||
+ | ===== Szövegfájl kezelése Pascal nyelven ===== | ||
+ | |||
+ | <code pascal szovegfile_kezeles.pas> | ||
+ | program szovegfile_kezeles; | ||
+ | var t: text; i, szam: | ||
+ | begin | ||
+ | assign(t, ' | ||
+ | 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 ===== | ||
+ | |||
+ | <code c szovegfile_kezeles.c> | ||
+ | #include < | ||
+ | |||
+ | int main(void) | ||
+ | { | ||
+ | FILE* fp; | ||
+ | /* file-open, w = write - írás*/ | ||
+ | fp = fopen(" | ||
+ | if (fp != NULL) | ||
+ | { | ||
+ | int i; | ||
+ | for (i = 1; i <= 10; ++i) | ||
+ | fprintf(fp, " | ||
+ | fclose(fp); | ||
+ | } | ||
+ | else | ||
+ | { | ||
+ | perror(" | ||
+ | } | ||
+ | /* file-open, r = read - olvasás */ | ||
+ | fp = fopen(" | ||
+ | if (fp == NULL) | ||
+ | { | ||
+ | perror(" | ||
+ | return; | ||
+ | } | ||
+ | |||
+ | / | ||
+ | char s[5]; | ||
+ | while (fscanf(fp, " | ||
+ | { | ||
+ | printf(" | ||
+ | } | ||
+ | |||
+ | fclose(fp); | ||
+ | return 0; | ||
+ | } | ||
+ | |||
+ | </ | ||
+ | |||
+ | ===== Szövegfájl kezelése C++ nyelven ===== | ||
+ | |||
+ | <code cpp szovegfile_kezeles.cpp> | ||
+ | // 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 (" | ||
+ | for (int szam = 1; szam <=10; szam++) | ||
+ | { | ||
+ | myfile << | ||
+ | } | ||
+ | // Hozzárendelés megszüntetése a file lezárásával. | ||
+ | myfile.close(); | ||
+ | |||
+ | // | ||
+ | string line; | ||
+ | ifstream myfilein (" | ||
+ | if (myfilein.is_open()) | ||
+ | { | ||
+ | while ( getline (myfilein, | ||
+ | { | ||
+ | cout << line << ' | ||
+ | } | ||
+ | myfilein.close(); | ||
+ | } | ||
+ | |||
+ | else cout << "Nem tudtam megnyitni a fájlt!"; | ||
+ | return 0; | ||
+ | } | ||
+ | |||
+ | </ | ||
+ | |||
+ | ===== Szövegfájl kezelése C# nyelven ===== | ||
+ | |||
+ | <code csharp szovegfile_kezeles.cs> | ||
+ | using System; | ||
+ | using System.IO; | ||
+ | |||
+ | namespace ConsoleApp2 | ||
+ | { | ||
+ | class Program | ||
+ | { | ||
+ | static void Main(string[] args) | ||
+ | { | ||
+ | using (StreamWriter sw = new StreamWriter(" | ||
+ | { | ||
+ | { | ||
+ | for (int i = 1; i <= 10; i++) | ||
+ | { | ||
+ | sw.WriteLine(i); | ||
+ | } | ||
+ | } | ||
+ | |||
+ | } | ||
+ | |||
+ | string line = ""; | ||
+ | using (StreamReader sr = new StreamReader(" | ||
+ | { | ||
+ | while ((line = sr.ReadLine()) != null) | ||
+ | { | ||
+ | Console.WriteLine(line); | ||
+ | } | ||
+ | } | ||
+ | Console.ReadKey(); | ||
+ | } | ||
+ | } | ||
+ | } | ||
+ | |||
+ | </ | ||
+ | |||
+ | **A '' | ||
+ | |||
+ | Ez lesz a konzolkimenet is | ||
+ | |||
+ | <code text szamok.txt> | ||
+ | 1 | ||
+ | 2 | ||
+ | 3 | ||
+ | 4 | ||
+ | 5 | ||
+ | 6 | ||
+ | 7 | ||
+ | 8 | ||
+ | 9 | ||
+ | 10 | ||
+ | </ | ||
+ | |||
+ | |||
+ | Órai gyakorlat | ||
+ | |||
+ | <code pascal feleles.pas> | ||
+ | program feleles; | ||
+ | var t:text; | ||
+ | i, | ||
+ | a:array [1..30] of string; | ||
+ | begin | ||
+ | assign(t,' | ||
+ | reset(t); | ||
+ | i:=0; | ||
+ | while not eof(t) do | ||
+ | begin | ||
+ | inc(i); | ||
+ | readln(t, | ||
+ | writeln(a[i]); | ||
+ | end; | ||
+ | n:=i; | ||
+ | close(t); | ||
+ | randomize; | ||
+ | x: | ||
+ | writeln; | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | |||
+ | <code pascal gyakorlatvedes.pas> | ||
+ | program gyakorlatvedes; | ||
+ | var t:text; | ||
+ | i, | ||
+ | cs: string; | ||
+ | a:array [1..30] of string; | ||
+ | begin | ||
+ | assign(t,' | ||
+ | reset(t); | ||
+ | i:=0; | ||
+ | while not eof(t) do | ||
+ | begin | ||
+ | inc(i); | ||
+ | readln(t, | ||
+ | writeln(a[i]); | ||
+ | end; | ||
+ | n:=i; | ||
+ | // | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | x: | ||
+ | cs:= a[i]; | ||
+ | a[i]:= a[x]; | ||
+ | a[x]:= cs; | ||
+ | end; | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | writeln(i: | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | |||
+ | <code pascal feleles_hianyzok_nelkul.pas> | ||
+ | program feleles_hianyzok_nelkul; | ||
+ | var t:text; | ||
+ | i, | ||
+ | cs: string; | ||
+ | a,h,o:array [1..30] of string; | ||
+ | begin | ||
+ | writeln(' | ||
+ | assign(t,' | ||
+ | reset(t); | ||
+ | i:=0; | ||
+ | while not eof(t) do | ||
+ | begin | ||
+ | inc(i); | ||
+ | readln(t, | ||
+ | writeln(i: | ||
+ | end; | ||
+ | n:=i; | ||
+ | assign(t,' | ||
+ | reset(t); | ||
+ | i:=0; | ||
+ | while not eof(t) do | ||
+ | begin | ||
+ | inc(i); | ||
+ | readln(t, | ||
+ | // | ||
+ | end; | ||
+ | m:=i; | ||
+ | for i:=1 to m-1 do | ||
+ | for j:=i+1 to m do | ||
+ | if a[i]> | ||
+ | begin | ||
+ | cs:=a[i]; | ||
+ | a[i]:=a[j]; | ||
+ | a[j]:=cs; | ||
+ | end; | ||
+ | writeln; | ||
+ | writeln(' | ||
+ | for i:=1 to m do | ||
+ | writeln(i: | ||
+ | writeln; | ||
+ | writeln(' | ||
+ | k:=0; | ||
+ | for i:=1 to n do | ||
+ | begin //Keressuk azt az a[i]-t, ami nincs a h tombben. | ||
+ | j:=1; | ||
+ | while (j< | ||
+ | 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: | ||
+ | randomize; | ||
+ | x: | ||
+ | writeln; | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | |||
+ | <code text nevsor.txt> | ||
+ | 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 | ||
+ | </ | ||
+ | |||
+ | |||
+ | |||
+ | <code text hianyzok.txt> | ||
+ | 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 | ||
+ | </ | ||
+ | |||