纯DOS下接受字符输入的写法

Batcher

回复 13# wangx


是在DOS系统里面执行吗？
DOS里面的for命令不支持 /l 这种选项

apang

保存为test.bat，需要strings和wbat

1. @echo off
   
2. :_Loop
   
3. cls
   
4. set var=
   
5. set Input=456
   
6. set Num=123
   
7. call w.bat box @test.bat:_Choice #1
   
8. if errorlevel 100 goto _Exit
   
9. if %?%#==1# goto _Start
   
10. if %?%#==2# goto _Exit
    
11. 
    
12. :_Choice "输入比较的数值:"
    
13. 
    
14.         [$Input,8,U! ]
    
15. 
    
16. [ 确定(&S)]    [ 取消(&C)]
    
17. ::
    
18. 
    
19. :_Start
    
20. strings var=SUB %Input%,%Num% 2>nul
    
21. if errorlevel 1 goto _Lss
    
22. if %var%#==0# goto _Equ
    
23. echo ">"
    
24. pause
    
25. goto _Loop
    
26. 
    
27. :_Equ
    
28. echo "="
    
29. pause
    
30. goto _Loop
    
31. 
    
32. :_Lss
    
33. echo "<"
    
34. pause
    
35. goto _Loop
    
36. 
    
37. :_Exit
    
38. exit

复制代码

用 strings 除法运算貌似不行，改成减法运算

qzwqzw

不用第三方的方案也很多
Fc con、copy con、basic、%comspec%、ascode等等

建议你先看一下Timo Salmi教授的
Useful MS-DOS batch files and tricks
ftp://garbo.uwasa.fi/pc/link/tsbat.zip
http://www.netikka.net/tsneti/pc/link/tsbat.zip

附带链接
http://lipas.uwasa.fi/~ts/garbo.html

CrLf

回复 18# qzwqzw


    下不了哟，要翻墙吗？

qzwqzw

不好意思
把很早前的链接翻出来
也没有检查
更新一下

http://www.netikka.net/tsneti/pc/link/tsbat.zip
http://lipas.uwasa.fi/~ts/garbo.html

apang

纯DOS唉，只是蜻蜓点水般接触过，已经找不到北了。