Autor Tópico: [Pascal] Guardar dados em ficheiro txt!  (Lida 1769 vezes)

Offline Teotónio Ricardo

  • Administrator
  • Newbie
  • *****
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
    • http://www.teotonio.pt
[Pascal] Guardar dados em ficheiro txt!
« em: Janeiro 20, 2006, 12:42:42 pm »
[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:

Código: [Seleccione]
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!!

Offline Ghetto_Smurf

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
    • http://
[Pascal] Guardar dados em ficheiro txt!
« Responder #1 em: Janeiro 20, 2006, 01:49:28 pm »
Ya eu tou a aprender isso em BP...

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49