OpenEdge ABL 中的短唯一 ID

什么是 Sqids？

Sqids 是一个开源库，可以从数字生成短的唯一标识符。这些标识符是 URL 安全的，可以编码多个数字，并且不包含常见的粗话。阅读更多 .

这就是它们的样子：

https://example.com/Lqj8a0

OpenEdge ABL

快速编码和解码示例：

DEFINE VARIABLE sqids   AS Sqids     NO-UNDO.
DEFINE VARIABLE numbers AS INTEGER   EXTENT 3 NO-UNDO.
DEFINE VARIABLE id      AS CHARACTER NO-UNDO.

sqids = NEW Sqids().

ASSIGN
	numbers[1] = 1
	numbers[2] = 2
	numbers[3] = 3.

id = sqids:Encode(numbers). // '86Rf07'.
numbers = sqids:Decode(id). // [1, 2, 3]

如果 ID 太短，您可以将它们填充到一定长度：

DEFINE VARIABLE sqids   AS Sqids     NO-UNDO.
DEFINE VARIABLE numbers AS INTEGER   EXTENT 3 NO-UNDO.
DEFINE VARIABLE id      AS CHARACTER NO-UNDO.

sqids = NEW Sqids('', 10).

ASSIGN
	numbers[1] = 1
	numbers[2] = 2
	numbers[3] = 3.

id = sqids:Encode(numbers). // '86Rf07xd4z'.
numbers = sqids:Decode(id). // [1, 2, 3]

通过洗牌字母表创建唯一的 ID：

DEFINE VARIABLE sqids   AS Sqids     NO-UNDO.
DEFINE VARIABLE numbers AS INTEGER   EXTENT 3 NO-UNDO.
DEFINE VARIABLE id      AS CHARACTER NO-UNDO.

sqids = NEW Sqids('k3G7QAe51FCsPW92uEOyq4Bg6Sp8YzVTmnU0liwDdHXLajZrfxNhobJIRcMvKt').

ASSIGN
	numbers[1] = 1
	numbers[2] = 2
	numbers[3] = 3.

id = sqids:Encode(numbers). // 'XRKUdQ'.
numbers = sqids:Decode(id). // [1, 2, 3]