CHR function

Hello,
I did a web app that included the code below but now I am trying to do an IOS app and I need to use the code below but I am getting “This item does not exist” for CHR. I can’t use CHR in IOS?

Answer = CHR(Bitwise.ShiftRight(Bitwise.BitAnd(Num,18374686479671623680),56)) +_
CHR(Bitwise.ShiftRight(Bitwise.BitAnd(Num,71776119061217280),48)) +_
CHR(Bitwise.ShiftRight(Bitwise.BitAnd(Num,280375465082880),40)) +_
CHR(Bitwise.ShiftRight(Bitwise.BitAnd(Num,1095216660480),32)) +_
CHR(Bitwise.ShiftRight(Bitwise.BitAnd(Num,4278190080),24)) +_
CHR(Bitwise.ShiftRight(Bitwise.BitAnd(Num,16711680),16)) +_
CHR(Bitwise.ShiftRight(Bitwise.BitAnd(Num,65280),8)) +_
CHR(Bitwise.ShiftRight(Bitwise.BitAnd(Num,255),0))
Return Answer

There’s no global Chr Function at the iOS Framework. You can use this code:

Var enc As TextEncoding = Encodings.UTF8

Answer = enc.Chr(Bitwise.ShiftRight(Bitwise.BitAnd(Num, 18374686479671623680), 56)) +_
    enc.Chr(Bitwise.ShiftRight(Bitwise.BitAnd(Num, 71776119061217280), 48)) +_
    enc.Chr(Bitwise.ShiftRight(Bitwise.BitAnd(Num, 280375465082880), 40)) +_
    enc.Chr(Bitwise.ShiftRight(Bitwise.BitAnd(Num, 1095216660480), 32)) +_
    enc.Chr(Bitwise.ShiftRight(Bitwise.BitAnd(Num, 4278190080), 24)) +_
    enc.Chr(Bitwise.ShiftRight(Bitwise.BitAnd(Num, 16711680), 16)) +_
    enc.Chr(Bitwise.ShiftRight(Bitwise.BitAnd(Num, 65280), 8)) +_
    enc.Chr(Bitwise.ShiftRight(Bitwise.BitAnd(Num, 255), 0))

Return Answer
1 Like

Thank you @Martin_T . That worked.

1 Like

Looks like he’s trying to extract the binary representation of an [u]int64 with a BigEndian layout

Something like that could do it faster…

// number is an int64

Var m As New MemoryBlock(8)
m.LittleEndian = False

m.Int64Value(0) = number

Return m.StringValue(0,8)