vbs 文字本转语音

CrLf

朋友说手机安不了阅读软件，就帮他折腾了个这个

1. Const [速度] = 0
   
2. Const [音量] = 100
   
3. Const [TXT] = "新建文本文档.txt"
   
4. 
   
5. Dim fso,SpV,SpFS,output,text
   
6. 
   
7. Set fso = CreateObject("Scripting.FileSystemObject")
   
8. If Not (fso.FileExists([TXT]) And LCase(fso.GetExtensionName([TXT]))="txt") Then
   
9.         MsgBox "文件不存在或不是 .txt"
   
10.         WScript.Quit
    
11. End If
    
12. 
    
13. output = fso.GetBaseName([TXT])&".wav"
    
14. text = fso.OpenTextFile([TXT],1).ReadAll()
    
15. text = Replace(text,vbCr,"。")
    
16. text = Replace(text,vbLf,"。")
    
17. 
    
18. Set SpV = CreateObject("SAPI.SpVoice")
    
19. SpV.GetAudioOutputs
    
20. SpV.Rate = [速度]
    
21. SpV.Volume = [音量]
    
22. 
    
23. Set SpFS = CreateObject("SAPI.SpFileStream")
    
24. SpFS.Open output,3,False
    
25. 
    
26. Set SpV.AudioOutputStream = SpFS
    
27. SpV.Speak text
    
28. Do : Loop Until SpV.WaitUntilDone(100)
    
29. SpFS.Close
    
30. 
    
31. MsgBox "Bingo!"

复制代码

李安阳

win7可用+1