1~36进制转换器-批处理

nkc3g4

本文来自lyz810的空间，http://hi.baidu.com/lyz810/blog/item/db31cc42614f2b0273f05ddf.html

1. 
   
2. @echo off &setlocal enabledelayedexpansion
   
3. color 1e
   
4. mode con cols=60 lines=10
   
5. :start
   
6. cls
   
7. set b=
   
8. set d=
   
9. set e=
   
10. set f=
    
11. title 进制转换器
    
12. set /p jzq=请输入转换前的进制数(1~36)
    
13. set /p jzh=请输入转换后的进制数(1~36)
    
14. set /p num=请输入数值
    
15. set count=1
    
16. set num=#%num%
    
17. :check
    
18. set b=!num:~-%count%,1!
    
19. if /i "%b%"=="a" set b=10
    
20. if /i "%b%"=="b" set b=11
    
21. if /i "%b%"=="c" set b=12
    
22. if /i "%b%"=="d" set b=13
    
23. if /i "%b%"=="e" set b=14
    
24. if /i "%b%"=="f" set b=15
    
25. if /i "%b%"=="g" set b=16
    
26. if /i "%b%"=="h" set b=17
    
27. if /i "%b%"=="i" set b=18
    
28. if /i "%b%"=="j" set b=19
    
29. if /i "%b%"=="k" set b=20
    
30. if /i "%b%"=="l" set b=21
    
31. if /i "%b%"=="m" set b=22
    
32. if /i "%b%"=="n" set b=23
    
33. if /i "%b%"=="o" set b=24
    
34. if /i "%b%"=="p" set b=25
    
35. if /i "%b%"=="q" set b=26
    
36. if /i "%b%"=="r" set b=27
    
37. if /i "%b%"=="s" set b=28
    
38. if /i "%b%"=="t" set b=29
    
39. if /i "%b%"=="u" set b=30
    
40. if /i "%b%"=="v" set b=31
    
41. if /i "%b%"=="w" set b=32
    
42. if /i "%b%"=="x" set b=33
    
43. if /i "%b%"=="y" set b=34
    
44. if /i "%b%"=="z" set b=35
    
45. if "%b%"=="#" goto run
    
46. if %b% GEQ %jzq% echo 输入有误，请重新输入 &pause >nul &goto start
    
47. set /a count+=1
    
48. goto check
    
49. :run
    
50. title 正在将%jzq%进制数%num%转换为%jzh%进制数，请稍后......
    
51. echo 正在将%jzq%进制数%num%转换为%jzh%进制数，请稍后......
    
52. if %jzq% EQU 1 goto run_5
    
53. set count=1
    
54. set a=1
    
55. set c=0
    
56. :run_1
    
57. set b=!num:~-%count%,1!
    
58. if /i "%b%"=="a" set b=10
    
59. if /i "%b%"=="b" set b=11
    
60. if /i "%b%"=="c" set b=12
    
61. if /i "%b%"=="d" set b=13
    
62. if /i "%b%"=="e" set b=14
    
63. if /i "%b%"=="f" set b=15
    
64. if /i "%b%"=="g" set b=16
    
65. if /i "%b%"=="h" set b=17
    
66. if /i "%b%"=="i" set b=18
    
67. if /i "%b%"=="j" set b=19
    
68. if /i "%b%"=="k" set b=20
    
69. if /i "%b%"=="l" set b=21
    
70. if /i "%b%"=="m" set b=22
    
71. if /i "%b%"=="n" set b=23
    
72. if /i "%b%"=="o" set b=24
    
73. if /i "%b%"=="p" set b=25
    
74. if /i "%b%"=="q" set b=26
    
75. if /i "%b%"=="r" set b=27
    
76. if /i "%b%"=="s" set b=28
    
77. if /i "%b%"=="t" set b=29
    
78. if /i "%b%"=="u" set b=30
    
79. if /i "%b%"=="v" set b=31
    
80. if /i "%b%"=="w" set b=32
    
81. if /i "%b%"=="x" set b=33
    
82. if /i "%b%"=="y" set b=34
    
83. if /i "%b%"=="z" set b=35
    
84. if "%b%"=="#" goto run_2
    
85. set /a c=%b%*%a%+%c%
    
86. set /a a*=%jzq%
    
87. set /a count+=1
    
88. goto run_1
    
89. :run_2
    
90. if %jzh% EQU 1 goto run_3
    
91. set /a d=%c%-%c%/%jzh%*%jzh%
    
92. set /a c=%c%/%jzh%
    
93. set f=%d%
    
94. if %d% EQU 10 set f=A
    
95. if %d% EQU 11 set f=B
    
96. if %d% EQU 12 set f=C
    
97. if %d% EQU 13 set f=D
    
98. if %d% EQU 14 set f=E
    
99. if %d% EQU 15 set f=F
    
100. if %d% EQU 16 set f=G
     
101. if %d% EQU 17 set f=H
     
102. if %d% EQU 18 set f=I
     
103. if %d% EQU 19 set f=J
     
104. if %d% EQU 20 set f=K
     
105. if %d% EQU 21 set f=L
     
106. if %d% EQU 22 set f=M
     
107. if %d% EQU 23 set f=N
     
108. if %d% EQU 24 set f=O
     
109. if %d% EQU 25 set f=P
     
110. if %d% EQU 26 set f=Q
     
111. if %d% EQU 27 set f=R
     
112. if %d% EQU 28 set f=S
     
113. if %d% EQU 29 set f=T
     
114. if %d% EQU 30 set f=U
     
115. if %d% EQU 31 set f=V
     
116. if %d% EQU 32 set f=W
     
117. if %d% EQU 33 set f=X
     
118. if %d% EQU 34 set f=Y
     
119. if %d% EQU 35 set f=Z
     
120. set e=%f%%e%
     
121. if %c% EQU 0 goto stop
     
122. goto run_2
     
123. :run_3
     
124. set count=0
     
125. set g=0
     
126. :run_4
     
127. set g=%g%0
     
128. set /a count+=1
     
129. if %count% EQU %c% set e=%g% &goto stop
     
130. goto run_4
     
131. :run_5
     
132. set count=1
     
133. :run_6
     
134. set b=!num:~-%count%,1!
     
135. set /a c=%count%-2
     
136. if "%b%"=="#" goto run_2
     
137. set /a count+=1
     
138. goto run_6
     
139. :stop
     
140. cls
     
141. title %jzq%进制数%num:~1%转换为%jzh%进制的结果为%e%
     
142. echo %jzq%进制数%num:~1%转换为%jzh%进制的结果为%e%
     
143. pause >nul
     
144. goto start

复制代码