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

Board index FiveWin para Harbour/xHarbour Search and Replace sobre cualquier archivo (.PRG, .TXT, Etc)

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Search and Replace sobre cualquier archivo (.PRG, .TXT, Etc)
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

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Search and Replace sobre cualquier archivo (.PRG, .TXT, Etc)
Posted: Sun Sep 23, 2007 07:51 AM

Enrique,

// Funcion para busqueda y reemplazo : FwSar()

Code: Select all Collapse

function FwSar( cFileName, cTxtAnt, cTxtNew )

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

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Enrrique Vertiz

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Search and Replace sobre cualquier archivo (.PRG, .TXT, Etc)
Posted: Mon Sep 24, 2007 05:57 AM

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

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

FiveTech Support Forums

Continue the discussion