FiveTech Software tech support forums

Paisano
no entiendo porque quieres reemplazar una comilla simple por otra comilla simple ?

cCad := StrTran( cCad, "\", "" ) //quito \ y lo reemplazo por espacio en blanco

saludos

Marco Augusto wrote:Quiza con la funcion AT

cCAD="abcdfe"+crlf+"12345"

cCAD2=SUBSTRING(cCAD,1,AT(CHR(10),cCAD)-1)

Can you provide a working sample?

Quiza con la funcion AT

cCAD="abcdfe"+crlf+"12345"

cCAD2=SUBSTRING(cCAD,1,AT(CHR(10),cCAD)-1)

... ¿tienes algo para enviarme? Regards, saludos. Karinha, try this sample: #Include "Fivewin.ch" Function Main() LOCAL oDlg, oGet LOCAL cCad := "Testing " // pad("Testing Gets",40) LOCAL nNum := 0 LOCAL dDat := Date() inicio := 0 Set Century on Set Date To British ...

... The service integration manual does not say to define the port. Code below: #Include "Fivewin.ch" Function Main() LOCAL oDlg, oGet LOCAL cCad := "Testing " // pad("Testing Gets",40) LOCAL nNum := 0 LOCAL dDat := Date() inicio := 0 Set Century on Set Date To British ...

... testget in samples folder to try tipclient with https. Thanks in advance! #Include "Fivewin.ch" Function Main() LOCAL oDlg, oGet LOCAL cCad := "Testing " // pad("Testing Gets",40) LOCAL nNum := 0 LOCAL dDat := Date() Set Century on Set Date To British Set Epoch to ...

... only images\2.png instead of ..\images\2.png just an Idea I tried this function Function UrlImage(curl) Local aTmp local nLevel := 1 local x local cCad :="" If !empty(cUrl) aTmp := Hb_ATokens( curl, "\" ) For x = Len( aTmp ) - nLevel + 1 To Len( aTmp ) cCad += AllTrim( aTmp[ ...

... datos en una dbf METHOD New( oWnd ) CONSTRUCTOR METHOD Conecta( nCom ) METHOD Desconecta( ) METHOD LeeNMEA() // lee datos del gps METHOD GPGGA( cCad ) // procesa sentencia GPGGA METHOD GPRMC( cCad ) // procesa sentencia GPRMC METHOD End() ENDCLASS METHOD New( oWnd ) CLASS TGps ::aNMEA := Array(3) ...

... datos en una dbf METHOD New( oWnd ) CONSTRUCTOR METHOD Conecta( nCom ) METHOD Desconecta( ) METHOD LeeNMEA() // lee datos del gps METHOD GPGGA( cCad ) // procesa sentencia GPGGA METHOD GPRMC( cCad ) // procesa sentencia GPRMC METHOD End() ENDCLASS METHOD New( oWnd ) CLASS TGps ::aNMEA := Array(3) ...

... NEW VERSION 06/12/2016 -------------------------- - Implemented style Hotspot: only with inside string or comment line Local cCad := "This a string |#www.google.es#| continuation" Local cCad := "Hello" // This a comment |#www.google.es#| others questions ...

... NEW VERSION 06/12/2016 -------------------------- - Implemented style Hotspot: only with inside string or comment line Local cCad := "This a string |#www.google.es#| continuation" Local cCad := "Hello" // This a comment |#www.google.es#| others questions ...

... SIZE nWdFont, nHtFont BOLD OF oPrn else    DEFINE FONT oFont  NAME "Arial" SIZE nWdFont, nHtFont OF oPrn endif Otra: La function Lower(cCad) no convierte la "Ñ" a "ñ". Alguna manera de solucionarlo? Gracios Puedes intentarlo asi     DEFINE FONT oFont  NAME "Arial" ...

... SIZE nWdFont, nHtFont BOLD OF oPrn else    DEFINE FONT oFont  NAME "Arial" SIZE nWdFont, nHtFont OF oPrn endif Otra: La function Lower(cCad) no convierte la "Ñ" a "ñ". Alguna manera de solucionarlo? Gracios

Resuelto...

//----------------------------------
Function QuitarEspTab( cCadena )
local cCad
cCad := strtran( cCadena, space(1), Space(0) )
cCad := strtran( cCad, Chr(9), Space(0) )
return cCad

Aunque ya te ha contestado Joao, prueba con:

@ 1, 6 Get oGet var cCad multiline of oDlg ;
COLORS CLR_HRED, CLR_WHITE //READONLY
oget:bchange := {|nkey| cCad := strtran( cCad, chr(nkey), upper(chr(nkey)) ), oCad:Refresh() }

Saludos