VagnerOliveira

program AGENDATXT; uses Crt; var ARQTXT : text; NOME_ARQUIVO: string; NOME : string[40]; TELEFONE : string[8]; TECLA : char; OPCAO : char; {*** Rotinas de Visualizacao ***} procedure CENTER(MENSAGEM : string); var TAMANHO : integer; begin TAMANHO := 40 + length(MENSAGEM) div 2; writeln(MENSAGEM:TAMANHO); end; procedure WRITEXY(X, Y : byte; MENSAGEM : string); begin gotoxy(X, Y); write(MENSAGEM); end; procedure LINE; var I : byte; begin for I := 1 to 80 do write(#205); end; {*** Rotinas de Manipulacao de Arquivos ***} procedure ARQUIVO; begin clrscr; line; center('Criacao de Arquivo'); line; writeln; center('Informe o nome do arquivo TXT a ser criado:'); readln(NOME_ARQUIVO); {Completando o nome informado pelo usuário com a extensão txt} NOME_ARQUIVO := NOME_ARQUIVO + '.txt'; {Associando a variavel a um arquivo texto} assign(ARQTXT, NOME_ARQUIVO); {Criando o arquivo Texto} rewrite(ARQTXT); gotoxy( 1,12); center('Arquivo foi criado'); writexy(25,24,'Tecle algo para voltar ao menu'); TECLA := readkey; close(ARQTXT); end; procedure CADASTRA; begin clrscr; line; center('Cadastramento de Registro'); line; append(ARQTXT); writexy(10, 5, 'Entre com o Nome ..........: '); readln(NOME); writexy(10, 6, 'Entre com o Telefone ......: '); readln(TELEFONE); writeln(ARQTXT, NOME); writeln(ARQTXT, TELEFONE); writexy(25,24,'Tecle algo para voltar ao menu'); TECLA := readkey; close(ARQTXT); end; procedure EXIBIR; var LINHA : byte; begin clrscr; line; assign(ARQTXT,NOME_ARQUIVO); center('Apresentacao de Registros'); line; LINHA := 5; reset(ARQTXT); while not eof(ARQTXT) do begin readln(ARQTXT, NOME); readln(ARQTXT, TELEFONE); gotoxy( 5,LINHA); write(NOME); gotoxy(50,LINHA); write(TELEFONE); LINHA := LINHA + 1; end; writexy(25,24,'Tecle algo para voltar ao menu'); TECLA := readkey; close(ARQTXT); end; {*** Programa Principal ***} begin OPCAO := '0'; while (OPCAO <> '4') do begin clrscr; line; center('Menu Principal'); line; gotoxy(28, 6); write('1 ........ Criar arquivo'); gotoxy(28, 8); write('2 ............ Cadastrar'); gotoxy(28,10); write('3 ..... Exibir registros'); gotoxy(28,12); write('4 ...... Fim de Programa'); gotoxy(28,16); write('Escolha uma opcao ....: '); readln(OPCAO); if (OPCAO <> '4') then case OPCAO of '1' : Arquivo; '2' : Cadastra; '3' : Exibir; else gotoxy(27,24); writeln('Opcao invalida - Tecle algo'); OPCAO := readkey; end; end; end. adicionado 0 minutos depois Como faço para pesquisar e excluir um dado em um arquivo .txt

Os arquivos são importantes, gostaria de saber se alguém conhece empresas seguras que trabalham com isso.

Em um cartão de câmera de gravação que foi apagado e feita novas gravações várias vezes, tem alguma maneira de recuperar um arquivo de muito tempo atrás?