December 04, 2020, 11:28:11 AM

Author Topic: [bb] Hex 2 String by Zenith(Matt Griffith) [ 1+ years ago ]  (Read 448 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
Title : Hex 2 String
Author : Zenith(Matt Griffith)
Posted : 1+ years ago

Description : Convert a C style hex to a string:
ie: 0x000F = 15

can be any size, as long as 0x is at the start.


Code :
Code: BlitzBasic
  1. ; Example:
  2.  
  3. stuff$="0xF0000F"
  4. Print "hex: " +stuff
  5.  
  6. Print Hex2Str$(stuff)
  7.  
  8. WaitKey
  9.  
  10. ; Here's the function
  11.  
  12. Function Hex2Str$(var$)
  13.         local hexa$[5]
  14.         hexa[0]="A"
  15.         hexa[1]="B"
  16.         hexa[2]="C"
  17.         hexa[3]="D"
  18.         hexa[4]="E"
  19.         hexa[5]="F"
  20.  
  21.         lenhex=Len(var$)
  22.         For x=0 To lenhex-3
  23.        
  24.                 pnt$=Mid(var,lenhex-x,1)
  25.                
  26.                 If pnt=>0 And pnt=<9
  27.                         v=pnt
  28.                 Else
  29.                
  30.                         For i=0 To 5
  31.                                 If pnt=hexa[i]
  32.                                         v=i+10
  33.                                         Exit
  34.                                 EndIf
  35.                         Next
  36.                
  37.                 EndIf
  38.                
  39.                 v=v*(16^x)             
  40.                 n=n+v
  41.        
  42.         Next
  43.        
  44.         Return n
  45.  
  46. End Function


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal