Ver Mensaje Individual
  #6 (permalink)  
Antiguo 01/10/2008, 07:18
kubuntu
 
Fecha de Ingreso: septiembre-2008
Mensajes: 60
Antigüedad: 16 años, 6 meses
Puntos: 1
Error: El subíndice está fuera del intervalo

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:
Ver original
  1. dim archivo, cadenasep, objFSO, objStream,linea
  2. archivo = "archivo.txt"
  3. dir="carpeta"
  4. 'archivo=server.MapPath(".")&"\"&dir&"\"&archivo
  5. archivo = Server.MapPath(archivo)
  6.  
  7. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  8. Set objStream = objFSO.OpenTextFile(archivo, 1, false)
  9.  
  10. Do While objStream.AtEndOfStream <> true
  11.  
  12. line =""
  13. line= objStream.ReadLine
  14.  
  15. Response.Write(line)
  16.  
  17. linea = split(line, ";")
  18.  
  19. Response.write(line(0))
  20. Response.Write("<br>")
  21. Response.write(line(1))
  22. Response.Write("<br>")
  23. Response.write(line(2))
  24. Response.Write("<br>")
  25. Response.write(line(3))
  26. Response.Write("<br>")
  27. Response.write(line(4))
  28. Response.Write("<br>")
  29.  
  30. 'Response.End()
  31. Loop
  32.  
  33. objStream.Close()
  34. Set objStream = nothing
  35. Set objFSO = nothing