Sobreescribir en un File *.txt utilizando Input
Publicado por Kevin Harnolld Vechara Aguila (3 intervenciones) el 16/08/2003 01:22:42
Hola tengo una aplicacion que requiere que cuando se encuentre una informacion en un txt la compare y la remplace si ese es el gusto, no se como hacerlo. solo eh utilizado esto pero necesito sobreescribir
Gracias
Kevin Harnolld Vechara Aguila
[email protected]
Do While Not EOF(1)
Line Input #1, ArchivoR '
If Mid(ArchivoR, 1, 1) = 1 Then
Nit = Mid(ArchivoR, 12, 11)
Else
Cedula = Mid(ArchivoR, 2, 17)
'&aqui va lo modificacion desde el 2 abanzando 17 posiciones'&
End If
Loop
Gracias
Kevin Harnolld Vechara Aguila
[email protected]
Do While Not EOF(1)
Line Input #1, ArchivoR '
If Mid(ArchivoR, 1, 1) = 1 Then
Nit = Mid(ArchivoR, 12, 11)
Else
Cedula = Mid(ArchivoR, 2, 17)
'&aqui va lo modificacion desde el 2 abanzando 17 posiciones'&
End If
Loop
Valora esta pregunta
0