Visual Basic para Aplicaciones - manejo de archivos de texto

Hola hermanos:

Necesito manipular un archivo de texto, pero la informacion que encuentro es muy escueta, por lo que recurro a vuestra vasta experiencia.

Necesito abrir un archivo de texto que contiene n filas (todas del mismo tamaño) y sòlo cambiar la ùltima letra ejemplo.

CG00203.07.200903.07.200976703 0000005.020 000005185201 ----- Este dìgito es el quiero cambiar por uno que to suministre pude ser 2,3,4 etc.

Gracias por su colaboarciòn.

Saludos

Augusto

algo muy simple podría ser así

Sub test()
Dim sLinea$
Open "test.txt" For Input As 1
Open "test2.txt" For Output As 2
Do While Not EOF(1)
Line Input #1, sLinea
sLinea = Mid(sLinea, 1, Len(sLinea) - 1) & "2"
Print #2, sLinea
Loop
Close #1
Close #2
End Sub

Saludos, desde Baires, JuanC

Hola amigo JuanC gracias por tu ayuda me salio bacan.

Ahora tengo una mas brava, no se si me puedas ayudar o pasarme un manual de manejo de archivos de texto.

lo que necesito hacer ahora es por ejemplo:

xxxxxxxxxxxxxxxxxxxxxxxxxx sdfdfdsfsd dsfdsdf xxxxxxxKG XXXX.XXXXX

donde dice kg reemplazar por UN, o por BOL sin que se corra el texto que sigue.

Gracias por compartir su suprema sabiduria con este neófito informatico.

Saludos

Augusto

Mi correo es [email protected]

Gracias compañeros

nuevoTexto = Replace(Texto, "KG", "UN")

Saludos, desde Baires, JuanC

JuanC sucede que no es todo el archivo sino algunos registros por ejemplo que tengan el numero 12879, 108329, solo a esos se les cambia KG a UN

SAludos

Ayudame porfa

Tendrás algun manual que yo pueda leer para salir de esta ignorancia en vba?

Saludos gracias

para saber si debe modificarse usa la función InStr
lee la ayuda que trae el editor de vba/excel, cursos hay miles x ahí...

Saludos, desde Baires, JuanC