Foros del Web » Programando para Internet » ASP Clásico »

datos de formulario a .txt

Estas en el tema de datos de formulario a .txt en el foro de ASP Clásico en Foros del Web. Como puedo introducir los datos de envio de un formulario en un .txt ....
  #1 (permalink)  
Antiguo 17/01/2003, 08:19
Avatar de sedos  
Fecha de Ingreso: junio-2002
Mensajes: 116
Antigüedad: 22 años
Puntos: 0
datos de formulario a .txt

Como puedo introducir los datos de envio de un formulario en un .txt .

Última edición por sedos; 17/01/2003 a las 08:21
  #2 (permalink)  
Antiguo 17/01/2003, 11:26
Avatar de rickoe
Colaborador
 
Fecha de Ingreso: abril-2001
Mensajes: 353
Antigüedad: 23 años, 1 mes
Puntos: 2
Hola!!

Pueba este codigo:


Código PHP:
<%@LANGUAGE="VBScript"%>
<
HTML>
<
BODY>
<%
nombreFichero=Server.MapPath("fichero.txt")
'crea una instancia de un objeto FileSystemObject
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
'
se comprueba el botón que se ha pulsado
If Request.Form("actualizar")<>"" Then
'se obtiene el nuevo texto y se divide en un array de líneas
lineas=Split(Request.Form("texto"),vbCrLf)
Set objTextStream=objFSO.OpenTextFile(nombreFichero,ForWriting)
'
se escribe el nuevo texto eliminado el existente
For i=0 To UBound(lineas)
objTextStream.WriteLine lineas(i)
Next
objTextStream
.Close
ElseIf Len(Request.Form("anyadir")) Then
lineas
=Split(Request.Form("texto"),vbCrLf)
Set objTextStream objFSO.OpenTextFile(nombreFichero,ForAppending,False)
For 
i=0 To UBound(lineas)
objTextStream.WriteLine lineas(i)
Next
objTextStream
.Close
End 
If
If 
Len(Request.Form("borrar")) Then
'se borra el contenido del fichero
Set objTextStream=objFSO.OpenTextFile(nombreFichero,ForWriting)
objTextStream.Close
End If
%>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>" METHOD="POST">
Los contenidos del fichero <B><%=nombreFichero%></B> son:<P>
<TEXTAREA NAME="texto" ROWS="10" COLS="50">
<%
'
abrimos el fichero para mostrarlo en el área de texto
si no existe se crea vacío
If Not objFSO.FileExists(nombreFicheroThen
objFSO
.CreateTextFile(nombreFichero)
End if
Set objTextStream=objFSO.OpenTextFile(nombreFichero,ForReading,True)
While 
Not objTextStream.AtEndOfStream
Response
.Write objTextStream.ReadLine&vbCrLf
Wend
objTextStream
.Close%></TEXTAREA><br>
<
INPUT TYPE="SUBMIT" NAME="actualizar" VALUE="Actualizar">
<
INPUT TYPE="SUBMIT" NAME="anyadir" VALUE="Añadir">
<
INPUT TYPE="SUBMIT" NAME="borrar" VALUE="Borrar">
</
FORM>
</
BODY>
</
HTML
Espero te sirva

Saludos

Rickoe
__________________
Mejor Jeep Imposible
  #3 (permalink)  
Antiguo 20/01/2003, 08:54
Avatar de sedos  
Fecha de Ingreso: junio-2002
Mensajes: 116
Antigüedad: 22 años
Puntos: 0
gracias tio, da gusto la peña de este foro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:07.