ASP - Criar e ler um TXT 


Oscar Pires é desenvolvedor ASP e Visual Basic, atualmente voltado para o e-commerce, e trabalha com sistemas para controle dos dados de lojas.

11/09/2001 - Coluna nº 01

ASP - Criar e ler um TXT

Olá Pessoal,

Essa é a nossa primeira coluna de ASP e vamos estreiar com um artigo muito importante, porém meio leve. Aos poucos vamos ensinando sistemas e segredos cada vez mais complexos...

Vamos começar aprendendo como criar e ler um TXT.

Para gravar dados do usuário, há diversas formas, porém não se pode ficar "preso" a uma única. Deve-se estudar o caso e analisar a melhor forma. Há a opção de se gravar dados na máquina do usuário através de cookies e inclusive determinar uma data para que estes dados se expirem, pode-se também gravar dados em um banco de dados, o qual se mantém disponível e pode ser trabalhado de melhor forma e gravar dados em um arquivo de texto simples (TXT) para casos que não possuiram um volume grande.

Os cookies possuem a vantagem de se poder personalizar o conteúdo de acordo com o usuário, porém os navegadores têm opção para exclusão imediata dos cookies, portanto, dados realmente importantes não devem ser armazenados em cookies.

Um banco de dados é a solução mais usada quando se trata de volumes grandes como produtos, clientes, valores e permite um controle mais fácil dos dados.

Gravar dados em um arquivo de texto (txt) é útil quando se sabe que não será trabalhado um volume muito grande como é o caso de um contador que apenas soma valores a cada visita, ou a criação de logs à uma área importante do site, etc...

Abaixo segue um exemplo de fácil compreensão, para demonstrar a facilidade em se gravar um dado em um TXT, e posteriormente lê-los.

GRAVAR DADOS EM UM TXT
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Server.MapPath("teste.txt") 'especifique aqui o caminho onde ficará/está o TXT
Set GRAVAR = FSO.CreateTextFile(caminho,true)
'Foi criado o objeto e logo após busca o txt em caminho para gravar, se não achar, vai cria-lo (por causa da marcação TRUE)

gravar.write ("teste de gravação")
gravar.close
response.write "GRAVADO!"
'apos abrir o TXT, gravará a linha com o texto "TESTE DE GRAVAÇÃO" a confirmação no cliente aparecerá como "GRAVADO"
%>

LER CONTEÚDO DE UM TXT
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Server.Mappath("teste.txt")
Set TXT = FSO.OpenTextFile(caminho)
'cria o objeto, e busca pelo TXT indicado pela variável caminho como acima

response.write txt.readALL
'após abrir o TXT, enviará direto ao cliente todo conteúdo do TXT, neste exemplo, retornará "TESTE DE GRAVAÇÃO" como foi gravado acima
txt.close
%>

Este artigo é importante para alertar a necessidade de um estudo do caso e mostra um exemplo simples de uso de um arquivo de texto comum.

Semana que vem eu volto com mais novidades. Qualquer dúvida, envie-me um e-mail.

Até mais.

Oscar Pires
blade@imasters.com.br

Todos os direitos autorais dos artigos pertencem ao seu autor.