por Fernando D'Angelo
21. setembro 1999 00:00
O componente
File Access é um componente usado para acessar arquivos texto. Os arquivos
tipo texto, muitas vezes, são usados como banco de dados de acesso sequencial
(nem sempre é vantagem se usar bancos de dados com acesso aleatório,
como o MSAccess, ...). Assim sendo, foi necessário a criação
de um componente que permitisse a leitura e gravação de dados
nestes arquivos.
sintaxe:
conexão com o componente: Set fsObj = Server.CreateObject("Scripting.FileSystemObject")
criação do arquivo test.txt: Set txtStreamObj = fsObj.CreateTextFile(name,[bOverWrite])
abertura do arquivo test.txt para leitura ou gravação: Set txtStreamObj = fsObj.OpenTextFile(name,[iomode,[bCreate,[format]]])
fsObj, txtStreamObj são variáveis definidas pelo usuário.
name - nome do arquivo texto (colocar o path caso o arquivo se localize em outra pasta que não a do arquivo ASP que possui este código)
bOverWrite - TRUE: caso o arquivo existe, ele é deletado, e um novo é criado. FALSE: caso o arquivo exista, ele não é substituído.
iomode - FROWRITING, FORREADING: modo de abertura do arquivo selecionado (para gravação, para leitura)
bCreate - TRUE: caso o arquivo selecionado para abertura não exista, ele é criado.
format - TRUE: é criado um arquivo texto usando o formato Unicode. FALSE: é criado um arquivo texto usando o formato ASCII.
Os valores TRUE ou FALSE são determinados de acordo com uma tabela existente num arquivo chamado fobjvbs.inc , o qual deve ser incluído no código da página que contém o código ASP de leitura do arquivo texto.(veja exemplo mais abaixo)
Abaixo, uma tabela dos vários comandos desse componente:
| AtEndOfLine | Retorna TRUE caso o ponteiro tenha chegado ao final da linha. Usado apenas em arquivos
abertos para leitura. | | AtEndOfStream | Retorna TRUE caso o ponteiro tenha chegado ao final do arquivo. Usado apenas em arquivos abertos para leitura. | | Column | Retorna o número da coluna que o ponteiro se encontra. A primeira coluna tem numeração 1. | | Line | Retorna o número da linha que o ponteiro se encontra. A primeira linha tem numeração 1. | | Close | Fecha um arquivo aberto. | | Read | Lê um determinado número de caracteres do arquivo. |
| ReadAll | Lê
todo o arquivo. Quando o arquivo for muito grande, usar outros métodos de leitura, como a leitura de linha por linha. | | ReadLine | Lê uma linha inteira, ou seja, lê os caracteres que estão entre a posição do ponteiro e o final da linha. | | Skip | pula um determinado numero de caracteres. |
| SkipLine | pula
uma linha inteira. | | Write | grava uma determinada string para o arquivo. | | WriteLine | grava uma determinada string para o arquivo e posiciona o ponteiro no início da linha seguinte. | | WriteBlankLines | grava uma determinada quantia de linhas brancas ao arquivo. | |
Veja
os exemplos a seguir:
<html><head><title>Componente File Access</title></head>
<body>
<!--#include file="fobjvbs.inc"-->
<%
Set objeto= CreateObject("Scripting.FileSystemObject")
'a linha acima criou uma instância do componente FileAccess
Set gv = objeto.OpenTextFile("c:\test.txt", ForWriting, True, False)
'a linha acima abre o arquivo C:\test.txt para gravação. Caso ele não exista., é criado um. (este código tem exatamente o mesmo efeito do método CREATETEXTFILE.
gv.Writeline("Esta linha foi inserida com o uso do componente FileAccess.")
gv.Close
'a linha acima fecha o arquivo aberto para gravação
objeto=nothing
'a linha acima libera a variável objeto, dessa forma, ela não
fica armazenando valores que não serão mais usados após
o fechamento do arquivo.
%>
Pronto. Foi gravada a linha acima
</body></html>