Abrir text e pegar dados

[Rafael Leal 0]

----

[xanburzum 169]

Olhe algumas operações básicas para se trabalhar com FSO

 

Criando um arquivo TXT e escrevendo nele.

 

<% 
'Instância o objeto FSO. 
Set Fso = CreateObject("Scripting.FileSystemObject") 

'Utilizando a propriedade CreateTextFile para criar o arquivo. 
Set Cria = Fso.CreateTextFile("z:\home\login\web\xxx\arquivo.txt",True) 

'Com o método WriteLine você escreve uma linha no arquivo criado acima. 
Cria.WriteLine "Está quase !!!" 

Response.write "Arquivo criado" 

'Fecha o arquivo criado. 
Cria.Close 

'Destruíndo objetos 
Set Fso = nothing 
Set Cria = nothing 
%>

Acima criamos um arquivo de texto com o método CreateTextFile. Utilize o método CreateFolder para manipular diretórios e o método Drives para manipulação de drives.

 

 

Lendo o arquivo TXT e mostrando na tela.

 

<% 
'O parâmetro forReading é utilizado somente para leitura. 
Const forReading = 1, forWriting = 2, forAppending = 8 

'Instância o objeto FSO. 
Set Fso = CreateObject("Scripting.FileSystemObject") 

'O método GetFile retorna o arquivo existente. 
Set ObjFile = Fso.GetFile("z:\home\login\web\xxx\arquivo.txt") 

'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto. 
Set objStream = ObjFile.OpenAsTextStream(forReading,false) 

'Looping para varrer todas as linha do arquivo. 
While Not ObjStream.AtEndOfStream 

'O método Readline lê uma linha de um arquivo 
Linha = Linha & ObjStream.Readline & "<br>" 
Wend 

'Mostra o conteúdo. 
Response.write Linha 

'Fecha o arquivo. 
objStream.Close 

'Destruíndo objetos 
Set Fso = nothing 
Set objStream = nothing 
%>

 

Adicionando uma linha no arquivo TXT já criado.

<% 
'O parâmetro forReading é utilizado somente para leitura. 
Const forReading = 1, forWriting = 2, forAppending = 8 

'Instância o objeto FSO. 
Set Fso = CreateObject("Scripting.FileSystemObject") 

'Abre o arquivo com o método OpenTextFile. 
Set ArqTxt = Fso.OpenTextFile("z:\home\login\web\xxx\arquivo.txt",8,True) 

'Arquivo aberto, escreve no arquivo 
ArqTxt.WriteLine("Mais uma linha com o FSO!") 

'Fecha o arquivo com o método Close. 
ArqTxt.Close 

'Destrói o objeto. Set ArqTxt = nothing 

'Retorna o arquivo que será usado. 
Set ObjFile = Fso.GetFile("z:\home\login\web\xxx\arquivo.txt") 

'Abre o arquivo novamente, agora para a leitura ! 
Set ObjStream = ObjFile.OpenAsTextStream(forReading,false) 

'Looping para varrer todas as linhas do arquivo. 
While Not ObjStream.AtEndOfStream 
'O método Readline lê uma linha de um arquivo. 
Linha = Linha & ObjStream.Readline & "<br>" 
Wend 

'Mostra o conteúdo. 
response.write Linha 

'Destruíndo objetos 
Set Fso = nothing 
Set objStream = nothing 
%>

 

aqui você pode ler o arquivo txt , separa-lo

 

Dim ObjAbreArq, ObjFso, Var_Caminho 
Var_Caminho = Server.MapPath ("texto.txt") 
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") 
Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho, 1, True, False) 

If ObjAbreArq.AtEndOfStream = True Then 
Response.Write "Não existe informações no arquivo!" 
Else 

contador = 0 

Do While Not ObjAbreArq.AtEndOfStream 
linha = ObjAbreArq.ReadLine 
icampo=Split(linha,"|",-1,1) 
IF LCase(Trim(icampo(0))) = LCase(Trim(search)) Then 
response.write " '"&Trim(icampo(1)) &"'>"& Trim(icampo(0)) " 
contador = contador + 1 
End IF 
Loop 
response.write "<br>Total de Registros encontrados: <b>"& contador &"</b>" 
End IF

ObjAbreArq.Close

Set ObjAbreArq = Nothing

 

End IF

[Rafael Leal 0]

----