Get GUID string
Generates Global Unique ID - when you want to create an identifier which will never repeat all over the word , you will find this usefull.
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
Public Function GetNewGUIDStr() As String Dim pGuid As GUID Dim lResult As Long Dim s As String 'this is a buffer string to be passed in API function '100 chars will be enough s = String(100, " ") 'creating new ID and obtaining result in pointer to GUID lResult = CoCreateGuid(pGuid) 'converting GUID structure to string lResult = StringFromGUID2(pGuid, s, 100) 'removing all trailing blanks s = Trim(s) 'converting a sting from unicode GetNewGUIDStr = StrConv(s, vbFromUnicode) End Function
Původní komentáře (3)
Obnoveno z Wayback Machine