comandos de ficheiros em Pascal

Comandos de ficheiros:
Var(text)
Assign atribuir á variável o ficheiro de texto
Rewrite Abre o ficheiro para receber informação
reset Abre o ficheiro para leitura
close fecha o ficheiro
write e writeln escreve no ficheiro
EOL Indicação do fim da linha
EOF Indicação do fim do ficheiro

Declarar variáveis:
Var
Variavel_do_ficheiro:text
Ex:
Var
F:text


Atribuir um nome:
Assign(variavel_do_ficheiro, nome_do_ficheiro);
Ex:
Assign(F,”exemplo.txt”);
Read(nome);
Assign(F, nome);

Abertura do ficheiro para output:

Rewrite(variável_do_ficheiro);

Ex:

Rewrite(F);










Abertura do ficheiro para input:

Reset(variável_do_ficheiro);

Ex:

Reset(F);

Ler a partir do ficheiro:

Read(variável_do_ficheiro, variável);
Readln(variável_do_ficheiro, variável);

Este comando só pode ser utilizado em ficheiros abertos para input c/ o reset.

Ex:

Read(F, texto);
Readln(F, texto);

Escrever no ficheiro:

Write(variavel_do_ficheiro, variavel);
Writeln(variavel_do_ficheiro, variavel);

Este comando só pode ser utilizado em ficheiros abertos para output c/ o rewrite.

Ex:
Write(F, texto);
Writeln(F, texto);

Fechar o ficheiro:

Close(variavel_do_ficheiro);

Ex:

Close(F);

Indicação do fim da linha e do fim do ficheiro:

EOL(variável_do_ficheiro) devolve true se estiver no fim da linha

EOF(variável_do_ficheiro) Devolve true se estiver no fim do ficheiro

Ex:
While not(EOF(F)) do
Readln(F, A);

Exemplo:
Program exemplo;
Var
F:Text;
I:integer;
Begin
Assign(F,“exemplo,txt”);
Rewrite(F);
For I:=1 to 10 do
Writeln(F, I, ‘Olá’);
Close(F);
End.

yeee toka a aprenderrr

Já podem começar a aprender umas coisinhas !!!

COMANDOS

Nome Sintaxe Função
ASSIGN ASSIGN(<nome-do-arquivo>,'nome-externo'); Este comando deve anteceder a abertura do arquivo e nunca deve ser utilizado quando o arquivo já estiver sendo usado. Serve para associar uma identificação externa a um identificador de arquivo interno.
RESET RESET(<nome-do-arquivo>); Serve para abrir um arquivo para leitura e/ou escrita, posicionando o ponteiro do arquivo no endereço zero.
REWRITE REWRITE(<nome-do-arquivo>); Caso o arquivo já exista, para começar a escrever novamente no arquivo, ignorando-se os registros anteriores usa-se este comando.
CLOSE CLOSE(<nome-do-arquivo>); Usa-se para fechar o arquivo, desvinculando o arquivo do programa, atualizando as informações no ambiente do sistema operacional.
WRITE WRITE(<nome-do-arquivo>, registro); Gravar um registro no arquivo na posição apontada pelo ponteiro corrente.
READ READ(<nome-do-arquivo>,registro); Lê a posição corrente do ponteiro e logo após passa para a próxima posição.
SEEK SEEK(<nome-do-arquivo>,endereço-registro); Permite acesso ao n-ésimo registro do arquivo. O primeiro registro é o de número 0.
EOF EOF(<nome-do-arquivo>); "end of file"
Função que devolve TRUE se o final do arquivo for encontrado e FALSE caso contrário.
FILESIZE FILESIZE(<nome-do-arquivo>); Devolve o número de registros do arquivo.
FILEPOS FILEPOS(<nome-do-arquivo>); Devolve a posição(endereço) do ponteiro corrente do arquivo.



have fun ;P

filepos (variavel do ficheiro)

Devolve a posição dos ficheiro

filesize (variavel do ficheiro)

Devolve o numero de registos do ficheiro

erase (variavel do ficheiro)

Elemina o ficheiro do disco permanentemente

Comandos de ficheiros:
Var(text)
Assign atribuir á variável o ficheiro de texto
Rewrite Abre o ficheiro para receber informação
reset Abre o ficheiro para leitura
close fecha o ficheiro
write e writeln escreve no ficheiro
EOL Indicação do fim da linha
EOF Indicação do fim do ficheiro

Exercicio e exemplo:
Pegar no ficheiro criado no exemplo anterior e apresentá-lo no ecrã.
Program exercicio_2;
Var
F:text;
I:integer;
Apresentar:string
Begin
Assign(F, “exemplo.txt”);
Reset(F);
While not(EOF(F)) do
begin
read(F, Apresentar); Ficheiro
writeln(Apresentar); Ecrã
end;
close(F);
end.