leyendo un txt???????????

[univercity]

Amigos,

Creo que el archivo lo encuentra y trata de leerlo pues me arroja el siguiente error:

Error de Microsoft VBScript en tiempo de ejecución error '800a003e'

Se sobrepasó el final del archivo

/travi/mailing/txt.asp, line 20


el archivo txt pesa 12,6 megas y es largisimo ahora yo quiero leer uno a uno pues el archivo tiene una lista y esta ordenada asi:

[email protected]
[email protected]
[email protected]
[email protected]

etc, etc.....



el scripts que estoy usando es este:

<%
'LECTURA DE UN ARCHIVO DE TEXTO
rutaArchivo = "1000000.txt"

Set fsLectura = Server.CreateObject("Scripting.FileSystemObject")
Set mArchivo = fsLectura.OpenTextFile(rutaArchivo,1,true)

response.write mArchivo.readAll
mArchivo.close
%>



ya se que donde tendria que cambiar es donde dice readAll pero como le pongo para que lea uno a uno?




espero me entiendan
slds.

[ElAprendiz]

response.write mArchivo.readAll

es la linea 20?

[univercity]

Si, esa es la linea 20

[univercity]

alguien me podria ayudar?...

[ElAprendiz]

si tienes los mails separados por enter, es decir hacia abajo puedes utilizar el metodo ReadLine, que lee una linea completa

objeto.ReadLine

o puedes crear una funcion para leer un determinado numero de caracteres, siempre y cuando estos esten separados por algun caracter (coma, tab,etc)


pero te recomiendo mejor que utilizes la primera opcion

mira este ejemplo funciona pero no pude hacerlo dentro de un ciclo do..loop, asi que lo puse dentro de un ciclo for...next, si sabes el numero de mails debes colocarlo en la variable c

espero te de alguna idea
Saludos

<%response.buffer="true"
'LECTURA DE UN ARCHIVO DE TEXTO
rutaArchivo = "d:\contactos\contactos.txt"

Set fsLectura = Server.CreateObject("Scripting.FileSystemObject")
Set mArchivo = fsLectura.OpenTextFile(rutaArchivo,1,true)
c=100 ' numero de mails
for i = 1 to c
mail=mArchivo.readline
if len(marchivo.readline)=0 then
exit for
else
response.write mail&"<br>"
marchivo.skipline
end if
next
mArchivo.close
%>

[univercity]

Gracias, creo qu eso es lo que necesito lo estoy probando luego te cuento...

[Helbira]

Construye la ruta del archivo de la siguiente manera para asegurarte que de verdad lo encuentra y lo puede leer perfectamente

Código PHP:

  rutaArchivo= Request.ServerVariables("APPL_PHYSICAL_PATH") & "tuArchivo.txt" 
   

y ya podrás hacer el readAll sin que te devuelva ese error.

Añadir también que para saber si has llegado al final del archivo se puede usar:

Código PHP:

  mArchivo.AtEndOfStream 
   

que devuelve true en caso de haber llegado al final del archivo. De esta manera no tendrás que establecer la variable c

Un beso