Como Borrar con FileSystemObject en txt

AJVEvoluzione · #1 (**permalink**) 06/10/2004, 17:27

hola tengo un archivo TXT y me gustaria saber como hacer para que por mediante un formulario en un ASP pueda borrar un registro del txt. se entiende?
Saludops!

u_goldman · #2 (**permalink**) 06/10/2004, 17:34

Bueno, puedes enviar el formulario, no se que dato enviarás ahí, supongo que alguna linea de ese archivo que quieras borrar...

1. Abre el txt
2. lee linea a linea(realine y mientras no esté AtEndOfStream) y buscas las coincidencias.
3. Si esa línea es igual a la que quieres borrar no incrementas una variable en la que vas a acumular cada línea
4. Si no es, incrementas tu variable con dicha línea
5. Destruye ese txt y crea otro del mismo nombre
6. Abre tu archivo y cárgale el contenido de la variable que acumulaste con las líneas del txt anterior

Solo una idea.

Salu2,

AlZuwaga · #3 (**permalink**) 06/10/2004, 17:44

Otra idea, si la línea a buscar es idéntica a una línea del TXT, sería leer el contenido del archivo a una variable... var_pepe... y hacer un replace de lo que hay que borrar por "nada"... posteriormene, sobreescribir el archivo original con el contenido de éste replace

AJVEvoluzione · #4 (**permalink**) 08/10/2004, 05:56

Bueno el tema es asi creeo en TXT donde voy agragando info y despues quiero poder borrr info del txt ejemplo una palabra o un e-mail que se encuentre en el txt mediante un formulario osea si quiero borrar [email protected] dentro de un input pongo [email protected] le doy submit y listo que me borre ese mail del txt
aca tengo como lo cree y como inserto los datos en el txt

Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido

CONST_LIBRO="datos.txt"

set oFSO=Server.CreateObject("Scripting.FileSystemObje ct")

accion=Trim (CStr(Request.QueryString("a")))

select case accion
case "guardar"
Guardar
envio_mail
case else
Llenar
end select

set oFSO=nothing

Sub Guardar

Dim textfield1

textfield1=Trim(CStr(Request.Form("textfield1")))

if textfield1 <> "" then
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
'Abro el archivo como un flujo de texto; 8: ForAppending, añadimos al final
set f=archivo.OpenAsTextStream(8)
f.WriteLine(""&textfield1&",")

f.Close
set f=nothing
set archivo=nothing
Response.Write("<small>Se ha añadido con éxito tu comentario</small>")
end if

End Sub 'Guardar

sub envio_mail

Dim mailx, icono

mailx= Request.Form("textfield1")

Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = "0"
ObjMail.To = mailx
ObjMail.From = "- EGRESADOS -<[email protected]>"
ObjMail.Subject = "Calendario FIESTAS DE EGRESADOS"
body = "-------------- Calendario FIESTAS DE EGRESADOS --------------"
body = body & vbCrLf & "<p> </p>"
body = body & vbCrLf & "Hola! para ver el calendario <a href=http://[email protected]/2004.htm>Hacé Clic Aquí </a>"
body = body & vbCrLf & "<p> </p>"
body = body & vbCrLf & "

Mandanos el dato de tu fiesta a: <a href=mailto:[email protected]>[email protected] m</a>"
body = body & vbCrLf & "<br>"
body = body & vbCrLf & "si el enlace no funciona, actualiza, esta ventana del explorador y vuelve hacer click en click aqui"
body = body & vbCrLf & "<p> </p>"

ObjMail.Body = body

ObjMail.Send
Set ObjMail = Nothing
Response.Redirect "http://www.miweb.com/ok.htm"

end sub 'envio_mail

Sub Llenar

%>

<html>

<head>
<title>Calendario FIESTAS DE EGRESADOS</title>

<style>

</style>
<script language="JavaScript">

if (top.location != self.location)top.location = self.location;
//-->
</script>
<script language="JavaScript">

</script>
</head>

<body bgcolor="#FFFFFF">

<form name="form1" method="post" action="calendario.asp?a=guardar">
<div align="center"><center><p> </p>
</center></div><div align="center"><center><p><font face="Century Gothic" size="6"><b>FIESTAS
DE EGRESADOS</b></font></p>
</center></div><div align="center"><center><p><b><font face="Century Gothic" size="7">CALENDARIO
2004</font></b></p>
</center></div><div align="center"><center><p> </p>
</center></div><div align="center"><center><p><font face="Century Gothic" size="5"><b>Para
ver el calendario ingresa:</b></font></p>
</center></div><div align="center"><center><p><strong>Tu E-mail:</strong> <input
type="text" name="textfield1" size="26"></p>
</center></div><div align="center"><center><p><input type="submit"
value="Ver el Calendario"
style="font-size: 10pt; font-weight: bold; color: rgb(255,255,255); background-color: rgb(0,0,0)"
ONCLICK="return Validar(this.form);"></p>
</center></div><div align="center"><center><p> </p>
</center></div><div align="center"><center><p><b><i><font face="Century Gothic" size="4">Mandanos
el dato de tu fiesta a: <a href="mailto:[email protected]">egresados@miweb. com</a></font></i></b></p>
</center></div>
</form>

</body>
</html>

<%
End Sub 'Llenar

%>