FiveTech Software tech support forums

Posted: **Sun Sep 23, 2007 12:01 am**

Estimados co-listeros, no tengo idea si existe algo asi, y si no seria grandioso que exista, una funcion que nos permita pasar 3 parametros, el Archivo, lo que hay que buscar y lo que hay que reemplazar. Ejemplo :

// Funcion para busqueda y reemplazo : FwSar()

cFile:="c:\temp\archivo.txt"
cTxtAnt:="campo"
cTxtNew:="columna"
FwSar(cFile,cTxtAnt,cTxtNew)

Hay algo parecido ?, sino, como se podria implementar ?
Muchas gracias

Posted: **Sun Sep 23, 2007 7:51 am**

Enrique,

// Funcion para busqueda y reemplazo : FwSar()

Code: Select all

function FwSar( cFileName, cTxtAnt, cTxtNew )

   MemoWrit( cFileName, StrTran( MemoRead( cFileName ), cTxtAnt, cTxtNew ) )

return nil

Posted: **Mon Sep 24, 2007 5:57 am**

Sencillamente "MAGNIFICO", una vez mas GRACIAS !!!

FiveTech Software tech support forums

Search and Replace sobre cualquier archivo (.PRG, .TXT, Etc)

Search and Replace sobre cualquier archivo (.PRG, .TXT, Etc)