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

[原创] vbs 文字本转语音

朋友说手机安不了阅读软件,就帮他折腾了个这个
  1. Const [速度] = 0
  2. Const [音量] = 100
  3. Const [TXT] = "新建文本文档.txt"
  4. Dim fso,SpV,SpFS,output,text
  5. Set fso = CreateObject("Scripting.FileSystemObject")
  6. If Not (fso.FileExists([TXT]) And LCase(fso.GetExtensionName([TXT]))="txt") Then
  7. MsgBox "文件不存在或不是 .txt"
  8. WScript.Quit
  9. End If
  10. output = fso.GetBaseName([TXT])&".wav"
  11. text = fso.OpenTextFile([TXT],1).ReadAll()
  12. text = Replace(text,vbCr,"。")
  13. text = Replace(text,vbLf,"。")
  14. Set SpV = CreateObject("SAPI.SpVoice")
  15. SpV.GetAudioOutputs
  16. SpV.Rate = [速度]
  17. SpV.Volume = [音量]
  18. Set SpFS = CreateObject("SAPI.SpFileStream")
  19. SpFS.Open output,3,False
  20. Set SpV.AudioOutputStream = SpFS
  21. SpV.Speak text
  22. Do : Loop Until SpV.WaitUntilDone(100)
  23. SpFS.Close
  24. MsgBox "Bingo!"
复制代码

win7可用+1

TOP

返回列表