QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on June 29, 2020, 12:44:28 pm

Title: GUIDs in QB64
Post by: SpriggsySpriggs on June 29, 2020, 12:44:28 pm

Hello, all. This may or may not be wanted/needed by anyone but here is a small function that will allow you to have a super unique string (GUID) for your programs. It's been touted as "you might have a duplicate in 30 trillion". It generates a new GUID each time you call the function. Use it as you see fit.

Code: QB64: [Select]

1. FUNCTION NewGuid$
2.     DIM GUID AS STRING
3.     SHELL _HIDE "PowerShell New-Guid | Out-File -FilePath gU1d -Encoding ASCII"
4.     G = FREEFILE
5.     OPEN "gU1d" FOR BINARY AS #G
6.     IF LOF(G) <> 0 THEN
7.         DO
8.             IF NOT EOF(G) THEN
9.                 LINE INPUT #1, empty$
10.             END IF
11.         LOOP UNTIL INSTR(empty$, "----")
12.         LINE INPUT #1, GUID
13.  
14.         CLOSE #1
15.         KILL "gU1d"
16.         NewGuid = GUID
17.     ELSE
18.         KILL "gU1d"
19.         NewGuid = ""
20.     END IF
21. END FUNCTION

Title: Re: GUIDs in QB64
Post by: SpriggsySpriggs on June 29, 2020, 12:57:58 pm

I realize this is slow so I'm going to also make a version using a C++ library. Hang tight!

Title: Re: GUIDs in QB64
Post by: SpriggsySpriggs on June 29, 2020, 02:25:46 pm

Bwahaha! I told you I would do it! Here you go, dudes. This will create you a GUID (or UUID, same difference) every time you call it and it will be sequential for the program's execution. Enjoy!
P.S.,
Works in both 32 and 64 bit!

Code: QB64: [Select]

1. TYPE GUID
2.     Data1 AS _UNSIGNED LONG
3.     Data2 AS _UNSIGNED INTEGER
4.     Data3 AS _UNSIGNED INTEGER
5.     Data4 AS _UNSIGNED _BYTE
6.     Data5 AS _UNSIGNED _BYTE
7.     Data6 AS _UNSIGNED _BYTE
8.     Data7 AS _UNSIGNED _BYTE
9.     Data8 AS _UNSIGNED _BYTE
10.     Data9 AS _UNSIGNED _BYTE
11.     Data10 AS _UNSIGNED _BYTE
12.     Data11 AS _UNSIGNED _BYTE
13. END TYPE
14.  
15. DECLARE DYNAMIC LIBRARY "rpcrt4"
16.     FUNCTION UuidCreateSequential%& (GUID AS GUID)
17.     FUNCTION UuidCreate%& (GUID AS GUID)
18. END DECLARE
19.  
20.  
21. FOR x = 1 TO 10
22.     PRINT SequentialGUID
23. NEXT
24.  
25. FOR x = 1 TO 10
26.     PRINT RandomGUID
27. NEXT
28.  
29. FUNCTION SequentialGUID$
30.     DIM GUID AS GUID
31.     DO
32.         a%& = UuidCreateSequential(GUID)
33.         IF a%& = 0 THEN
34.             UUID$ = HEX$(GUID.Data1) + "-" + HEX$(GUID.Data2) + "-" + HEX$(GUID.Data3) + "-" + HEX$(GUID.Data4) + HEX$(GUID.Data5) + "-" + HEX$(GUID.Data6) + HEX$(GUID.Data7) + HEX$(GUID.Data8) + HEX$(GUID.Data9) + HEX$(GUID.Data10) + HEX$(GUID.Data11)
35.             SequentialGUID = UUID$
36.         ELSE
37.             SequentialGUID = ""
38.         END IF
39.     LOOP UNTIL LEN(UUID$) = 36
40. END FUNCTION
41.  
42. FUNCTION RandomGUID$
43.     DIM GUID AS GUID
44.     DO
45.         a%& = UuidCreate(GUID)
46.         IF a%& = 0 THEN
47.             UUID$ = HEX$(GUID.Data1) + "-" + HEX$(GUID.Data2) + "-" + HEX$(GUID.Data3) + "-" + HEX$(GUID.Data4) + HEX$(GUID.Data5) + "-" + HEX$(GUID.Data6) + HEX$(GUID.Data7) + HEX$(GUID.Data8) + HEX$(GUID.Data9) + HEX$(GUID.Data10) + HEX$(GUID.Data11)
48.             RandomGUID = UUID$
49.         ELSE
50.             RandomGUID = ""
51.         END IF
52.     LOOP UNTIL LEN(UUID$) = 36
53. END FUNCTION

Proof that they are valid GUIDs:
 

Text Only | Text with Attachments