Lectura de archivos

razcoll · #1 (**permalink**) 29/08/2005, 10:22

Hola a todos, necesito ayuda urgente... quiero hacer una aplicacion web que me permita leer un archivo de texto, pero quiero que lo haga linea por linea... solo quiero que me muestre las 4 priemras lineas.... Ademas si el archivo contiene una linea que solo me muestre esta...

Espero su pronta respuesta... gracias

Saruman · #2 (**permalink**) 29/08/2005, 10:41

chequea esto para ver si te sirve:

http://www.faqsdelweb.com/index.php?...f_id=2&s_id=30

razcoll · #3 (**permalink**) 29/08/2005, 11:01

gracias por la ayuda, pero en el link solo me permite leer todo el fichero lo que yo quiero es leer linea por linea... y solo utilizar las primero 4 lineas

AlZuwaga · #4 (**permalink**) 29/08/2005, 11:32

podrías hacer un split por el retorno de carro (vbcrlf) y, mediante un for de 0 a 3, mostrar las 4 primeras:

<%
'Leer contenido de un fichero
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oFich = FSO.OpenTextFile(Server.MapPath("prueba.txt"))
texto= oFich.ReadAll
oFich.Close
set oFich = nothing

texto = split(texto, vbcrlf)
for i = 0 to ubound(texto)
response.write "linea " & i + 1 & ": " & texto(i) & "<br>"
if i = 3 then exit for '(por si tiene más de 4 líneas)
neext
%>