File Sistem Object

Olá amigo,

veja se isso ajuda:

'-----------------------------------------------------------------

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>  <% 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.
%>
<p>Pronto. Foi gravada a linha acima</p>
</BODY></HTML>

'-----------------------------------------------------------------

Abraços,
t+

#1 Rafael Motta

#2 danilo.max

#3 Rafael Motta

#4 otavio

0 user(s) are reading this topic