Imprimir Página - [Aporte]Leer Archivo y Modificar Linea Especificada

Hola amigos, estuve leyendo y encontre un codigo que me sirvio y la verdad me suluciono ams de lo uno podria pensar.
La verdad hacia mucho... muchoo tiempo que lo queria pero nunca lo busque y ara que tope con el quiero compartirlo ya que es bien sencillo y me encanta :P

Este codigo lee un texto y tu mismo especificas que linea quieres cambiar...

Código:

Dim sRuta As String, aDatos() As String, i As Integer
sRuta = App.Path & "\texts.txt"
Open sRuta For Input As #1
aDatos = Split(Input(LOF(1), #1), vbNewLine)
Close #1
aDatos(1) = "Linea modificada"
aDatos(3) = "Y esta también"
Open sRuta For Output As #1
For i = LBound(aDatos) To UBound(aDatos)
    Print #1, aDatos(i)
Next i
Close #1

No es nada del otro mundo pero pienso que para aquel que se complica la vida.. con esto se soluciona!

Salu2

Ranslsad

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ranslsad en 27 Agosto 2007, 03:20 am