[原创] vbs 文字本转语音

Const [速度] = 0
Const [音量] = 100
Const [TXT] = "新建文本文档.txt"
 
Dim fso,SpV,SpFS,output,text
 
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FileExists([TXT]) And LCase(fso.GetExtensionName([TXT]))="txt") Then
	MsgBox "文件不存在或不是 .txt"
	WScript.Quit
End If
 
output = fso.GetBaseName([TXT])&".wav"
text = fso.OpenTextFile([TXT],1).ReadAll()
text = Replace(text,vbCr,"。")
text = Replace(text,vbLf,"。")
 
Set SpV = CreateObject("SAPI.SpVoice")
SpV.GetAudioOutputs
SpV.Rate = [速度]
SpV.Volume = [音量]
 
Set SpFS = CreateObject("SAPI.SpFileStream")
SpFS.Open output,3,False
 
Set SpV.AudioOutputStream = SpFS
SpV.Speak text
Do : Loop Until SpV.WaitUntilDone(100)
SpFS.Close
 
MsgBox "Bingo!"COPY