[Pascal] Guardar dados em ficheiro txt!

[Teotónio Ricardo]

[Pascal] Guardar dados em ficheiro txt!


Aqui fica um pequeno script para guardar dados num ficheiro txt, o fiocheiro vai ser criado na directorias c:

Code Select Expand

program gravarficheirostxtporcenourinha;

uses crt;



var Ficha: text;

Letra: char;



Begin

clrscr;

Assign(Ficha,\\'texto.txt\\');

{$I-}

rewrite(Ficha);

{$I+}

if IOResult=0 then

writeln(\\'Ficheiro nao criado!\\')

else

writeln(\\'Ficheiro Criado com Sucesso\\');





writeln(\\'Escreva um texto e digite um ponto final para finalisar!\\');

  repeat

read(letra);

write(Ficha,letra);

  until letra=\\'.\\';



  writeln;

  Writeln(\\'O que foi escrito no ficheiro foi:\\');



  Reset(Ficha);

  while not eof(Ficha) do

Begin

read(Ficha,letra);

write(letra);

end;

  close(ficha);

  writeln;

  clrscr;

  writeln(\\'Script criado por cenourinha | www.webtuga.com \\');



readkey;

end.
Espero que gostem!!

[Ghetto_Smurf]

Ya eu tou a aprender isso em BP...