Page 1 of 1

:: Funciones ::

PostPosted: Thu Mar 15, 2012 1:17 am
by pablovidal
Hola Antonio,

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

Code: Select all  Expand view

 CharMirr()
 HexToStr()
 StrToHex()
 

Re: :: Funciones ::

PostPosted: Fri Mar 16, 2012 1:17 am
by pablovidal
????

Re: :: Funciones ::

PostPosted: Fri Mar 16, 2012 5:24 am
by mag071
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

Re: :: Funciones ::

PostPosted: Fri Mar 16, 2012 7:03 am
by Antonio Linares
Pablo,

Que hace la función CharMirr() ?

:: Funciones :: ( Solucionado )

PostPosted: Fri Mar 16, 2012 12:10 pm
by pablovidal
Hola Antonio,

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

Code: Select all  Expand view
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 :)