十进制转六十二进制

蚊子叮

正在做将人物信息转换为代码的人物储存系统，想出要压缩数值，
因此弄了个十进制转六十二进制……
输入十进制数返回六十二进制字符串。

这个函数只提供下思路而已，如果将62改为其他数值还可以有102进制、200进制……

[jass]
function Ten2Code takes integer ten returns string
    local integer index = 1
    local integer array g
    local string array gs
    local string gs62
    local string Code = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    if ten < 62 then
        return SubStringBJ(Code, ten+1, ten+1)
    endif
   
    loop
        exitwhen ten < 62
        set g[index] = ModuloInteger(ten,62)
        set gs[index] = SubStringBJ(Code, g[index]+1, g[index]+1)
        set ten = ten/62
        set gs[index+1] = I2S(ten)
        set index = index + 1
    endloop
    set gs62 = gs[index+1]
    loop
        exitwhen index == 0
        set gs62 = gs62 + gs[index]
        set index = index - 1
    endloop
    return gs62
    //return
endfunction
[/jass]
以下是演示地图，输入十进制数返回六十二进制字符串。

[ 本帖最后由 蚊子叮 于 2006-4-12 16:02 编辑 ]

蚊子叮

奇怪，怎么不会高亮呢？

amp34

呃？不知道。
原来是可以高亮了的啊。。

xyz990

暂时被取消掉老应该恩

zyl910

这个函数有个小Bug：当输入负数时，会返回空串

zyl910

字符串可以直接连接的，这样效率高一点

以下是我写的任意进制转换（2~36）

string彻底研究V1.17。现在终于可以方便的按字符处理字符串了
http://bbs.ourga.com/viewthread.php?tid=449
[jass]
// 任意进制转换
function ConvRadix takes integer v, integer iRadix returns string
    local string chSample = \"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ\"
    local integer cbSample = StringLength(chSample)
    local string sRet = \"\"
    local boolean bSign = false //是否是负数
    local integer n // 商
    local integer m // 余数
   
    // Check Radix
    if (iRadix < 2) and (iRadix > cbSample) then
        return \"\"
    endif
   
    // Check -2147483648
    if 0x80000000 == v then
        return \"\"
    endif
   
    // 处理符号位
    if v < 0 then
        set v = - v
        set bSign = true
    endif
   
    // Main
    loop
        // 运算
        set n = v / iRadix
        set m = v - n * iRadix
        set v = n
        // 连接字符串
        set sRet = SubString(chSample, m, m + 1) + sRet
        exitwhen 0 == v
    endloop
    if bSign then
        set sRet = \"-\" + sRet
    endif
   
    return sRet
endfunction

// 任意进制转换（定长版）
function ConvRadixN takes integer v, integer iRadix, integer iCount returns string
    local string s = ConvRadix(v, iRadix)
    local integer m
   
    set m = StringLength(s)
    if m <= 0 then
    elseif m < iCount then
        if \"-\" != SubString(s, 0, 1) then
            set s = StrDup(\"0\", iCount - m) + s
        else
            set s = SubString(s, 0, 1) + StrDup(\"0\", iCount - m + 1) + SubString(s, 1, m)
        endif
    endif
   
    return s
endfunction

// 将任意进制字符串转为整数
function DecodeRadix takes string s, integer iRadix returns integer
    local string  chSample = \"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ\"
    local integer cbSample = StringLength(chSample)
    local string  sSrc = StrTrim(StringCase(s, true), \" \\t\", true, false)
    local integer cbSrc = StringLength(sSrc)
    local integer iRet = 0
    local string  byCur
    local boolean bSign = false
    local integer m = 0
    local integer I
    local integer J
   
    // Check Radix
    if (iRadix < 2) and (iRadix > cbSample) then
        return 0
    endif
   
    // Main
    set I = 0
    loop
        exitwhen I >= cbSrc
        //
        set byCur = SubString(sSrc, I, I + 1)
        set J = 0
        loop
            exitwhen J >= iRadix
            //
            exitwhen SubString(chSample, J, J + 1) == byCur
            //
            set J = J + 1
        endloop
        if J < iRadix then
            set m = iRet * iRadix + J
            exitwhen m < 0 // Overflow
            set iRet = m
        else
            if (false == bSign) and (\"-\" == byCur) then
                set bSign = true
            else
                exitwhen true
            endif
        endif
        //
        set I = I + 1
    endloop
    if bSign then
        set iRet = -iRet
    endif
   
    return iRet
endfunction
[/jass]

麦德三世B

官方256进制转换函数

[jass]//===========================================================================
// Convert a integer id value into a 4-letter id code.
//
function DebugIdInteger2IdString takes integer value returns string
    local string charMap = \".................................!.#$%&\'()*+,-./0123456789:;<=>.@ABCDEFGHIJKLMNOPQRSTUVWXYZ[.]^_`abcdefghijklmnopqrstuvwxyz{|}~.................................................................................................................................\"
    local string result = \"\"
    local integer remainingValue = value
    local integer charValue
    local integer byteno

    set byteno = 0
    loop
        set charValue = ModuloInteger(remainingValue, 256)
        set remainingValue = remainingValue / 256
        set result = SubString(charMap, charValue, charValue + 1) + result

        set byteno = byteno + 1
        exitwhen byteno == 4
    endloop
    return result
endfunction[/jass]

蚊子叮

原帖由 zyl910 于 2006-4-12 18:33 发表
这个函数有个小Bug：当输入负数时，会返回空串

的确有这个问题……但是在储存中不会有负数。
另外MB下你的任意进制转换的函数。

蚊子叮

原帖由 麦德三世B 于 2006-4-12 19:03 发表
官方256进制转换函数

[jass]//===========================================================================
// Convert a integer id value into a 4-letter id code.
//
function DebugIdInteger2IdStr ...

这个BT归BT，可能在游戏中会有些字符串显示成乱码……

zyl910

62进制，全32位数据大概用6个字符就行了


曾经想过使用Base64编码来生成字符串
但是后来考虑到用户习惯不区分大小写
所以现在觉得使用十六进制字符串最好。全32位数据只需要8个字符

amp34

个人认为。小字容易和数字混在一起。
0和O也容易混。所以如果是密码的话。还是不要有0或O出现为好。

greedwind

高亮显示已经恢复了

zyl910

今日在mop挖坟，突然看到一篇文章：

http://bbs.game.mop.com/viewthread.php?tid=1133070
【已解决】有关中文存档系统（挑战1000进制存档）



个人觉得用《千字文》作为字符样本最好，符合中国传统文化

用三个中文字符就能存储 0~10亿 之间的数值

fireball

晕，要那么多干什么？好BT

幽灵眼

光有 10to62是不够的，还要62to10的函数配套

鬼龙之舞

俺也写过，大同小异
此帖长度不足，罚5分