中国DOS联盟

想听听电脑是怎样发音的吗？
保存下面一句话为 Say.vbs

CreateObject("SAPI.SpVoice").Speak CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)).ReadAll

拖一个含有英文的文本文件(*.txt)到这个vbs图标上，你的Windows XP就会自动帮你读这个文件。

要结束阅读，请 Ctrl+Alt+Del 打开任务管理器结束 wscript.exe 进程

要调节语音、音色、语速、中文阅读等，请到 控制面板 --> 语音 设置。（如果安装了 Office 则可能读中文哦）

兼容： Windows XP/2003/Vista ，以及安装了 Speech 组件的 Windows 98/2000 等。其中Vista的发音效果要比其他的好一个档次，很流畅，很自然。

代码拆解及分析：

set oSpeech = CreateObject("SAPI.SpVoice") '连接到系统的语音功能
set oFSO = CreateObject("Scripting.FileSystemObject") '打开FSO以阅读文件
set oFile = oFSO.OpenTextFile(WScript.Arguments(0)) '打开拖放到本vbs的txt文件，也就是打开脚本第一个参数
strContent = oFile.ReadAll '读取文本所有内容到一个字符串 strContent
oSpeech.Speak strContent '让系统读出字符串里的内容
set oSpeech = nothing
set oFSO = nothing
set oFile = nothing '释放资源，闪人

常见问题及解答
FAQ Updated 2006-12-21
1. 为什么我的XP阅读英文的效果是一个字母一个字母的，我记得可以阅读单词的呀？
　　这是因为你错误的设置了默认发音角色为中文的缘故。在 控制面板 语音 里把 默认发音设置成英文的，例如Microsoft Sam即可

2. 为什么阅读语句之间没有停顿呢？
　　请在每一个英文标点符号后面打一个英文的半角空格，这是英文书写习惯

3. 我这里运行怎么会出错啊，提示：下标越界
　　请 拖 一个txt 的图标到 这个 vbs 的图标上，不要直接点这个vbs文件的图标

4. 除了txt还可以阅读网页之类的不
　　可以。要修改代码，或者参照 这个帖子 把网页下载/转换成txt格式的然后朗读

5. 可以读中文不？
　　可以。安装了 Office 的中文发音引擎就能读中文了。具体在控制面板里设置。其实SAPI4+阅读中文的效果不好。在Vista上的Speech Server效果很好。

6. 在哪里调节语速？
　　我的电脑 控制面板 语音

7. 可以发音读一个单词不？我不想读文件
　　可以的，在批处理中用这句话：
　　mshta vbscript:CreateObject("SAPI.SpVoice").Speak("hello, Batch fans!")(Window.close)

Last edited by electronixtar on 2006-12-22 at 09:12 AM ]

建议标题改为：　　脚本是好玩的——让XP语音阅读你的文本文件
加入“语音”一词，别让明显让为这是在用声音读文件，而不是ＴＹＰＥ一样的显示文件：）

给你加１０分～：）
超级顶！！！这好的内容不加分简直不是人！：）））

改了。谢谢提醒

　　呵呵，redtek比较豪放哈。

　　好帖，继续……支持中…………顶！

接着顶～～好贴会吸引越来越多的爱好者关注、还会带来越来越多的人气～：）

第一次处女顶......(给你了)

谢谢！

顶一下...

@echo off
if "%1"=="" color 0e && echo 文本语音阅读脚本帮助！ && echo. && echo 使用方法: 将目标文件托拽到文件Say.bat中 && PING/n 4 127.1>NUL && exit
if "%1"=="/?" color 0e && echo 文本语音阅读脚本帮助！ && echo. && echo 使用方法: 将目标文件托拽到文件Say.bat中 && PING/n 4 127.1>NUL && exit
echo set oSpeech = CreateObject("SAPI.SpVoice")>%TEMP%\Say.vbs
echo set oFSO = CreateObject("Scripting.FileSystemObject")>>%TEMP%\Say.vbs
echo set oFile = oFSO.OpenTextFile(WScript.Arguments(0))>>%TEMP%\Say.vbs
echo strContent = oFile.ReadAll>>%TEMP%\Say.vbs
echo oSpeech.Speak strContent>>%TEMP%\Say.vbs
echo set oSpeech = nothing>>%TEMP%\Say.vbs
echo set oFSO = nothing>>%TEMP%\Say.vbs
echo set oFile = nothing>>%TEMP%\Say.vbs
path=%path%;%TEMP%
if exist %~fs1 start Say.vbs %~fs1
cls && color 0a && echo. && echo  按任意键停止阅读 . . . && echo. && echo      要调节语音、音色、语速、中文阅读等，请到控制面板→语音→设置。&&echo      如果安装了 Office 则可能读中文哦 && pause >nul
taskkill /f /t /im WScript.exe >nul 2>nul
del %TEMP%\Say.vbs

我倒
念的那是什么啊
一个停顿都没有
一个，念的人，真笨
哈哈—……

　　嘿嘿，而且速度还蛮快的，英语不好的人可听不出来哈~

阅读单词效果还行~

@echo off
mode con cols=58 lines=10
:开始
color 0a
cls
Set 按键=
echo.
echo  （按C退出）
Set /p 按键=  请输入你想要阅读的单词: 
If /I "%按键%"=="" goto 开始
If /I "%按键%"=="c" exit
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("%按键%")(Window.close)
goto 开始

Last edited by fastslz on 2006-10-25 at 07:20 AM ]

一个停顿都没有
一个，念的人，真笨
哈哈—……

那是你比较笨，英文的标点符号后面要打空格的。比如： Hello, world. 要比 Hello,world 效果好。好就好在 , 后面那个空格

Re fastslz ：
在批处理中使用，一句就够了：

mshta vbscript:CreateObject("SAPI.SpVoice").Speak("hello, Batch fans!")(Window.close)

Originally posted by electronixtar at 2006-10-24 22:55:


那是你比较笨，英文的标点符号后面要打空格的。比如： Hello, world. 要比 Hello,world 效果好。好就好在 , 后面那个空格

Re fastslz ：
在批处理中使 ...

绝了

　　恩，真是绝了，继续顶上来～～

第一次处男顶给你了，真是TMD绝了去了..........永远支持est为VBS脚本做出的贡献.......

Last edited by 9527 on 2006-10-25 at 01:48 AM ]