String in Hexadezimal

[Bisonte]

Oder man macht es sich opalike und installiert die droopy userlib

Hex2Dec(HexNumber.s)

Description :

Converts a Hex value ( as String ) to a Decimal value ( as Long )

Example :

Hex2Dec("FF")

[jear]

auch "opalike":

Code: Alles auswählen

;- Umwandlung HEX-String zu Quad (dezimal)
Procedure.q Hex2Dec(HexValue.s) 
  Protected x.s = LCase(HexValue)
  Protected l.l = Len(x)
  Protected i.l, n.l, result.q
  For i = 1 To l
    result * 16
    n = FindString("0123456789abcdef", Mid(x, i, 1), 1) -1            
    result + n    
  Next i 
  ProcedureReturn result 
EndProcedure