editar txt

La respuesta es NO!

para modificar, el contenido de calquier TXT, debes de abrirlo.

otra cosa es que luego lo mantengas oculto, mientras manipulas su
contenido

ok... pero puedo manipularlo desde excel? es decir con una macro puedo
decirle desde excel que cambie (;) por (,) y que luego se cierre el archivo
txt?
gracias

"" escribió:

La respuesta es NO!

para modificar, el contenido de calquier TXT, debes de abrirlo.

otra cosa es que luego lo mantengas oculto, mientras manipulas su
contenido

Mira si te sirve el siguiente código, pero haz antes una copia de seguridad del fichero de texto, por si no hace lo que necesitas:

Sub prueba()
Dim intFich As Integer, lngNúmReg As Long, strCad As String * 1, n As Long

intFich = FreeFile(0)
Open "C:\Ruta\NombreDelFichero.txt" For Random As intFich Len = 1 'Sustituir por la ruta completa del fichero

For lngNúmReg = 1 To LOF(intFich)
Get intFich, lngNúmReg, strCad
If strCad = ";" Then
LSet strCad = ","
Put intFich, lngNúmReg, strCad
End If
Next lngNúmReg

Close intFich
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel
www.excelesp.com


"fredy" escribió en el mensaje news:

ok... pero puedo manipularlo desde excel? es decir con una macro puedo
decirle desde excel que cambie (;) por (,) y que luego se cierre el archivo
txt?
gracias

"" escribió:

>
> La respuesta es NO!
>
> para modificar, el contenido de calquier TXT, debes de abrirlo.
>
> otra cosa es que luego lo mantengas oculto, mientras manipulas su
> contenido
>
>

si gracias Fernando funciona perfecto
una pregunta mas ... intente hacerlo con un archivo csv pero no funcion que
cambio deberia hacerle para que funcione con archivos csv?
muchas gracias!!

"Fernando Arroyo" wrote:

Mira si te sirve el siguiente código, pero haz antes una copia de seguridad del fichero de texto, por si no hace lo que necesitas:

Sub prueba()
Dim intFich As Integer, lngNúmReg As Long, strCad As String * 1, n As Long

intFich = FreeFile(0)
Open "C:\Ruta\NombreDelFichero.txt" For Random As intFich Len = 1 'Sustituir por la ruta completa del fichero

For lngNúmReg = 1 To LOF(intFich)
Get intFich, lngNúmReg, strCad
If strCad = ";" Then
LSet strCad = ","
Put intFich, lngNúmReg, strCad
End If
Next lngNúmReg

Close intFich
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel
www.excelesp.com


"fredy" escribió en el mensaje news:
> ok... pero puedo manipularlo desde excel? es decir con una macro puedo
> decirle desde excel que cambie (;) por (,) y que luego se cierre el archivo
> txt?
> gracias
>
> "" escribió:
>
> >
> > La respuesta es NO!
> >
> > para modificar, el contenido de calquier TXT, debes de abrirlo.
> >
> > otra cosa es que luego lo mantengas oculto, mientras manipulas su
> > contenido
> >
> >

"fredy" escribió en el mensaje news:

si gracias Fernando funciona perfecto
una pregunta mas ... intente hacerlo con un archivo csv pero no funcion que
cambio deberia hacerle para que funcione con archivos csv?
muchas gracias!!

Bueno, en principio el código debería funcionar sin problemas con un fichero CSV puesto que este tipo de ficheros es de texto. ¿Has cambiado en el código la extensión .txt por .csv?.
Un saludo.


Fernando Arroyo
MS MVP - Excel