December 04, 2020, 11:28:11 AM

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

#### BlitzBot

• Jr. Member
•  • Posts: 1 ##### [bb] Hex 2 String by Zenith(Matt Griffith) [ 1+ years ago ]
« on: June 29, 2017, 12:28:41 AM »
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\$
14.         hexa="A"
15.         hexa="B"
16.         hexa="C"
17.         hexa="D"
18.         hexa="E"
19.         hexa="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