中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-03 21:26
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 这些文件怎么用? 查看 682 回复 1
楼 主 这些文件怎么用? 发表于 2007-03-21 23:25 ·  中国 上海 华为云
新手上路
积分 16
发帖 6
注册 2007-01-20 04:48
19年会员
UID 77096
性别 男
状态 离线
CODE: [Copy to clipboard]
--------------------------------------------------------------------------------

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 '释放资源,闪人

不是存.bat吧
2 发表于 2007-03-22 00:28 ·  中国 河北 廊坊 三河市 移动
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
请修改标题。
发现楼主看代码不认真,【set oFile = oFSO.OpenTextFile(WScript.Arguments(0)) '打开拖放到本vbs的txt文件,也就是打开脚本第一个参数】
三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
论坛跳转: