eliminar lineas de fichero de texto con FSO

[nithard]

Hola forofos, mi pregunta es sencilla, pero no encuentro solución, tengo que eliminar de un fichero de texto todas las líneas que empiezen en # , y tambíen todas las que contengan una cadena de texto del tipo /ejemplo1/ , y que guarde los cambios en el mismo fichero, es posible con ASP?

gracias.

[u_goldman]

Podrías utilizar el FSO, se me ocurre tener una variable acumuladora que por cada línea que lea del archivo, si no encuentra ejemplo1 o #, acumule, al final puedes crear un archivo con el mismo nombre para reemplazarlo....

Algo así:

Sub parse_my_file(this_file)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set my_file= fso.OpenTextFile(path & "\" & this_file, 1)
strWrite= ""

Do While not my_file.AtEndOfStream
contiene= left(my_file.readline,1)
If not contiene="#"
strWrite= strWrite + my_file.readline + vbCrLf
Loop

Set my_asp= fso.CreateTextFile(path & "\" & my_name, true)
Set my_asp= nothing
Set my_reading= fso.OpenTextFile(path & "\" & my_name,8)
my_reading.WriteLine strWrite

End Sub

parse_my_file "nombre.asp"

Esta llamada a la subrutina parse_my_file contiene el nombre de archivo a leer y busca línea por linea que no contenga "#" al principio, si cumple acumula la variable strWrite, crea un archivo con el mismo nombre y lo escribe con el contenido de la variable, solo necesitarías hacer otra sub que puede ser llamada desde esta para detectar que no contenga la cadena "ejemplo"...

Salu2,