Visual FoxPro

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.

Visual FoxPro

LOCAL loSeedDt
LOCAL lnUtc
LOCAL lcUlid
LOCAL loSbUlid
LOCAL i

loSeedDt = CreateObject('Chilkat.CkDateTime')

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

* Generate the 1st ULID in the series.
* (i.e. the current UTC UNIX-time)
lnUtc = 1
lcUlid = loSeedDt.UlidGenerate(lnUtc)
? lcUlid

* Store the ULID in a Chilkat StringBuilder to generate the series.
loSbUlid = CreateObject('Chilkat.StringBuilder')
loSbUlid.Append(lcUlid)

i = 0
DO WHILE i < 50
    loSeedDt.UlidIncrement(loSbUlid)
    ? loSbUlid.GetAsString()
    i = i + 1
ENDDO

* 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

RELEASE loSeedDt
RELEASE loSbUlid