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

[Enrrique Vertiz]

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

[Antonio Linares]

Enrique,

// Funcion para busqueda y reemplazo : FwSar()

Code: Select all  Expand view  RUN

function FwSar( cFileName, cTxtAnt, cTxtNew )

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

return nil


[Enrrique Vertiz]

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