Programación Web y Scripting > ASP

 Archivo Txt

(1/1)

xy04:
Tengo una problema, espero me puedan ayudar, al querer abrir un archivo *.txt marca un error en la pagina asp, el codigo que tengo dice
ax = "C:\Prueba.txt"

Open ax For Input As #2
Do While Not EOF(2)

   Line Input #2
   Response.Write line input #2,ltext

Loop
Close #2   'Cierra el archivo.

y el error dice

Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/carga/carga/aaa.asp, line 23, column 8
Open ax For Input As #2 'Abre el archivo.

gracias por la ayuda que me puedan ofrecer

ROBER.29:
Hola,

Aqui te pongo una función para leer ficheros de texto. La función recibe como parámetro la ruta del fichero.


--- Código: Text --- Function ReadFile(strFilePath)      If FileExists(strFilePath) Then         Set fsoReadFile = Server.CreateObject("Scripting.FileSystemObject")         On Error Resume Next         Set fReadFile = fsoReadFile.openTextFile(strFilePath)         ReadFile = fReadFile.ReadAll         If ReadFile = "" Then            Response.write "El fichero está vacio"         End If         If Err <> 0 Then             ReadFile = ""         End If         Set fReadFile = Nothing         On Error Goto 0         Set fsoReadFile = Nothing      Else         Response.write "El fichero " & strFilePath & " no existe"      End IfEnd Function  
Un saludo.

xy04:

--- Cita de: "ROBER.29" --- Hola,

Aqui te pongo una función para leer ficheros de texto. La función recibe como parámetro la ruta del fichero.


--- Código: Text --- Function ReadFile(strFilePath)      If FileExists(strFilePath) Then         Set fsoReadFile = Server.CreateObject("Scripting.FileSystemObject")         On Error Resume Next         Set fReadFile = fsoReadFile.openTextFile(strFilePath)         ReadFile = fReadFile.ReadAll         If ReadFile = "" Then            Response.write "El fichero está vacio"         End If         If Err <> 0 Then             ReadFile = ""         End If         Set fReadFile = Nothing         On Error Goto 0         Set fsoReadFile = Nothing      Else         Response.write "El fichero " & strFilePath & " no existe"      End IfEnd Function  
Un saludo.
--- Fin de la cita ---
Rober29 gracias por la ayuda, pero como apenas estoy empezando en esto de la programacion me puedes decir como utilizar el codigo que me enviaste con alguna explicacion.

Gracias

ROBER.29:
Tienes que llamar a la función de la siguiente forma:


--- Código: Text --- Response.write ReadFile(c:\archivo.txt)  
Esto lo que hará es mostrar el contenido del fichero archivo.txt.

Un saludo.

Navegación

[0] Índice de Mensajes