Objeto secuencia de texto
leer archivo
Este ejemplo demuestra cómo utilizar el método OpenTextFile de FileSystemObject para crear un objeto TextStream. El método ReadAll del objeto TextStream obtiene el contenido del archivo de texto abierto.
Este código de muestra es el siguiente:
<html>
<cuerpo>
<p>Este es el texto en el archivo de texto:</p>
<%
Establecer fs=Server.CreateObject(Scripting.FileSystemObject)
Establecer f=fs.OpenTextFile(Server.MapPath(/example/aspe/testread.txt), 1)
Respuesta.Escribir(f.LeerTodo)
f.Cerrar
Establecer f=Nada
Establecer fs=Nada
%>
</cuerpo>
</html>
Los resultados de este ejemplo son los siguientes:
Este es el texto en el archivo de texto:
¡Hola! ¿Cómo estás hoy?
Leer una sección de un archivo de texto
Este ejemplo demuestra cómo leer solo una parte de un archivo de secuencia de texto.
Este código de muestra es el siguiente:
<html>
<cuerpo>
<p>Estos son los primeros 5 caracteres leídos del archivo de texto:</p>
<%
Establecer fs=Server.CreateObject(Scripting.FileSystemObject)
Establecer f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
Respuesta.Escribir(f.Leer(5))
f.Cerrar
Establecer f=Nada
Establecer fs=Nada
%>
</cuerpo>
</html>
Los resultados de este ejemplo son los siguientes:
Aquí están los primeros 5 caracteres leídos del archivo de texto:
Hola
Leer una línea de un archivo de texto
Este ejemplo demuestra cómo leer una línea de un archivo de secuencia de texto.
Este código de muestra es el siguiente:
<html>
<cuerpo>
<p>Esta es la primera línea leída del archivo de texto:</p>
<%
Establecer fs=Server.CreateObject(Scripting.FileSystemObject)
Establecer f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
Respuesta.Escribir(f.ReadLine)
f.Cerrar
Establecer f=Nada
Establecer fs=Nada
%>
</cuerpo>
</html>
Los resultados de este ejemplo son los siguientes:
Esta es la primera línea leída del archivo de texto:
¡Hola!
Leer todas las líneas del archivo de texto.
Este ejemplo demuestra cómo leer todas las líneas de un archivo de secuencia de texto.
Este código de muestra es el siguiente:
<html>
<cuerpo>
<p>Estas son todas las líneas leídas del archivo de texto:</p>
<%
Establecer fs=Server.CreateObject(Scripting.FileSystemObject)
Establecer f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
hacer mientras f.AtEndOfStream = false
Respuesta.Escribir(f.ReadLine)
Respuesta.Escribir(<br>)
bucle
f.Cerrar
Establecer f=Nada
Establecer fs=Nada
%>
</cuerpo>
</html>
Los resultados de este ejemplo son los siguientes:
Estas son todas las líneas leídas del archivo de texto:
¡Hola!
¿Cómo estás hoy?
Saltar parte del archivo de texto
Este ejemplo demuestra cómo omitir una cantidad específica de caracteres al leer un archivo de secuencia de texto.
Este código de muestra es el siguiente:
<html>
<cuerpo>
<p>Se omiten los primeros 4 caracteres del archivo de texto:</p>
<%
Establecer fs=Server.CreateObject(Scripting.FileSystemObject)
Establecer f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
f.Saltar(4)
Respuesta.Escribir(f.LeerTodo)
f.Cerrar
Establecer f=Nada
Establecer fs=Nada
%>
</cuerpo>
</html>
Los resultados de este ejemplo son los siguientes:
Se omiten los primeros 4 caracteres del archivo de texto:
oh! como estas hoy?
Saltar una línea de archivo de texto
Este ejemplo demuestra cómo omitir una línea al leer un archivo de secuencia de texto.
Este código de muestra es el siguiente:
<html>
<cuerpo>
<p>Se omite la primera línea del archivo de texto:</p>
<%
Establecer fs=Server.CreateObject(Scripting.FileSystemObject)
Establecer f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
f.Saltar línea
Respuesta.Escribir(f.LeerTodo)
f.Cerrar
Establecer f=Nada
Establecer fs=Nada
%>
</cuerpo>
</html>
Los resultados de este ejemplo son los siguientes:
Se omite la primera línea del archivo de texto:
¿Cómo estás hoy?
Devuelve el número de filas
Este ejemplo demuestra cómo devolver el número de línea actual en un archivo de secuencia de texto.
Este código de muestra es el siguiente:
<html>
<cuerpo>
<p>Aquí están todas las líneas del archivo de texto (con números de línea):</p>
<%
Establecer fs=Server.CreateObject(Scripting.FileSystemObject)
Establecer f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
hacer mientras f.AtEndOfStream = false
Respuesta.Escribir(Línea: & f.Línea & )
Respuesta.Escribir(f.ReadLine)
Respuesta.Escribir(<br>)
bucle
f.Cerrar
Establecer f=Nada
Establecer fs=Nada
%>
</cuerpo>
</html>
Los resultados de este ejemplo son los siguientes:
Aquí están todas las líneas del archivo de texto (con números de línea):
Línea:1 ¡Hola!
Línea:2 ¿Cómo estás hoy?
Obtener el número de columnas
Este ejemplo demuestra cómo obtener el número de columna del carácter actual en el archivo.
Este código de muestra es el siguiente:
<html>