Foros del Web » Programando para Internet » ASP Clásico »

leer archivo txt desde pagina asp

Estas en el tema de leer archivo txt desde pagina asp en el foro de ASP Clásico en Foros del Web. Amigos quisiera saber como puedo modificar este codigo Mi codigo actual lee todos los datos de un txt los datos de mi texto tiene la ...
  #1 (permalink)  
Antiguo 01/05/2002, 16:21
 
Fecha de Ingreso: marzo-2002
Mensajes: 41
Antigüedad: 22 años, 2 meses
Puntos: 0
leer archivo txt desde pagina asp

Amigos quisiera saber como puedo modificar este codigo

Mi codigo actual lee todos los datos de un txt
los datos de mi texto tiene la sgte forma

45567788
565476578

yo quiero que cada linea se guarde en una variable

mi codigo es el sgte

<%
Const ForReading = 1
Const Create = False
Dim FSysObj
Dim TS
Dim strLine
Dim strFileName

'nombre del fichero a mostrar
strFileName = Server.MapPath("Archivo.txt")

'Creación del objeto FileSystemObject
Set FSysObj = Server.CreateObject("Scripting.FileSystemObje ct")

' Abrimos el fichero
Set TS = FSysObj.OpenTextFile(strFileName, ForReading, Create)

If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=tahoma SIZE=2>"
'Do While not TS.AtendOfStream
' Leemos el fichero linea a linea y lo mostramos
strLine = TS.ReadLine
Response.Writelin i & " " & Server.HTMLEncode(strLine) & "<br>"
'loop
End If

' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>

please ayuda
  #2 (permalink)  
Antiguo 01/05/2002, 16:27
Avatar de urjose  
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 22 años, 5 meses
Puntos: 1
Re: leer archivo txt desde pagina asp

If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=tahoma SIZE=2>"
i=0
Do While not TS.AtendOfStream

' Leemos el fichero linea a linea y lo mostramos
strLine(i) = TS.ReadLine
i=i+1
loop
End If


Y luego para recorrer

For i=0 to Ubound(StrLine)

Reposnse.Write StrLine(i)&"<br>"

Next

Como puedes ver guardamos cada linea en un arreglo y despues lo recorrimos

Saludos


<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:33.