[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[日期时间] 批处理版语音报时

批处理版的语音报时代码
其中用到了第三方工具 wav.exe
代码读秒部分 没找到解决读秒不准的方法
代码没有上下午
但上下午的语音已打包进附件
  1. @echo off
  2. title 语音报时
  3. mode con: cols=26 lines=4
  4. :::::::::::::::::::::::::::::::::::::::::::
  5. ::                                       ::
  6. ::    新手练习作品    欢迎大家多提建议   ::
  7. ::                                       ::
  8. ::                      一起讨论学习     ::
  9. ::                                       ::
  10. ::            建议邮箱 sc.419@qq.com     ::
  11. ::                                       ::
  12. :::::::::::::::::::::::::::::::::::::::::::
  13. :读年
  14. echo.
  15. echo   %date:~0,4%年%date:~5,2%月%date:~8,2%日 %date:~11,3%
  16. echo         %time:~0,2%点%time:~3,2%分
  17. wav %date:~0,1%
  18. wav %date:~1,1%
  19. wav %date:~2,1%
  20. wav %date:~3,1%
  21. wav 年
  22. :读月
  23. if %date:~5,1% == 0 goto 月
  24. if %date:~5,1% == 1 wav 十&goto 月
  25. wav %date:~5,1%
  26. wav 十
  27. :月
  28. if %date:~6,1% == 0 wav 月&goto 读日
  29. wav %date:~6,1%
  30. wav 月
  31. :读日
  32. if %date:~8,1% == 0 goto 日
  33. if %date:~8,1% == 1 wav 十&goto 日
  34. wav %date:~8,1%
  35. wav 十
  36. :日
  37. if %date:~9,1% == 0 wav 日&goto 读星期
  38. wav %date:~9,1%
  39. wav 日
  40. :读星期
  41. wav 星期
  42. if %date:~13,1% == 一 wav 1
  43. if %date:~13,1% == 二 wav 2
  44. if %date:~13,1% == 三 wav 3
  45. if %date:~13,1% == 四 wav 4
  46. if %date:~13,1% == 五 wav 5
  47. if %date:~13,1% == 六 wav 6
  48. if %date:~13,1% == 日 wav 日
  49. :读点
  50. if %time:~0,2% == 00 wav 0&wav 点&goto 读分
  51. if %time:~0,1% == 0 goto 点
  52. if %time:~0,1% == 1 wav 十&goto 点
  53. wav %time:~0,1%
  54. wav 十
  55. :点
  56. if %time:~1,1% == 0 wav 点&goto 读分
  57. wav %time:~1,1%
  58. wav 点
  59. :读分
  60. if %time:~3,2% == 00 wav 0&wav 分&goto 读秒
  61. if %time:~3,1% == 0 wav 0&goto 分
  62. if %time:~3,1% == 1 wav 十&goto 分
  63. wav %time:~3,1%
  64. wav 十
  65. :分
  66. if %time:~4,1% == 0 wav 分&goto 读秒
  67. wav %time:~4,1%
  68. wav 分
  69. :读秒
  70. set /a mm = %time:~6,2%+1
  71. :没找到解决读秒不准的方法
  72. cls
  73. echo.
  74. echo          %mm%秒
  75. if %time:~6,2% == 00 wav 0&wav 秒&goto :eof
  76. if %time:~6,1% == 0 wav 0&goto 秒
  77. if %time:~6,1% == 1 wav 十&goto 秒
  78. wav %time:~6,1%
  79. wav 十
  80. :秒
  81. if %time:~7,1% == 0 wav 秒&goto :eof
  82. wav %time:~7,1%
  83. wav 秒
复制代码
下载地址

下载地址:
http://www.everbox.com/f/sBVARa4tNQKYayxPm4C2VyfDwd

http://www.everbox.com/f/sBVARa4tNQKYayxPm4C2VyfDwd

TOP

  1. @echo off
  2. echo %date%  %time:~,8%
  3. mshta vbscript:createobject("sapi.spvoice").speak("%date% %time:~,8%")(window.close)
复制代码

TOP

懂了,当时得装中文语音库

TOP

返回列表