Grabacion de Archivo txt

[GusGreen]

Alguien tiene un ejemplo de codigo con el que se pueda grabar un archivo de texto, y que se pueda agregar linea por linea.
Mi idea es hacer un archivo de logs que se vaya incrementando con el ingreso de cada usuario.
No se como crear y hacer append en un archivo de texto.
Al que ayude, desde ya, gracias

[urjose]

<%

Set archivo= Server.CreateObject("Scripting.FilesystemObje ct")
Set ArchivoTexto= archivo.createtexfile("la ruta donde lo vas a crear")
Archivotexto.writeline(Request.ServerVariables(&qu ot;REMOTE_ADRR"))
Archivotexto.close
%>

Archivotexto.writeline(Request.ServerVariables(&qu ot;REMOTE_ADRR")) en esta linea escribes la direccion con que entra el usuario y se salta una linea

salu2 espero que te sea util :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[GusGreen]

Urjose, muchas gracias, lo pruebo y te comento.
Increible, no pasaron 5 minutos desde que lance el mensaje.
Estas todo el dia respondiendo mensajes?
Gracias de nuevo

[Owen-Bonilla]

a ver si esto te sirve.... al menos en este ejemplo te guarda X datos de un formulario...


Archivo = Session (&quot;guardar&quot;)
SET Conexion = Server.CreateObject (&quot;Scripting.FileSystemObject&quot;)
SET Fichero = Conexion.OpenTextFile (&quot;DBQ=c:/Tu_pathc/Nombre_Archivo&quot; &amp; Archivo &amp; &quot;.txt&quot;, 8, true)

Fichero.WriteLine Request.Form (&quot;dato_anterior&quot;)
Fichero.WriteLine Request.Form (&quot;otro_dato_anterior&quot;)
Fichero.WriteLine Request.Form (&quot;comentario&quot;)
Fichero.WriteLine &quot;&lt;&lt;---Separador---&gt;&gt;&quot;
Fichero.Close

mira, para que me entiendas... aqu lo que me guardara son los valores de los Input´s de la forma anterior ( logico verdad jeje)...

por cierto, no tienes que crear el archivo, se crea la primer ves que corres el programa y automaticamente se van agregando... esta linea:

Fichero.WriteLine &quot;&lt;&lt;---Separador---&gt;&gt;&quot;

te escribira eso ( &lt;&lt;---separador--&gt;&gt; ) y es solo para separar los datos ( en tu casos los logs) ;)

Suerte y cualquier cosa, aqui andamos...



Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

[urjose]

Considerame un Foro Adicto, ademas de que me late mucho ayudar, creo que me debi dedicar a otra cosa, jaja...

nada mas agrego

Lo anterior fue para crear el archivo de texto, pero ya que lo tienes creado ya no necesitaras crearlo de nuevo, sino abrirlo estamos de acuerdo? y esto se hace asi...

Set archivo= Server.CreateObject(&quot;Scripting.FilesystemObje ct&quot;)
Set ArchivoTexto= archivo.opentexfile(&quot;la ruta de donde lo vas a jalar&quot;)
Archivotexto.writeline(Request.ServerVariables(&qu ot;REMOTE_ADRR&quot;))
Archivotexto.close
%&gt;

salu2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[Owen-Bonilla]

UrJose = Foro Adicto = Vicio Total :P...

bueno.. todos lo somos jiji...

Saludos Amigo ;)

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

[GusGreen]

me esta dando este error
El objeto no acepta esta propiedad o método: 'createtexfile'
/ConsMed/prueba3.asp, line 6
me esta faltando algo?

[urjose]

ops! puedes poner tu codigo, yo tuve un error en el primer mensaje, me falto una t por ahi

Set ArchivoTexto= archivo.createtextfile(&quot;la ruta donde lo vas a crear&quot;)

pon tu codigo

salu2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[Aston]

Hola, sí, te está fallando que el metodo se llama CreateTextFile . Faltaba la T después de &quot;tex&quot;.

En otro orden de cosas no hay que olvidar nunca, para liberar recursos, desasignar las variables de objeto después de cerrar los archivos, así:

Set ArchivoTexto = Nothing
Set Archivo = Nothing


<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[GusGreen]

Si, falta una &quot;t&quot;, no me di cuenta

[GusGreen]

tengo otro problema
cuando abro la pagina, nunca termina de abrirla, queda infinitamente intentando abrirla.
Abriendo pagina .....

[urjose]

tienes algun ciclo en tu codigo?

pon tu codigo seria mas facil encontrar, el posible error

salu2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[GusGreen]

Ahi va... bien simple

&lt;body&gt;

&lt;%
Set archivo= Server.CreateObject(&quot;Scripting.FilesystemObje ct&quot;)
Set ArchivoTexto= archivo.createtextfile(&quot;C:\log.txt&quot;)
Archivotexto.writeline(Request.ServerVariables(&qu ot;REMOTE_ADRR&quot;))
Archivotexto.close
Set ArchivoTexto = Nothing
Set Archivo = Nothing
%&gt;
HOLA
&lt;/body&gt;
&lt;/html&gt;

[urjose]

mm pues no se a que se deba yo probe tu codigo y me jalo bien.

estas trabajando con pws o iis?

salu2 :) ;)


<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[GusGreen]

W2000 con IIS