Keresés Kategóriák Kedvencek

Programozás Pascalban: Fájlkezelés - 5. rész, Átnevezés

Készítette: FlamingClaw
2010. október 3. 10:31:49 - 4132 megtekintés
AranyNorbert - 2 éve, 3 hónapja

Szia, hogyan lehetne elérni azt, hogy az átnevezés során az eredeti fájl megmaradjon és másolatként jöjjön létre az új átnevezett állomány?

FlamingClaw - 9 éve, 9 hónapja

Köszi, igyekeztem. Egyébként rengeteg tippet tettem már fel a pascal nyelvvel kapcsolatban, nekem a kedvencem. Nézegesd őket , sokat megtanulhatsz belőle

Keledor - 9 éve, 9 hónapja

Szuper! Már értem a logikát! Most persze ki is próbálom ..ezért nehéz a programozás: mert a dolgok logikáját kell megérteni.. ha simán lemásolnám nem érnék el vele semmit ..amúgy szuper ez a videóoktatás!..és persze pont most nézem, hogy 10+ rész is van már pascalból! Nyílván ma már ez nem túl modern nyelv (pl delhpivel kombinálva mondjuk azért jó) de számomra ez a legérthetőbb. Köszönöm a segítséget, ha elakadok még jelentkezem ..ha szabad.

FlamingClaw - 9 éve, 9 hónapja

Program tombok;
Uses Crt, Dos;

Const max = 3;

Var szamlalo: String; {ebben taroljuk el a konvertalt erteket}
    tomb    : Array[0..max]Of Text; {file valtozokat tartalmazo tomb}
    i       : Integer; {ciklus valtozo}
    fnev1   : String;{file nev elso resze}
    fnev2   : String;{file nev utolso resze}
    fnev3   : String;{teljes nev}

Begin {program_torzs}
  ClrScr;

  fnev1:= 'tomb[';  {file nev elso resze}
  fnev2:= '].txt';  {file nev utoso resze}

  For i:=0 To max Do Begin
    Str(i, szamlalo);  {i-t stringge konvertalom, szamlalo-ban taroljuk el}
    fnev3:= fnev1 + szamlalo + fnev2; {file nev osszeillesztese}
    Assign(tomb[i], fnev3);  {osszerendeles}
    Rewrite(tomb[i]); {a file-ok letrehozasa}
    Close(tomb[i]);   {es lezerasa}
  End;



End.

Ha ezt a progit lefuttatod, akkor a Freepascal könyvtárában lesz 4 szöveges állományod, mint tomb[0].txt, tomb[1].txt, tomb[2].txt, tomb[3].txt
A program elkészíti a szöveges állományokat.

Keledor - 9 éve, 9 hónapja

FPC 2.4.0 ..és köszönöm a segítséged! Természetesen várok.