ULID生成代码，请易语言大神帮忙写下

supi110

ULID生成代码，请大神帮忙写下，需要易语言的

afu45

程序_生成GUID（）

supi110

afu45 发表于 2025-1-8 11:51
程序_生成GUID（）

不是UUID，是ULID

afu45

调试输出 (取文本左边 (编码_BASE64编码 (字节集_十六进制到字节集 (进制_十到十六 (到长整数 (时间_取现行时间戳 ()), 真)) ＋ 到字节集 (程序_生成GUID ())), 26))

supi110

afu45 发表于 2025-1-8 12:10
调试输出 (取文本左边 (编码_BASE64编码 (字节集_十六进制到字节集 (进制_十到十六 (到长整数 (时间_取现行 ...

你好，这个前序和网站在线生成的不一样呢，https://tools.cxyroad.com/ulid-generator

b0y

  

计次循环首 (3, )
调试输出 (ULID ())
延时 (1000)
计次循环尾 ()
' * “01JH2CAD8N03FHFRSQ062V1NMC”
' * “01JH2CAE8801EBGMF002B25XFD”
' * “01JH2CAF7Q02Y5CKFX01MHDK27”
' 被调试易程序运行完毕

子程序名	返回值类型	公开	备 注
ULID	文本型

变量名	类 型	静态	数组	备 注
time	C_DateTime
ts	长整数型
rd	文本型

ts ＝ time.UnixMs ()  ' 当前毫秒时间戳 自行替换精益模块
' 编码时间戳+编码2个随机数  取随机长整数  自行替换精益模块
返回 (_ec (ts, 10) ＋ _ec (RndLong (1111111111, 9999999999), 8) ＋ _ec (RndLong (1111111111, 9999999999), 8))

子程序名	返回值类型	公开	备 注
_ec	文本型
参数名	类 型	参考	可空	数组	备 注
value	长整数型
len	整数型

变量名	类 型	静态	数组	备 注
result	字节集
a	整数型
bin	字节集

result ＝ 取空白字节集 (len)
bin ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70, 71, 72, 74, 75, 77, 78, 80, 81, 82, 83, 84, 86, 87, 88, 89, 90 }
计次循环首 (len, a)
result [len － a ＋ 1] ＝ bin [And64 (value, 31) ＋ 1] ' 长整数位于 自行替换精益模块
value ＝ Shr64 (value, 5) ' 长整数右移 自行替换精益模块
计次循环尾 ()
返回 (到文本 (result))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .计次循环首 (3, )<br />     调试输出 (ULID ())<br />     延时 (1000)<br /> .计次循环尾 ()<br /> ' * “01JH2CAD8N03FHFRSQ062V1NMC”<br /> ' * “01JH2CAE8801EBGMF002B25XFD”<br /> ' * “01JH2CAF7Q02Y5CKFX01MHDK27”<br /> ' 被调试易程序运行完毕<br /> <br /> .子程序 ULID, 文本型<br /> .局部变量 time, C_DateTime<br /> .局部变量 ts, 长整数型<br /> .局部变量 rd, 文本型<br /> <br /> ts ＝ time.UnixMs ()  ' 当前毫秒时间戳 自行替换精益模块<br /> ' 编码时间戳+编码2个随机数  取随机长整数  自行替换精益模块<br /> 返回 (_ec (ts, 10) ＋ _ec (RndLong (1111111111, 9999999999), 8) ＋ _ec (RndLong (1111111111, 9999999999), 8))<br /> <br /> .子程序 _ec, 文本型<br /> .参数 value, 长整数型<br /> .参数 len, 整数型<br /> .局部变量 result, 字节集<br /> .局部变量 a, 整数型<br /> .局部变量 bin, 字节集<br /> <br /> result ＝ 取空白字节集 (len)<br /> bin ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70, 71, 72, 74, 75, 77, 78, 80, 81, 82, 83, 84, 86, 87, 88, 89, 90 }<br /> .计次循环首 (len, a)<br />     result [len － a ＋ 1] ＝ bin [And64 (value, 31) ＋ 1]'长整数位于 自行替换精益模块<br />     value ＝ Shr64 (value, 5)'长整数右移 自行替换精益模块<br /> .计次循环尾 ()<br /> 返回 (到文本 (result))