exacto Julio...
los expeirtos de mocosoft se olvidaron del comando deleteLine para el manejo de archivo, lo que si puedes hacer es una rutina que dado el archivo y la palabra o frase a buscar haga un replace por espacios en blanco...
no es lo mas docto pero es lo unico que se me ocurrio cuando tuve que hacer algo similar...
Código PHP:
Public Function DeletePalabra(filename, palabra)
Dim content
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath(filename), 1)
content = f.ReadAll
content = replace(content, palabra, "")
f.Close
Set f=fs.CreateTextFile(filename,true)
f.write(Server.MapPath(content))
f.Close
Set f=nothing
Set fs=nothing
End Function
lo otro seria borrar por linea donde tendrias que darle la linea que deseas eliminar..o sea mas bien recorrer again el archivo y reescribirlo saltandote la linea X.
Código PHP:
Public Function BorrarLinea(filename, linea)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Dim count, content
count = 0
Set f=fs.OpenTextFile(Server.MapPath(filename), 1)
do while f.AtEndOfStream = false
count = count + 1
If linea <> count Then
content = content & f.ReadLine & "<br>"
Else
f.ReadLine
End If
loop
f.Close
Set f=fs.CreateTextFile(filename,true)
f.write(Server.MapPath(content))
f.Close
Set f=nothing
Set fs=nothing
End Function
saludos