Criar e Ler TXT

Abaixo segue um exemplo simples, de como criar e ler arquivos txt, pois em alguns casos é desnecessário gravar dados num banco de dados, seja pelo volume pequeno, ou apenas por não necessitar maiores cuidados.

* GRAVAR DADOS EM UM TXT
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = server.MapPath("teste.txt")
Set GRAVAR = FSO.CreateTextFile(caminho,true)
'Foi criado o objeto, e logo apos busca o txt para gravar, se não achar, vai cria-lo (note 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
%>

Bom é isso, FSO (FileSystemObject) pode auxiliar em diversas funções já que possibilita criar/alterar/excluir arquivos ou pastas.

Falow para todos =)

Esta matéria foi postada originalmente no ASP4Developers por Oscar Pires (BLADE) (site), que na época era "Desenvolvedor ASP e Visual Basic, desenvolve sites interativos e sistemas para empresas. ". Hoje, vai saber...