Mostrar Mensajes

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Información del Perfil

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Mensajes - xy04

Páginas: [1]

ASP / Re: Archivo Txt

« en: Miércoles 21 de Abril de 2004, 02:11 »

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 If
End Function

Un saludo.

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

ASP / Archivo Txt

« en: Martes 20 de Abril de 2004, 00:42 »

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

Páginas: [1]

SoloCodigo