Visual Basic para Aplicaciones - manejo de archivos de texto

Life is soft - evento anual de software empresarial
   
Vista:

manejo de archivos de texto

Publicado por augusto (4 intervenciones) el 04/07/2009 16:55:18
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:manejo de archivos de texto

Publicado por JuanC (431 intervenciones) el 05/07/2009 13:56:30
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:manejo de archivos de texto

Publicado por losvangoh (4 intervenciones) el 20/07/2009 17:51:40
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 avynzett@hotmail.com

Gracias compañeros
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:manejo de archivos de texto

Publicado por JuanC (431 intervenciones) el 20/07/2009 18:04:25
nuevoTexto = Replace(Texto, "KG", "UN")

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:manejo de archivos de texto

Publicado por losvangoh (4 intervenciones) el 21/07/2009 17:11:13
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:manejo de archivos de texto

Publicado por JuanC (431 intervenciones) el 21/07/2009 20:39:54
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar