por Fernando D'Angelo
20. março 2000 00:00
Seguindo com o minitutorial sobre arquivos TXT, iremos abordar a criação de arquivos TXT e também a adição de dados a este arquivo. Exemplificaremos tais ações com o código de geração de arquivos LOG, que funciona da seguinte forma: Todo dia é criado um arquivo TXT, cujo nome é a data no formato invertido (aaaa/mm/dd). Para cada usuário que acessa uma página onde existe essa rotina, o arquivo TXT especificado recebe uma linha a mais. Caso este arquivo não exista, ele é criado, deixando assim o sistema totalmente automatizadol.(o primeiro acesso de cada dia irá perceber a falta do arquivo TXT do dia, o qual é criado neste momento.)
Abaixo, rotina
ASP que Cria e adiciona dados em arquivos TXT
<!--#include file="fobjvbs.inc"-->
<%
path_do_arquivo = "e:/teste/"
Const forReading
= 1, forWriting = 2, forAppending = 8
Const TriDef = -2, TriTrue = -1, TriFalse = 0
Dia = Day(Date())
if Dia < 10 then Dia = "0" & Dia
Mes = Month(Date())
if mes < 10 then mes = "0" & mes
Ano = Year(Date())
'a linha abaixo gera o nome do arquivo de acordo com o dia. (todo dia tem que
ser criado um arquivo novo)
arquivo = path_do_arquivo & Ano & Mes & Dia & ".log"
'a linha abaixo abre a instância com o objeto Scripting. FileSystemObject
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
'abaixo, é feita a verificação da existência do arquivo procurado. Caso ele ainda não exista (o que ocorre 1 vez por dia, no primeiro acesso), ele é criado
If ObjFSO.FileExists(arquivo) = False then
'abaixo, a linha que cria o arquivo TXT especificado
objFSO.CreateTextFile(arquivo)
End If
'a linha abaixo abre o arquivo desejado. Lembre-se, ou ele já existe ou ele foi criado na rotina acima.
Set ObjFile = objFSO.GetFile(arquivo)
'a linha abaixo diz o tipo de manipulação que será utilizada no arquivo TXT, no caso é para adicionar dados.
Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef)
'abaixo, são criadas algumas variáveis com valores que serão colocados no LOG (hora, IP, versão do Browser)
Hora = Time()
IpNum = Request.ServerVariables("REMOTE_ADDR")
BrowVer = Request.ServerVariables("HTTP_USER_AGENT")
'o comando WriteLine, abaixo, grava os dados no arquivo TXT especificado.
ObjStream.WriteLine Hora & " | " & Dia & "/" & Mes & "/" & Ano & " | " & IpNum & " | " & BrowVer & " --> "
'abaixo, o objeto ObjStream é fechado
ObjStream.close
Set ObjStream = nothing
%>