Board logo

标题: 如何让声音和显示字同步进行 [打印本页]
作者: wuyun8035     时间: 2007-2-12 10:54    标题: 如何让声音和显示字同步进行
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("大家来看看")(Window.close)

set line="大家来看看"
for /l %%i in (0,1,5) do (
set /p=!line:~%%i,1!<nul
ping/n 1 127.1>nul
)

这两段代码如何让声音和显示字同步进行
作者: zh159     时间: 2007-2-12 13:06
把阅读那段插入for中稍加修改一个个字读就OK
作者: slore     时间: 2007-2-12 14:20
我怎么听不到声音?
作者: wuyun8035     时间: 2007-2-13 22:28
Originally posted by zh159 at 2007-2-12 12:06 AM:
把阅读那段插入for中稍加修改一个个字读就OK


请问下二楼,如何把阅读那段插入for中
作者: zh159     时间: 2007-2-13 22:58
@echo off

setlocal EnableDelayedExpansion

set "line=大家来看看"

for /l %%i in (0,1,5) do (

    set /p=!line:~%%i,1!<nul

mshta vbscript:CreateObject("SAPI.SpVoice").Speak("!line:~%%i,1!")(Window.close)

ping/n 1 127.1>nul

)


@echo off

set "line=大家来看看"

:loop

set line_=%line:~0,1%&set line=%line:~1%

set /p=%line_%<nul

mshta vbscript:CreateObject("SAPI.SpVoice").Speak("%line_%")(Window.close)

ping/n 1 127.1>nul

if not "%line%" == "" goto loop
作者: vkill     时间: 2007-2-14 00:03
读不出中文的吧?