字母跟数字互换

[csover8]

求函数,字母跟数字互换..

反之也行..

谢谢

如: 1 -> A 24 -> Z 25 -> AA

A -> 1 ... .....

[hookee]

A是1, 为什么Z是24? 不是26个字母吗?

[黑心]

还有几个字母不知去向

[csover8]

是26个字母..

[q107770540]

不明白规则。。

[csover8]

求函数:

1 -> 转化成A ... 26 -> Z

反之

A -> 1 ... Z->26

[hookee]

0 -> A 25 -> Z

Response.Write cvt(1)
Response.Write decvt("Z")

Function cvt(n)
    Dim s
    s  = ""
    doit n, s
    cvt = s
End Function

Function decvt(s)
    Dim i, n, r, c, t, ln
    r = 26
    t = 0
    ln = Len(s)
    For i = 1 To ln
        c = Mid(s, i, 1)
        t = t + getNum(c) * (r^(ln-i))
    Next
    decvt = t
End Function

Function getNum(c)
    Dim asc_a
    asc_a = Asc("A")
    getNum = Asc(c) - asc_a
End Function

Function getAlpha(n)
    Dim asc_a
    asc_a = Asc("A")
    getAlpha = Chr(n + asc_a)
End Function

Sub doit(n, ByRef s)
    Dim f, m, r
    r = 26
    m = n Mod r
    s = getAlpha(m) & s
    f = n \ r
    If f > 0 Then doit f, s
End Sub

[黑心]

那是不是3个A又不一样。AAA代表多少呢？lz想是什么规律。

[csover8]

52就是 AAA 53是AAB 54是AAC

78就是AAAA .....

这样依次类推下去。

[hookee]

<%
Response.Write cvt(78)
Response.Write decvt("AAZ")

Function cvt(n)
    Dim i, s, m , k
    m = n Mod 26
    k = n \ 26
    If m = 0 Then
        m = 26
        k = k - 1
    End If
    s = ""
    For i = 1 To k
        s = s & "A"
    Next
    cvt = s & getAlpha(m)
End Function

Function decvt(s)
    Dim c, n, i, ln
    ln = Len(s)
    c = Mid(s, ln,1)
    decvt = 26 * (ln-1) + getNum(c)
End Function

Function getNum(c)
    Dim asc_a
    asc_a = Asc("A")
    getNum = Asc(c) - asc_a + 1
End Function

Function getAlpha(n)
    Dim asc_a
    asc_a = Asc("A")
    getAlpha = Chr(n + asc_a -1)
End Function
%>

[csover8]

谢楼上的。

[csover8]

To: hookee

如果是大于25呢,像26,...我要对应的是AA, 27对应的是AB

该如何?

[Dogfish]

是来个26进制吧？