将文本转换成整数校验码的计算方式
本帖最后由 fengheng 于 2025-6-6 16:12 编辑<火山程序 类型 = "通常" 版本 = 1 />
方法 校验_取TextId <类型 = 整数>
参数 内容 <类型 = 文本型>
参数 整数长度 <类型 = 整数 @默认值 = 10>
{
变量 返回内容 <类型 = 文本型>
返回内容 = 到文本 (文本_取长度 (内容))
计次循环 (文本_取长度 (内容))
{
变量 循环内容 <类型 = 整数>
循环内容 = (整数)取字符 (内容, 取循环索引 ())
如果 (文本_取长度 (返回内容) == 整数长度)
{
返回内容 = 到文本 (文本到整数 (返回内容) + 循环内容)
}
否则
{
如果 (文本_取长度 (返回内容 + 到文本 (循环内容)) > 整数长度)
{
返回内容 = 到文本 (文本到整数 (返回内容) + 循环内容)
}
否则
{
加入文本 (返回内容, 到文本 (循环内容))
}
}
返回内容 = 到文本 (文本到整数 (返回内容) + 取循环索引 ())
}
返回 (文本到整数 (返回内容))
}
感谢分享，很给力！~
页:
[1]