DosTips.com

Code: Select all

@if (@a)==(@b) @end /* Batch part:
@echo off
cscript //nologo //e:jscript "%~f0" "Hello, world!"

exit /b &rem JScript part: */
WScript.CreateObject('SAPI.SpVoice').Speak(WScript.Arguments(0));

Code: Select all

CreateObject("SAPI.SpVoice").Speak WScript.Arguments(0)

Code: Select all

@echo off &setlocal
set "speech=Hello, World!"
start "" "DataSpeecher.vbs" "%speech%"

Code: Select all

@if (@CodeSection == @Batch) @then

@echo off

for %%a in ("Twinkle twinkle little star"
            "HowÿI wonder whatÿyou are"
            "Upÿa boveÿthe worldÿso high"
            "Likeÿa diamond inÿthe sky"
            "Twinkle twinkle little star"
            "HowÿI wonder whatÿyou are") do (
   CScript //nologo //E:JScript "%~F0" "%%~a"
)
goto :EOF

@end

// JScript section

var sapi = WScript.CreateObject("SAPI.SpVoice"),
    word = WScript.Arguments(0).split(" ");


// Select the last available voice
// (to select an English voice in my Spanish computer)
// Remove this part for native English voices
var v = new Enumerator(sapi.GetVoices());
while ( ! v.atEnd() ) {
   var voice = v.item();
   v.moveNext();
}
sapi.Voice = voice;


// Show and speech the line word-by-word
for ( var i = 0; i < word.length; i++ ) {
   WScript.Stdout.Write(word[i]+" ");
   sapi.Speak(word[i]);
}
WScript.Stdout.WriteLine();

Code: Select all

@echo off

set /p "to_say=enter a text :"

mshta "javascript:code(close((V=(v=new ActiveXObject('SAPI.SpVoice')).GetVoices()).count&&v.Speak('%to_say%')))"

Code: Select all

Twinkle twinkle little star.
How I wonder what you are.
Up above the world so high,
Like a diamond in the sky.
Twinkle twinkle little star.
How I wonder what you are.

Code: Select all

@if (@a)==(@b) @end /* Batch part:
@echo off
for /f "tokens=*" %%A in (twinkle.txt) do (
   echo %%A
   call :sapi "%%A"
)
exit /b

:sapi
cscript //nologo //e:jscript "%~f0" "%~1"
goto :eof

exit /b &rem JScript part: */
WScript.CreateObject('SAPI.SpVoice').Speak(WScript.Arguments(0));