Problema para editar archivos de texto con FSO - Error Input past end of file

23/11/2003 - 16:38 por WAB | Informe spam

Utilizo una pagina ASP para administrar archivos de texto con contenido
varible que luego se incluyen en las paginas.
Utilizo File System Object para leer el directorio, seleccionar los archivos
y cargarlos en una lista y luego elegido uno de ellos editarlo en una caja
de texto.
Todo funciona bien exepto con algunos archivos pues al intentar leerlos, y
cargarlos en la caja de texto me aparece el siguiente error:

-

Microsoft VBScript runtime error '800a003e'

Input past end of file

/enredados/inca.asp, line 20

Imagino que hay algun caracter que el sistema identifica como un caracter de
control. Pero sinceramente no veo nada rato.
El contenido del archivo que me da error es el siguiente:

<br>
<b>Dolmen</b>:
<br><br>
Del gaélico tolmen; de tol, tablero, y men, piedra.<br>
Monumento megalítico en figura de mesa, compuesto de lajas horizontales,
sobre otras verticales.
<br><br>

<a href="javascript:abrir('verpost.asp?midpost`')">[Anteriores]</a>

Espero puedan darme una mano. Muchas gracias*

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Problema para Importar archivos de texto en SQL Server 2000

Leer las respuestas

#1 Sashka

23/11/2003 - 19:40 | Informe spam

Tendrías que poner el código con el que lees el archivo... así n se puede
saber en donde está el problema

Sashka

"WAB" escribió en el mensaje
news:%
Mostrar la cita
archivos
Mostrar la cita
de
Mostrar la cita

Responder a este mensaje

#2 WAB

23/11/2003 - 23:16 | Informe spam

No creo que sea un problema de codigo, sino de contenido del archivo, pues
la mayoria de los archivos los leo y los salvo sin problemas, y solo ocurre
el error en algunos. Como en el que transcribi en la consulta.

"Sashka" escribió en el mensaje
news:
Mostrar la cita
caja
Mostrar la cita
y
Mostrar la cita
caracter
Mostrar la cita

Responder a este mensaje

#3 Sashka

24/11/2003 - 01:28 | Informe spam

Bueno yo acabo de poner el contenido de tu archivo en un txt al que he
llamado xxx.txt y lo he leido y puesto en un textarea sin problemas

<%
archivo="xxx.txt"
i=instr(archivo,".")

archivo=Server.Mappath(archivo)
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fl = fs.GetFile(archivo)
Set ts = fl.OpenAsTextStream(1)
Do While ts.AtEndOfStream <> True
aaa = aaa & ts.readline & vbCrLf
Loop
ts.Close
%><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<textarea name="textfield" cols="75" rows="25"><%=aaa%></textarea>
</body>
</html>

Sashka

"WAB" escribió en el mensaje
news:
Mostrar la cita
ocurre
Mostrar la cita
puede
Mostrar la cita
contenido
Mostrar la cita
leerlos,
Mostrar la cita
horizontales,
Mostrar la cita

Responder a este mensaje

#4 WAB

26/11/2003 - 16:59 | Informe spam

Gracias Sashka,
voy a probar con el código que me enviaste. Y contar como me va...
Aqui esta mi codigo, y perdon por lo "cabeza dura".

<%
set fs = Server.CreateObject("Scripting.FileSystemObject")
Set carpeta = fs.GetFolder("d:\micarpeta\")

marchivo = request("marchivo")&""
grabar = request("grabar")&""
salir = request("salir")&""
textArchivo=request("textArchivo")

contFich = ""

if trim(marchivo)<>"" then
if trim(grabar)="grabar" then
set fich fs.OpenTextFile("d:\clients\argentina-hosting.com\dosenred.com.ar\dosenred.c
om.ar\enredados\"&marchivo,2,TRUE)
fich.write(textArchivo)
contFich = " "
marchivo = " "
else
set fich = fs.OpenTextFile("d:\micarpeta\"&marchivo)
contFich = fich.readAll()
end if
end if

%>

Creo que la diferencia principal con lo que tu me propones es la forma de
leer el archivo de texto.
En mi caso lo hago con readAll().

Gracias por tu atencion.

"Sashka" escribió en el mensaje
news:
Mostrar la cita
pues
Mostrar la cita
una
Mostrar la cita
href="javascript:abrir('verpost.asp?midpost`')">[Anteriores]</a>
Mostrar la cita

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida