In Asp é possível ler o conteúdo de um filete e scrivere em um arquivo de texto.
O objeto certo para nós é o FileSystemObject: para abrir um arquivo usaremos OpenTextFile com 3 modos diferentes: ler, escrever, anexar.
O arquivo pode ser lido com Leia a linha (linha por linha) ou com Leia tudo (lê todo o conteúdo).
O modo anexar difere do modo escrita uma vez que adiciona texto a um documento já aberto, anexando-o ao que já está presente.
Ler e escrever arquivos em ASP
Com este script, lemos o conteúdo do arquivo de uma vez:
<%
filePath = Server.Mappath (“file_testo.txt”)
Defina objFileSystem = Server.CreateObject (“Scripting.FileSystemObject”)
if objFileSystem.FileExists (filePath) então
'Eu abro arquivo para leitura
Defina objFile = objFileSystem.OpenTextFile (filePath, 1)
'Escrevo para conteúdo de arquivo de vídeo
Response.Write objFile.ReadAll
'ou coloco em uma variável text_content = objFile.ReadAll
objFile.Close
Definir objFile = Nothing
acabam se
Definir objFileSystem = Nothing
%>
Com este script, lemos o arquivo linha por linha:
<%
filePath = Server.Mappath (“file_testo.txt”)
Defina objFileSystem = Server.CreateObject (“Scripting.FileSystemObject”)
if objFileSystem.FileExists (filePath) então
Defina objFile = objFileSystem.OpenTextFile (filePath, 1)
'Eu leio o arquivo linha por linha até o final do arquivo
Do While Not objFile.AtEndofStream
Response.Write objFile.ReadLine & “ ”
laço
objFile.Close
Definir objFile = Nothing
acabam se
Definir objFileSystem = Nothing
%>
Eu escrevo o texto no arquivo (verifique se a pasta tem permissões de gravação) e se o arquivo não existir eu o crio:
<%
filePath = Server.Mappath (“file_testo.txt”)
Defina objFileSystem = Server.CreateObject (“Scripting.FileSystemObject”)
se não objFileSystem.FileExists (filePath) então
'se não existe eu acho que sim
objFileSystem.CreateTextFile (filePath)
acabam se
Defina objFile = objFileSystem.OpenTextFile (filePath, 2)
'Eu escrevo uma linha no arquivo
'objFileSystem.OpenTextFile (filePath, 2) -> arquivo sovrascrivo
'objFileSystem.OpenTextFile (filePath, 8) -> adiciona o texto ao final do arquivo
objFile.WriteLine ("novo texto do arquivo")
objFile.Close
Definir objFile = Nothing
Definir objFileSystem = Nothing
%>
