Archivo de texto - Split

[kubuntu]

Tengo este codigo que funciona, pero muestra el error cuando el archivo de texto esta en otra carpeta y no en la raiz:
El subíndice está fuera del intervalo: '[number: 0]'

Código:

archivo = "archivo.txt"
archivo = Server.MapPath("carpeta/"&archivo)  ' Mal
archivo = Server.MapPath(archivo) '   bien

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile(archivo, 1, false)

Do While objStream.AtEndOfStream <> true

line= objStream.ReadLine

Response.Write(line)

line = split(line, ";")

Response.write(line(0))
Response.Write("<br>")
Response.write(line(1))
Response.Write("<br>")
Response.write(line(2))
Response.Write("<br>")
Response.write(line(3))
Response.Write("<br>")
Response.write(line(4))
Response.Write("<br>")

Loop

objStream.Close()
Set objStream = nothing
Set objFSO = nothing
%>

Solo lee la primera linea para la segunda muestra el error.

[AlZuwaga]

Probá así;

archivo = Server.MapPath("/carpeta/"&archivo)

[kubuntu]

Iniciado por Al Zuwaga

Probá así;

archivo = Server.MapPath("/carpeta/"&archivo)

Ahora dice :

Ruta de acceso no encontrada

[kubuntu]

ademas de que si comento el split, funciona, pero necesito para sacarlo por campos.


line = split(line, ";")

Response.write(line(0))
Response.Write("<br>")
Response.write(line(1))
Response.Write("<br>")
Response.write(line(2))
Response.Write("<br>")
Response.write(line(3))
Response.Write("<br>")
Response.write(line(4))
Response.Write("<br>")

Ayuda por favor! He mirado otros codigos nada

[kubuntu]

Ayuda, por favor como hago para leer el archivo pero con el split y dentro de un subcarpeta.

[kubuntu]

El error solo sale cuando utilizo el split para separar la linea por campos, de un txt que esta en una subcarpeta.

viewtxt.asp
carpeta/archivo.txt --> no funciona
archivo.txt -------------> si funciona

Código asp:

dim archivo, cadenasep, objFSO, objStream,linea
archivo = "archivo.txt"
dir="carpeta"
'archivo=server.MapPath(".")&"\"&dir&"\"&archivo
archivo = Server.MapPath(archivo)
 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile(archivo, 1, false)
 
Do While objStream.AtEndOfStream <> true
 
line =""
line= objStream.ReadLine
 
Response.Write(line)
 
linea = split(line, ";")
 
Response.write(line(0))
Response.Write("<br>")
Response.write(line(1))
Response.Write("<br>")
Response.write(line(2))
Response.Write("<br>")
Response.write(line(3))
Response.Write("<br>")
Response.write(line(4))
Response.Write("<br>")
 
'Response.End()
Loop
 
objStream.Close()
Set objStream = nothing
Set objFSO = nothing
 

[David]

Habría que ver el contenido de tu archivo *.txt.

[sjam7]

por que no haces una comprobacion, quizas no esta leyendo el archivo en la carpeta, solo cuando esta en la misma raiz y por eso te marca el error

[kubuntu]

Iniciado por David el Grande

Habría que ver el contenido de tu archivo *.txt.

el archivo tiene 6 columnas separadas por ";" (split)

cc;nombre;pais;ciudad;edad;valor


y si esta leyendo el archivo solo que solo lee la primera linea

por eso tengo ---> "response.end"

[David]

Al final no entendí, ¿no da ningún error pero no lee todo el archivo?. ¿Es eso lo que sucede?.

[kubuntu]

Si encuentra el archivo.
no lee todo el archivo por que para la segunda linea se queda en el error.
se puede ver la primera linea del archivo con el response.end().

[sjam7]

no seria en lugar de esto:
Response.write(line(0))

ESTO:
Response.write(linea(0))
....

[kubuntu]

Iniciado por sjam7

no seria en lugar de esto:
Response.write(line(0))

ESTO:
Response.write(linea(0))
....

lo siento, al copiarlo quedo asi, pero lo tengo tengo bien (linea(0)), tanto que cuando utilizo el archivo txt de la raiz funciona todo bien.

viewtxt.asp
carpeta/archivo.txt --> no funciona
archivo.txt -------------> si funciona

[kubuntu]

Gracias a todos por su atencion.

Conclusion no se puede.

[sjam7]

a mi lo que se me hace raro es que poniendo el archivo en la raiz si funcione, de lo que quiero pensar que es exactamente el mismo archivo, las carpetas tienen los mismos permisos, etc...

2 opciones mas:
1.- Comprueba con FSO que si se este leyendo el archivo cuando esta en la carpeta, quizas sea un problema de configuracion del servermap
2.- Pon el archivo en la raiz siempre

[kubuntu]

Iniciado por kubuntu

Si encuentra el archivo.
no lee todo el archivo por que para la segunda linea se queda en el error.
se puede ver la primera linea del archivo con el response.end().

si lee al menos la primera linea, cuando va a leer la segunda linea es que se pierde y da el error.

[David]

¿Has probado sin hacer Split leer todas las líneas para ver si realmente las está leyendo o no?.

[Shiryu_Libra]

si no estoy muy equivocado y esta espuma me deja pensar (ya valio)

al parecer el error esta presisamente en la forma en que estan realizando el split
por que? por que al principio evaluas el ";" (punto y coma), pero.... has verificado que las siguientes lineas sigan el mismo estandar???

no te has fijado si esos estan separados en " " (espacio)????

otra, porque no lees linea por linea, si ya lo tienes configurado de esa manera (el archivo), y despues aplicas el split???

[kubuntu]

lo primero, el archivo si mantiene el formato, ya que este codigo "funciona" con la variantes que he mensionado.

Y lo de leer el archivo linea x linea y despues el Spit, es buena.

[kubuntu]

Iniciado por David el Grande

¿Has probado sin hacer Split leer todas las líneas para ver si realmente las está leyendo o no?.

si, y si las lee todas, pero la necesito por campos.