topic-23689

Posts: 401

Joined: Thu Oct 06, 2005 10:15 PM

:: Funciones ::
Posted: Thu Mar 15, 2012 01:17 AM

Hola Antonio,

Estas funciones no están disponible en FWPPC,
Se podrian implementar ?

 CharMirr() 
 HexToStr() 
 StrToHex()

Saludos,

Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

pablovidal

Posts: 401

Joined: Thu Oct 06, 2005 10:15 PM

Re: :: Funciones ::
Posted: Fri Mar 16, 2012 01:17 AM

????

Saludos,

Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

mag071

Posts: 140

Joined: Thu Feb 02, 2006 12:09 PM

Re: :: Funciones ::
Posted: Fri Mar 16, 2012 05:24 AM

Saludos Pablo;

Estas funciones en FWH me funcionan.-

Static Function Serial2Hex(cSer)
LOCAL cRet:="",i:=0
cRet:="0x"
For i:=1 to 8
cRet:=cRet+c2HEX(SUBSTR(cSer,i,1))
Next
Return cRet

Static Function Hex2Serial(cHexSer)
LOCAL cRet:="",i:=0
For i:=3 to 18 step 2
cRet:=cRet+chr(HexToDec(SUBSTR(cHexSer,i,2)))
Next
Return cRet

Saludos

Mario Antonio González Osal

Venezuela

m a g 0 7 1 @ g m a i l. c o m

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: :: Funciones ::
Posted: Fri Mar 16, 2012 07:03 AM

Pablo,

Que hace la función CharMirr() ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

pablovidal

Posts: 401

Joined: Thu Oct 06, 2005 10:15 PM

:: Funciones :: ( Solucionado )
Posted: Fri Mar 16, 2012 12:10 PM

Hola Antonio,

La Funcion CharMirr, voltea un string, ya la implemente:

Code (fw): Select all Collapse

Function CharMirror( cString )
Local cNewString := ""
Local nAt := Len( AllTrim( cString ) )

 While nAt > 0
  cNewString += SubStr( cString,nAt,1 )
  nAt--
 Enddo

Return( cNewString )

mag071,
Gracias, Funciona Perfectamente Bien

Saludos,

Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

FiveTech Support Forums

Continue the discussion