将文本转换成整数校验码的计算方式

fengheng

<火山程序 类型 = "通常" 版本 = 1 />

方法 校验_取TextId <类型 = 整数>
参数 内容 <类型 = 文本型>
参数 整数长度 <类型 = 整数 @默认值 = 10>
{
    变量 返回内容 <类型 = 文本型>
    返回内容 = 到文本 (文本_取长度 (内容))
    计次循环 (文本_取长度 (内容))
    {
        变量 循环内容 <类型 = 整数>
        循环内容 = (整数)取字符 (内容, 取循环索引 ())
        如果 (文本_取长度 (返回内容) == 整数长度)
        {
            返回内容 = 到文本 (文本到整数 (返回内容) + 循环内容)
        }
        否则
        {
            如果 (文本_取长度 (返回内容 + 到文本 (循环内容)) > 整数长度)
            {
                返回内容 = 到文本 (文本到整数 (返回内容) + 循环内容)
            }
            否则
            {
                加入文本 (返回内容, 到文本 (循环内容))
            }
        }
        返回内容 = 到文本 (文本到整数 (返回内容) + 取循环索引 ())
    }
    返回 (文本到整数 (返回内容))
}

揰掵佲

感谢分享，很给力！~