pcs-kd
New Member
Hi Peggers!
Thus i found no example here for hex-conversion i wrote a function that could be useful for you.
FUNCTION Hex2Char RETURNS CHAR (INPUT cHEX AS CHAR).
DEF VAR iCnt AS INTE NO-UNDO.
DEF VAR cOut AS CHAR NO-UNDO.
DEF VAR cRef AS CHAR NO-UNDO INIT "0123456789ABCDEF".
DO iCnt = 1 TO LENGTH(cHex) BY 2:
cOut = cOut + CHR(((INDEX(cREF, SUBSTRING(cHex,iCnt,1)) - 1) * 16
+ INDEX(cREF,SUBSTRING(cHex,iCnt + 1,1)) - 1)) NO-ERROR.
END.
RETURN cOut.
END FUNCTION.
MESSAGE Hex2Char("225465737422OD0A0D0A225465737422") VIEW-AS ALERT-BOX.
greetings,
Daniel
Thus i found no example here for hex-conversion i wrote a function that could be useful for you.
FUNCTION Hex2Char RETURNS CHAR (INPUT cHEX AS CHAR).
DEF VAR iCnt AS INTE NO-UNDO.
DEF VAR cOut AS CHAR NO-UNDO.
DEF VAR cRef AS CHAR NO-UNDO INIT "0123456789ABCDEF".
DO iCnt = 1 TO LENGTH(cHex) BY 2:
cOut = cOut + CHR(((INDEX(cREF, SUBSTRING(cHex,iCnt,1)) - 1) * 16
+ INDEX(cREF,SUBSTRING(cHex,iCnt + 1,1)) - 1)) NO-ERROR.
END.
RETURN cOut.
END FUNCTION.
MESSAGE Hex2Char("225465737422OD0A0D0A225465737422") VIEW-AS ALERT-BOX.
greetings,
Daniel