Recorrer fichero de texto

[Federico]

Bueno he volcado los datos de una tabla en un fichero de texto, y pretendo recorrerle para ir extrallendo cadenas de cada una de las lineas, pero no consigo pasar de la primera linea. Me podeis ayudar, lo que tengo es esto:

<%DIRECCION = Server.MapPath("COTIZACIONES/COTIZACIONES.txt") %>
<%
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Set Fichero = FS.OpenTextFile(DIRECCION)
Response.Write(Fichero.ReadLine)
%>
¿Como hago el bucle, para ir recorriendo todas las lineas?.

[u_goldman]

Tienes que utilizar la propiedad atEndOfStream

While not archivo.atEndOfStream que es algo como el EOF.

http://www.w3schools.com/ASP/prop_atendofstream.asp

Saludos

[bitshoot]

puedes adaptar este codigo... hace lo que quieres pero recibiendo el archivo txt desde un formulario... y el archivo es un txt exportado de excel separado con comas... por eso lo del chr(algo...44) modificalo como quieras ya que te recorre por linea y por campo (separacion por comas...) espero te sirva. suerte.

<%
set objUpload = new xelUpload
objUpload.Upload()

buscaLinea = 0

set objFich1 = objUpload.Ficheros("input_recive_archivo")
objFich1.Guardar Server.MapPath(".")
Aux_imagen = objFich1.Nombre

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(Server.Mappath(".") & "\"&Aux_imagen&"",1,false,0)
'"
if not textStreamObject.AtendOfStream then
while not textStreamObject.AtendOfStream
arreglo = split(textStreamObject.Readline, chr(44))
buscaLinea = buscaLinea + 1
for i = 0 to ubound(arreglo)
if buscaLinea = 2 then
buscaCampo = i
if buscaCampo = 1 then

response.write(arreglo(i)) & "<br>"
end if
end if
next

wend
Set textStreamObject = Nothing
Set fso = Nothing
end if
%>

[Boxmaster]

Saludos, yo uso este codigo...
Espero que te sirva

<%
Const fsoLectura = 1
Dim objFSO
'Instanciación del objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Abrir el archivo de texto
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\documento.txt", fsoLectura)

'Visualiza en el navegador el contendido del archivo de texto
Response.Write objTextStream.ReadAll

'Cerrar e inicializar los objetos
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
%>


Ok

[bitshoot]

boxmaster pero ahi no estas recorriendo el archivo...