Clipper/FiveWin - Remplazar varios caracteres

str_replace($variable , Array("'","\\") , Array("\'","\\\\"));

clear

buscar = {"'","\",Chr(0)}

poner  = {"\'","\\",""}

texto = "Texto de 'Ejemplo' \"

resultado = STRTRAN(texto,buscar,poner)

@ 2,2 say resultado

resultado= "Texto de 'Ejemplo' \"

buscar = "'"

poner  = "\'"

resultado = STRTRAN(resultado ,buscar,poner)

*

buscar = "\"

poner  = "\\"

resultado = STRTRAN(resultado ,buscar,poner)

*

buscar = Chr(0)

poner  = ""

resultado = STRTRAN(resultado ,buscar,poner)

*********************************************************************

//Otra forma. Manteniendo los arrays de tu codigo.

aBuscar = {"'","\",Chr(0)}

aPoner  = {"\'","\\",""}

resultado= "Texto de 'Ejemplo' \"

FOR nI := 1 TO Len( aBuscar )

   buscar = aBuscar[nI]

   poner  = aPoner[nI]

   resultado = STRTRAN(resultado ,buscar,poner)

NEXT