FiveTech Software tech support forums

// C:\FWH..\SAMPLES\PETEWG.PRG#include "FiveWin.ch"/*gsearch.prg - original fonte: https://hmgforum.com/viewtopic.php?t=7295&start=10compile : hbmk2 -w3 -es2 gsearch*/FUNCTION Main( cSearchFor )   LOCAL nResult   nResult := GoogleSearch( hb_defaultValue...

Carles wrote:V,

Canvia de Wisky...

C.

El mejor whisky es el que te tomas con buena compañía, a ver si coincidimos.

Como apunte por si alguien llega hasta aquí:

Code: Select all  Expand view

strtran( ccadena, "&", "&&" ) // funciona ✅
 

Code: Select all  Expand view

hb_strreplace( ccadena,  { "&" => "&&" } ) // funciona ✅
 

Salud!

V,

Canvia de Wisky...

C.

Muchas gracias por la respuesta. Me montaré un pequeño replace & por &&

Salud!

Listo: // C:\FWH..\SAMPLES\VICTOR2.PRG#include 'fivewin.ch'#include "WColors.ch"FUNCTION Main()   LOCAL oDlg, cProduct_Name, cProdVentaFin, oFnt, oFont, oBot01   cProduct_Name := 'Whisky J&B'  // PRODUCT.DBF   cProdVentaFin := ELIMINAR_ACENTOS...

Buén dia. Ah, SI! No que yo lo sepa. Use una function para eliminar el acento. Ejemplo: FUNCTION ELIMINAR_ACENTOS( cStr )   LOCAL cStrNew := "", nX   cAcentos := {"ø","ƒ","Æ","Ç"," ","µ","…&qu...

Gracias por responder. El problema es cuando muestro valores de una base de datos, por ejemplo, un fichero de artículos cuyo nombre contiene & ampersand: #include 'fivewin.ch'Function Main()    DEFINE DIALOG oDlg TITLE "Test"    cProduct_Name := 'Whisky J&B'     @ 1,1 ...

Hola Victor. Mira se ayuda: #include 'fivewin.ch'#include "WColors.ch"STATIC lWhen := .F.Function Main()    LOCAL oDlg, oFnt, oFont, oBot01    DEFINE FONT oFnt  NAME "Ms Sans Serif"  SIZE 00, -12 BOLD    DEFINE FONT oFont NAME "...

the sample: #include 'fivewin.ch'Function Main()    DEFINE DIALOG oDlg TITLE "Test"     @ 1,1 SAY "Hello & Bye" OF oDlg    @ 2,1 SAY "Hello && Bye" OF oDlg    ACTIVATE DIALOG oDlg CENTEREDReturn Nil  the result: https://i.ibb.co/f4wvkST/2...

Holá, small sample? Pequeño ejemplo? Gracias. Regards, saludos.

Hola. Tengo una duda, cuando el string que se incluye en un Say contiene un ampersand &, no lo muestra correctamente ya que el say procesa el & como un shortcut del teclado, para mostrar el & hay que incluirlo 2 veces: Esto no se muestra bien: "hola ...

An idea

Code: Select all  Expand view

cThefuncion := "strinFunc()"
cVar := "{|| "+cThefuncion+" }"
EVAL( &cVar )
 

I hope it helps you

Hi Marc,
It is possible that I want to obtain the impossible.
I want to use the existing name of some records in one file (by doing a do while procedure) to use/call them as existing fieldname in an other file....
Kind regards
José

Jose, I'm still not sure what you try to do If you use aliases, maybe it is better ? I don't think that you wanne go into database object. Here a code that look like yours. Please feel free to post if I understood you wrong.          netopen("artikel","artcode","arttemp&...