Editar TXT

Darhas
17 de Agosto del 2005
'---------------------------------------------------
' SUBRUTINA
'---------------------------------------------------

' Escribir Configuracin meterlos en un TXT.

Function EscribirConfiguracion(saltos, premio)
set FSO = CreateObject ("Scripting.FileSystemObject")
set Escribir = FSO.OpenTextFile("c:Inetpubwwwrootpruebaconfiguracion.txt",2)
' set Escribir = FSO.OpenTextFile("c:Inetpubwwwrootpruebaconfiguracion.txt",8)
a = 0
Do While not (a = saltos)
Do While not (a = saltos)
prueba = Leer.ReadLine()
a = a + 1
Loop
Escribir.WriteLine (premio)
Loop
Escribir.Close
Leer.Close
set Leer = Nothing
set Escribir = Nothing
End Function


'---------------------------------------------------
' PROGRAMA
'---------------------------------------------------
Premio1_D = Request.Form("Premio1_D")

saltos = 3
a = EscribirConfiguracion(saltos, Premio1_D)

Hola a todos, antes de nada decir que sois unos artistas y dar las gracias por la ayuda que me estais aportando

Bueno a lo que iba, quiero editar un TXT, una linea concreta. Con el codigo que os dejo para que lo mireis, solo consigo que borre todo el contenido del TXT y que inserte el valor de la variable Premio1_D en la primera linea.

La idea es, con la variable SALTOS pasarle que linea del TXT deseo Editar o mejor dicho sustituir por el valor de la variable Premio1_D, pero como podeis ver por mi mail no lo consigo.

Tambien intente abrir el fichero con: set Escribir = FSO.OpenTextFile("c:Inetpubwwwrootpruebaconfiguracion.txt",8), pero como es lgico solo conseguia insertar datos en la ultima linea, no se si la solucion pasa por ahi.

Bueno eso es todo, a quien me pueda ayudar muchas gracias y un abrazo
Darhas