数字到特殊进制(HP31进制)的转换

jiangweifujian

工厂等特殊环境下有不同的进制,比如Hp有这样一种31进制形式:
0到9接下去以B到Z,并将E/I/O/U四个字母剔除(即26个字母剔除AEIOU).
上面的这种进制方式,用自定义函数之类的可以快速实现吗?
我是用半自动的手动输一个循环,然后按规律倒了几遍公式把每一位的数字弄出来,然后再合并显示出来的,很麻烦!

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

蓝桥玄霜

1. Function N2ChrX(ByVal L As Long) As String
   
2.     '作用：将Long值转换为 N 进制所表示的字符串
   
3.     Dim iMod As Integer, dInt As Double, sChar As String
   
4.     Dim ws%, fws%, zxx%, i%, j%, nf$, bb$, a$, a1$, a2$, b, wc, w%, j1
   
5.     Const Jzs As String = "0123456789BCDFGHJKLMNPQRSTVWXYZ"
   
6.     Const zd& = 2147483647
   
7.     Const zx& = -2147483648#
   
8.     Const N = 31
   
9.     If L = 0 Then N2ChrX = L: Exit Function
   
10.     If L > 0 Then
    
11.         iMod = L Mod N
    
12.         dInt = Int(L / N)
    
13.         If iMod > 0 Then
    
14.             sChar = Mid$(Jzs, iMod + 1, 1)
    
15.         ElseIf dInt > 0 Then
    
16.             sChar = "0"
    
17.         End If
    
18.         Do While dInt > 0
    
19.             iMod = dInt Mod N
    
20.             dInt = Int(dInt / N)
    
21.             If iMod > 0 Then
    
22.                 sChar = Mid$(Jzs, iMod + 1, 1) & sChar
    
23.             ElseIf dInt > 0 Then
    
24.                 sChar = "0" & sChar
    
25.             End If
    
26.         Loop
    
27.     Else
    
28.         nf = N2ChrX(zd)
    
29.         ws = Len(nf)
    
30.         If L = zx Then
    
31.             L = zd
    
32.             zxx = 1
    
33.             GoTo 100
    
34.         Else
    
35.             L = -L
    
36.         End If
    
37.         nf = N2ChrX(L)
    
38.         fws = Len(nf)
    
39.         wc = ws - fws
    
40.         If wc > 0 Then
    
41.             nf = Application.Rept("0", wc) & nf
    
42.         End If
    
43. 100:
    
44.         For i = 1 To ws    '负码＝反码+1
    
45.             bb = Mid$(nf, i, 1)
    
46.             w = InStr(Jzs, bb)
    
47.             If i = 1 Then
    
48.                 sChar = Mid$(Jzs, N - w + 1, 1)
    
49.             ElseIf i <> ws Then
    
50.                 sChar = sChar & Mid$(Jzs, N - w + 1, 1)
    
51.             Else
    
52.                 If zxx = 0 Then
    
53.                     sChar = sChar & Mid$(Jzs, N - w + 1, 1)   '最后一位+1
    
54.                     For j = ws To 1 Step -1
    
55.                         cc = Mid$(sChar, j, 1)
    
56.                         cc = InStr(Jzs, cc) - 1
    
57.                         j1 = cc + 1
    
58.                         If j1 = N Then
    
59.                             sc = "0" & sc
    
60.                         Else
    
61.                             j1 = Mid$(Jzs, j1 + 1, 1)
    
62.                             sc = j1 & sc
    
63.                             sChar = Left$(sChar, j - 1) & sc
    
64.                             Exit For
    
65.                         End If
    
66.                     Next j
    
67.                 Else
    
68.                     sChar = sChar & Mid$(Jzs, N - w + 1, 1)
    
69.                 End If
    
70.             End If
    
71.         Next i
    
72.     End If
    
73. 200:
    
74. N2ChrX = sChar
    
75. End Function

复制代码

496033221

蓝桥玄霜 发表于 2011-6-24 13:20

想知道代码的具体用法，麻烦大师指导一下，或者放到表里边。

蓝桥玄霜

这是自定义函数，可以修改第8句N的值，如N=31，就是转换为31进制。

jiangweifujian

多年后又用到这个场景,自己简化了下,同时也写了个反向的函数.供大家参考,也自己备忘记录下.

感谢版主老师的指导

prome3

jiangweifujian 发表于 2024-3-31 11:17
多年后又用到这个场景,自己简化了下,同时也写了个反向的函数.供大家参考,也自己备忘记录下.

感谢版主老 ...

好家伙，十年了，就这一个小小的自定义函数