pular ultima linha

[jul 0]

Preciso de uma forma de ler o arquivo TXT e pular, ou não ler a ultima linha deste arquivo, não sei como executar isto, abaixo segue o codigo que estou utilizando

 

Obrigado

 

 

<%
'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("teste.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ê as linhas do arquivo 
Linha = ObjStream.Readline

wend
response.Write Linha

'Fecha o arquivo. 
objStream.Close 
 
'Destruíndo objetos 
Set Fso = nothing 
Set objStream = nothing 
%>

[Ted k' 126]

para pular a linha, dar um replace na volta

 

response.write replace(variavel, chr(13), "<br>")