脚本是好玩的——让XP语音阅读你的文本文件 - 中国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 ]

第1楼　electronixtar	发表于 2006-10-22 04:20
铂金会员　发帖 2,672　积分 7,493
脚本是好玩的——让XP语音阅读你的文本文件想听听电脑是怎样发音的吗？保存下面一句话为 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* ]

第2楼　redtek	发表于 2006-10-22 05:09
金牌会员　发帖 1,147　积分 2,902
建议标题改为：　　脚本是好玩的——让XP语音阅读你的文本文件加入“语音”一词，别让明显让为这是在用声音读文件，而不是ＴＹＰＥ一样的显示文件：）给你加１０分～：）超级顶！！！这好的内容不加分简直不是人！：）））

第3楼　electronixtar	发表于 2006-10-22 05:44
铂金会员　发帖 2,672　积分 7,493
改了。谢谢提醒

第4楼　lxmxn	发表于 2006-10-22 05:46
版主　发帖 4,938　积分 11,386
呵呵，redtek比较豪放哈。　　好帖，继续……支持中…………顶！

第5楼　redtek	发表于 2006-10-22 05:49
金牌会员　发帖 1,147　积分 2,902
接着顶～～好贴会吸引越来越多的爱好者关注、还会带来越来越多的人气～：）

第6楼　zhwvip	发表于 2006-10-24 05:23
初级用户　发帖 14　积分 29
第一次处女顶......(给你了)

第7楼　electronixtar	发表于 2006-10-24 05:50
铂金会员　发帖 2,672　积分 7,493
谢谢！

第8楼　fastslz	发表于 2006-10-24 11:04
铂金会员　发帖 2,315　积分 5,493　来自上海
顶一下... @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

第9楼　maya0su	发表于 2006-10-24 11:24
中级用户　发帖 131　积分 241
我倒念的那是什么啊一个停顿都没有一个，念的人，真笨哈哈—……

第10楼　lxmxn	发表于 2006-10-24 11:40
版主　发帖 4,938　积分 11,386
嘿嘿，而且速度还蛮快的，英语不好的人可听不出来哈~

第11楼　fastslz	发表于 2006-10-24 12:15
铂金会员　发帖 2,315　积分 5,493　来自上海
阅读单词效果还行~ @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 ]

第12楼　electronixtar	发表于 2006-10-24 22:55
铂金会员　发帖 2,672　积分 7,493
一个停顿都没有一个，念的人，真笨哈哈—…… 那是你比较笨，英文的标点符号后面要打空格的。比如： Hello, world. 要比 Hello,world 效果好。好就好在 , 后面那个空格 Re fastslz ：在批处理中使用，一句就够了： mshta vbscript:CreateObject("SAPI.SpVoice").Speak("hello, Batch fans!")(Window.close)

第13楼　vkill	发表于 2006-10-25 00:50
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
Originally posted by electronixtar at 2006-10-24 22:55: 那是你比较笨，英文的标点符号后面要打空格的。比如： Hello, world. 要比 Hello,world 效果好。好就好在 , 后面那个空格 Re fastslz ：在批处理中使 ... 绝了

第14楼　lxmxn	发表于 2006-10-25 00:54
版主　发帖 4,938　积分 11,386
恩，真是绝了，继续顶上来～～

第15楼　9527	发表于 2006-10-25 01:47
银牌会员　发帖 438　积分 1,185　来自北京
第一次处男顶给你了，真是TMD绝了去了..........永远支持est为VBS脚本做出的贡献....... [ Last edited by 9527 on 2006-10-25 at 01:48 AM ]