Autor
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
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
En línea
