1

Pessoal preciso fazer um sistema de cadastro em Portugol para um trabalho da faculdade. Porém, quero que os dados sejam salvos para uma possível consulta.

Existe a possibilidade de salvar dados em um arquivo .txt no VisualG?

(Pesquisei encontrei o comando "arquivo" mais não entendi como utilizar)

Obrigado!

3
  • tente postar seu código para eu ajuda-lo melhor. Commented 22/10/2017 às 12:49
  • consegui lhe ajudar? Commented 22/10/2017 às 22:47
  • Não é possível "salvar dados" em arquivos de texto no VisualG, apenas consegue "ler dados". Como verificável, todo leia() vai ficar lendo do arquivo, até que o arquivo acabe, só depois o leia() volta passar ler do teclado (condição natural), ou seja, não dá para "ora ler do teclado", "ora ler do arquivo", infelizmente. Commented 6/06 às 21:24

2 Respostas 2

3

Existe sim a possibilidade de salvar dados em um arquivo em .txt no VisualG! O VisuAlg permite o armazenamento de dados em um arquivo-texto, obtendo deles os dados ao executar os comandos leia.

Esta característica funciona da seguinte maneira:

(Segundo esta fonte)

  1. Se não existir o arquivo com nome especificado, o VisuAlg fará uma leitura de dados através da digitação, armazenando os dados lidos neste arquivo, na ordem em que forem fornecidos.
  2. Se o arquivo existir, o VisuAlg obterá os dados deste arquivo até chegar ao seu fim. Daí em diante, fará as leituras de dados através da digitação.
  3. Somente um comando arquivo pode ser empregado em cada pseudocódigo, e ele deverá estar na seção de declarações (dependendo do "sucesso" desta característica, em futuras versões ela poderá ser melhorada...).
  4. Caso não seja fornecido um caminho, o VisuAlg irá procurar este arquivo na pasta de trabalho corrente (geralmente, é a pasta onde o programa VISUALG.EXE está). Este comando não prevê uma extensão padrão; portanto, a especificação do nome do arquivo deve ser completa, inclusive com sua extensão (por exemplo, .txt, .dat, etc.).

A sintaxe do comando é:

arquivo < nome-de-arquivo >

<nome-de-arquivo> é uma constante caractere (entre aspas duplas). Veja o exemplo a seguir:

  algoritmo "lendo do arquivo"
  arquivo "teste.txt"
  var x,y: inteiro
  inicio
  para x de 1 ate 5 faca
  leia (y)
  fimpara
  fimalgoritmo

EXTRA

Suas variáveis podem também ser armazenadas em uma matriz do tipo caracter e testar ela na consulta e implementar o código com um menu.(Com cadastro e consulta)

   algoritmo "lendo do arquivo"
   arquivo "teste.txt"
   var x,y,i,j: inteiro
   char opcao
    vetor mat[5][5]
   inicio
   repita
   escreval("MENU")
   escreval("A- GRAVAR ARQUIVOS")
   escreval("B- PROCURAR ARQUIVOS")
   escreval("s-Sair")
   escolha(opcao)
   caso 'A'
   escreval("Leia matriz:")
   para i de 1 ate 5 faca
   para j de 1 ate 5 faca
   leia(m[i][j])
   fimpara
   fimpara


   caso 'B'
   // compare com a variável que quiser 
   leia(x)
   para i de 1 ate 5 faca
   para j de 1 ate 5 faca
   se(x=m[i][j]) entao
   ...
   fimse
   fimpara
   fimpara
   ate(opcao='s')
   fimescolha
   fimalgoritmo

Você pode usar o comando arquivo, porém, talvez não seja a melhor opção.

Pois a cada comando leia() que o VisuAlg encontrar, ele vai ficar lendo esse arquivo e jogando na variável que está no leia(). Traduzindo... Enquanto não chegar ao fim do arquivo, todo leia() vai está direcionado ao arquivo... não será possível ler nenhum dado do usuário via teclado enquanto o arquivo não terminar.

Se for implementar com arquivo, sempre lembre do comando limpatela talvez seja útil.

0

Existe a possibilidade de salvar dados em um arquivo .txt no VisualG?

Não. Não é possível. No VisualG é apenas possível ler dados de arquivos, salvar neles não dá. Além disso, é meio que necessário ler tudo de uma vez, para só assim passar a utilizar o programa normalmente.

Abaixo um exemplo para um cadastro de livros.

algoritmo "lendo do arquivo"
arquivo "db_cadastro_livros.txt"
var
   vetCadLivros : vetor [1..10, 1..3] de caractere
   //1 = ISBN, 2=titulo, 3=subtiluto, 4=edicao
   i, j : inteiro
inicio
   //ler todos os dados do arquivo, preechendo a matriz
   para i de 1 ate 3 faca
      para j de 1 ate 3 faca
         leia(vetCadLivros[i,j])
      fimPara
   fimPara

   limpaTela()

   para i de 1 ate 3 faca
      escrevaL("ISBN     : ", vetCadLivros[i,1])
      escrevaL("Título   : ", vetCadLivros[i,2])
      escrevaL("Subtítulo: ", vetCadLivros[i,3])
      escrevaL("")
   fimPara
fimAlgoritmo

Nome do arquivo: db_cadastro_livros.txt

Conteúdo:

9781234567890
Aprenda a programar em VisualG
Um pouco de tudo...
1234567890123
Mapa Mundi
-
7897897897912
Qualquer coisa
Coisa qualquer

Resultado:

inserir a descrição da imagem aqui

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .