(PowerBuilder) Generate Monotonic ULIDs

See more ULID/UUID Examples

Generate a sequence of monotonic ULIDs all using the same seed time. This code sample generates a series of ULIDs with continuously increasing values.

Important: Chilkat's ULID functionality was introduced in v9.5.0.94.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_SeedDt
integer li_Utc
string ls_Ulid
oleobject loo_SbUlid
integer i

loo_SeedDt = create oleobject
// Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
li_rc = loo_SeedDt.ConnectToNewObject("Chilkat.CkDateTime")
if li_rc < 0 then
    destroy loo_SeedDt
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// You can set the seed time to any desired value.
// In this example, the seed time is set to the current system date/time.
loo_SeedDt.SetFromCurrentSystemTime()

// Generate the 1st ULID in the series.
// (i.e. the current UTC UNIX-time)
li_Utc = 1
ls_Ulid = loo_SeedDt.UlidGenerate(li_Utc)
Write-Debug ls_Ulid

// Store the ULID in a Chilkat StringBuilder to generate the series.
loo_SbUlid = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbUlid.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbUlid.Append(ls_Ulid)

i = 0
do while i < 50
    loo_SeedDt.UlidIncrement(loo_SbUlid)
    Write-Debug loo_SbUlid.GetAsString()
    i = i + 1
loop

// Sample output:

// 01GRGH30H8DMQ4F9A0XCTZHPGM
// 01GRGH30H8DMQ4F9A0XCTZHPGN
// 01GRGH30H8DMQ4F9A0XCTZHPGP
// 01GRGH30H8DMQ4F9A0XCTZHPGQ
// 01GRGH30H8DMQ4F9A0XCTZHPGR
// 01GRGH30H8DMQ4F9A0XCTZHPGS
// 01GRGH30H8DMQ4F9A0XCTZHPGT
// 01GRGH30H8DMQ4F9A0XCTZHPGV
// 01GRGH30H8DMQ4F9A0XCTZHPGW
// 01GRGH30H8DMQ4F9A0XCTZHPGX
// 01GRGH30H8DMQ4F9A0XCTZHPGY
// 01GRGH30H8DMQ4F9A0XCTZHPGZ
// 01GRGH30H8DMQ4F9A0XCTZHPH0
// 01GRGH30H8DMQ4F9A0XCTZHPH1
// 01GRGH30H8DMQ4F9A0XCTZHPH2
// 01GRGH30H8DMQ4F9A0XCTZHPH3
// 01GRGH30H8DMQ4F9A0XCTZHPH4
// 01GRGH30H8DMQ4F9A0XCTZHPH5
// 01GRGH30H8DMQ4F9A0XCTZHPH6
// 01GRGH30H8DMQ4F9A0XCTZHPH7
// 01GRGH30H8DMQ4F9A0XCTZHPH8
// 01GRGH30H8DMQ4F9A0XCTZHPH9
// 01GRGH30H8DMQ4F9A0XCTZHPHA
// 01GRGH30H8DMQ4F9A0XCTZHPHB
// 01GRGH30H8DMQ4F9A0XCTZHPHC
// 01GRGH30H8DMQ4F9A0XCTZHPHD
// 01GRGH30H8DMQ4F9A0XCTZHPHE
// 01GRGH30H8DMQ4F9A0XCTZHPHF
// 01GRGH30H8DMQ4F9A0XCTZHPHG
// 01GRGH30H8DMQ4F9A0XCTZHPHH
// 01GRGH30H8DMQ4F9A0XCTZHPHJ
// 01GRGH30H8DMQ4F9A0XCTZHPHK
// 01GRGH30H8DMQ4F9A0XCTZHPHM
// 01GRGH30H8DMQ4F9A0XCTZHPHN
// 01GRGH30H8DMQ4F9A0XCTZHPHP
// 01GRGH30H8DMQ4F9A0XCTZHPHQ
// 01GRGH30H8DMQ4F9A0XCTZHPHR
// 01GRGH30H8DMQ4F9A0XCTZHPHS
// 01GRGH30H8DMQ4F9A0XCTZHPHT
// 01GRGH30H8DMQ4F9A0XCTZHPHV
// 01GRGH30H8DMQ4F9A0XCTZHPHW
// 01GRGH30H8DMQ4F9A0XCTZHPHX
// 01GRGH30H8DMQ4F9A0XCTZHPHY
// 01GRGH30H8DMQ4F9A0XCTZHPHZ
// 01GRGH30H8DMQ4F9A0XCTZHPJ0
// 01GRGH30H8DMQ4F9A0XCTZHPJ1
// 01GRGH30H8DMQ4F9A0XCTZHPJ2
// 01GRGH30H8DMQ4F9A0XCTZHPJ3
// 01GRGH30H8DMQ4F9A0XCTZHPJ4
// 01GRGH30H8DMQ4F9A0XCTZHPJ5
// 01GRGH30H8DMQ4F9A0XCTZHPJ6


destroy loo_SeedDt
destroy loo_SbUlid