Convert Char To Binary

[JRudisill]

Trying to Convert '3D981CC' to Binary
0011 1101 1001 1000 0001 1100 1100

Numbers convert correctly but the letters are not right. Not sure how to convert those into binary. Any help would be greatly appreciated.



cChar = SubStr(cString,I,1)
liA = IIf(IsAlpha(cChar),Asc(cChar),Int(Val(cChar)))
For liI = 7 To 0 Step -1
lcC = lcC + Iif(Bittest(liA, liI), '1', '0')
Endfor

 

[DSummZZZ]

See if this FAQ helps:

Conversion Functions: Dec,Hex,Binary,Oct Back and Forth
faq184-4461

-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[mmerlinn]

Try changing

"liA = IIf(IsAlpha(cChar),Asc(cChar),Int(Val(cChar)))"

to

"liA = IIf(IsAlpha(cChar),Asc(cChar)-55,Int(Val(cChar)))"}


mmerlinn

"Political correctness is the BADGE of a COWARD!"

 

[mmerlinn]

Or you could change

"liA = IIf(IsAlpha(cChar),Asc(cChar),Int(Val(cChar)))"

to

"liA = ASC(cChar)-IIF(ASC(cChar),55,48)"

This fails for lower class alpha.




5


mmerlinn

"Political correctness is the BADGE of a COWARD!"

 

[mmerlinn]

ERROR CORRECTION


Or you could change

"liA = IIf(IsAlpha(cChar),Asc(cChar),Int(Val(cChar)))"

to

"liA = ASC(cChar)-IIF(ASC(cChar)>57,55,48)"

This fails for lower class alpha.

a


mmerlinn

"Political correctness is the BADGE of a COWARD!"