Aca esta un post de Walter Ojeda
Valiente.
Supongo que te referis a
este.
Para reemplazar un
texto por otro texto en un archivo, lo que hago es ponerle unos "marcadores" al
texto reemplazable y así puedo localizarlo facilmente. Algo
como:
>
> lcArchivoTemp = FileToStr(lcArchivoDestino)
>
lcArchivoTemp = StrTran(lcArchivoTemp, "%NombreSistema%",
TEMP.SIS_NOMBRE)
> lcArchivoTemp = StrTran(lcArchivoTemp, "%FechaInicio%",
DtoC(Date()))
> StrToFile(lcArchivoTemp, lcArchivoDestino)
>
>
En este ejemplo reemplazo el texto: %NombreSistema% por el contenido del campo:
TEMP.SIS_NOMBRE. Reemplazo el texto: %FechaInicio% por la fecha
actual.
>
> Luego, vuelvo a grabar el archivo, ahora con los datos
reemplazados. Funciona perfectamente.
>
> El archivo original
sería:
> Nombre del Sistema: %NombreSistema%
> Fecha de Inicio:
%FechaInicio%
>
> y el archivo modificado sería:
> Nombre del
Sistema: SQL_CONTA
> Fecha de Inicio: 12/06/2010
>
>
Saludos.
>
> Walter.
__________
Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5837
(20110201) __________
ESET NOD32 Antivirus ha comprobado este
mensaje.
http://www.eset.com
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5837 (20110201) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com