ASP - Ayuda con TXT

   
Vista:

Ayuda con TXT

Publicado por Javier (1 intervención) el 13/08/2008 17:57:10
Hola amigos, me gustaría saber si alguno de ustedes pudiese ayudarme con lo siguiente. Tengo un archivo TXT el cual no está estructurado de ninguna manera, de echo esta escrito en prosa. Y me gustaria extraer los mails que vienen encapsulados por el signo menor que (<) y mayor que (>). El archivo contiene los mensajes de respuesta de distintos servidores a los caules no les llegó, reboto o falló por algun motivo un mail enviado a una gran cantidad de clientes y me gustaría poder identificar el mail la cuenta que no recibio el mail. Esperando alguna ayuda, se despide atentamente. Javier.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con TXT

Publicado por Santos Pairazamán (2 intervenciones) el 14/08/2008 00:05:10
Aqui hay en ejmplo, lo adaptas tus necesidades
espero t sirva.

set ObjFile = createobject("scripting.filesystemobject")

Ruta_archivo="C:Cuentas.txt"

If objFile.FileExists(Ruta_Archivo) then
set ObjFichero = Objfile.OpenTextFile(Ruta_archivo)
i=0
do while not objFichero.AtEndOfStream
Linea = objFichero.readline ' Linea del archivo
if Linea<>"" then
cuenta=split(Linea,"<")
for i =0 to ubound(cuenta)
Response.write Cuenta(i) & "<br>"
next
end if
loop
ObjFichero.Close
else
msg="Ruta o archivo no existe..."
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar