初次练手做个批处理进制转换的小东西

oowgsoo

1. @echo off
   
2. setlocal EnableDelayedExpansion
   
3. 
   
4. ::输入条件，输入错误就重新输入
   
5. 
   
6. set /a minInt=1^<^<31,maxInt="~minInt"
   
7. 
   
8. :inputValue
   
9. set /p value=请输入需要转换的数字(0-%maxInt%)：
   
10. if %value% lss 0 goto inputValue
    
11. ::最大整数范围没有判断，下面这句不会起作用的
    
12. ::if %value% gtr %maxInt% goto inputValue
    
13. 
    
14. :inputBit
    
15. set /p bit=请输入需要转换的进制(2-16)：
    
16. if %bit% lss 2 goto inputBit
    
17. if %bit% gtr 16 goto inputBit
    
18. 
    
19. ::进行计算
    
20. set unit=0123456789ABCDE
    
21. call :change
    
22. 
    
23. ::返回结果
    
24. echo 转换结果：%result%
    
25. 
    
26. goto :end
    
27. 
    
28. ::change函数，计算原理，就是用%和/嘛
    
29. :change
    
30. 
    
31. set result=
    
32. ::for循环用不上了，只好用goto了
    
33. :changei
    
34. set /a index=%value%^%%bit%
    
35. set /a value/=%bit%
    
36. set ret=!unit:~%index%,1!
    
37. set result=%ret%%result%
    
38. if %value% neq 0 goto changei
    
39. 
    
40. goto :eof
    
41. 
    
42. :end

复制代码

基拉freedom

::getChar函数
不是c里用来从终端输入字符的？？
不太记得了