Como leer el contenido de un fichero de texto

Para poder leer el contenido de un fichero de texto en ASP deberemos de utilizar el objeto FileSystemObject. Es por ello que lo primero que realizaremos será crear una instancia de dicho objeto.

Set mifichero = Server.CreateObject("Scripting.FileSystemObject")

Una vez creada la instancia de un objeto FileSystemObject deberemos de abrir el fichero que queramos leer. Para poder abrir el fichero invocaremos el método OpenTextFile del objeto recién creado. La sintaxis del método OpenTextFile, es la siguiente:

.OpenTextFile (fichero as String, modo as Integer)

A la hora de indicar el nombre del fichero, es aconsejable que utilicemos el método MapPath del objeto Server, para así obtener la localización concreta del fichero en el servidor. En el segundo parámetro indicaremos el modo de apertura del fichero (ForReading-1, ForAppending-2, ForWritting-3)

Una vez abierto el fichero, deberemos de leer su contenido. Para leer el contenido utilizaremos el método ReadAll, el cual nos devuelve todo el contenido del fichero.

.ReadAll (mifichero)

Hay que tener cuidado con dos cosas: la primera es que debemos de comprobar que no estamos situados al final del fichero y la segunda es que deberemos de convertir el contenido del fichero a formato tipo texto. Para esto último utilizaremos la función CStr.

Finalmente y después de volcar el contenido del fichero por pantalla deberemos de cerrar dicho fichero mediante el método Close.

Leer.asp

<%@ Language=VBScript %>
<HTML>

<HEAD>
	<TITLE>Lectura de un fichero de texto en ASP</TITLE>

</HEAD>

<BODY>

	<P>
	<FONT face=Arial size=2 style="BACKGROUND-COLOR: #ffffff">
	Volcado del fichero <STRONG>texto.txt </STRONG>...
	</FONT>

	</P>

	<P><FONT face=Arial size=2 style="BACKGROUND-COLOR: #ffffff">

<%

	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(Server.MapPath("texto.txt"),1)

	If Not objFile.AtEndOfStream Then
		texto = CStr(objFile.ReadAll)
	End If

	Response.Write(texto)
	objFile.Close

%>
 
	</FONT>&nbsp;</P>

</BODY>
</HTML>

Autor: aulambra.com
http://www.aulambra.com/ver.asp?id=59

Usuarios que han visto este tema también han visto...

- Agrupa el código ASP
- Obtener el último día de un mes
- Cortar Cadenas
- Comunicación entre ASP y Flash
- Determinar si un numero es par o impar con ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento