Sapi.SpVoice avec cscript

**alixbasix** · 17/10/2007, 11h15

j'ai le script suivant dans le fichier : speak.vbs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set MyVoice = CreateObject("Sapi.SpVoice")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(WScript.Arguments.Item(0),1,true)
Do While f.AtEndOfStream <> True
MyVoice.Speak f.ReadLine
Loop
f.close

Dans la fenêtre DOS, je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cscript.exe speak.vbs "Hello world !"

Mais je n'entends rien ! pourquoi ?
désolée de poser une question aussi élémentaire...

J'ai essayé de trouver la réponse sur le forum.
Je n'y connais rien au vbs, j'ai juste besoin de ce petit script à intégrer dans mon application.

alix

**SfJ5Rpw8** · 17/10/2007, 11h23

relis ton code ...

ton .vbs .. ne demande pas en argument la phrase à lire mais le nom d'un fichier texte contenant la fameuse phrase..!

**alixbasix** · 17/10/2007, 11h52

ah merci ! c'était tout bête !

Est-il possible d'avoir la phrase (ou n'importe quelle chaine de caractères) comme argument ?

@+

**SfJ5Rpw8** · 17/10/2007, 12h11

Ben ne lit plus le fichier ( supprime les fso....)

et utilise directement les arguments de ton "vbs" lors de l'appel à ta fonction speak ...

inspire toi de la

Comment utiliser les arguments en ligne de commande ?

**RadPAT** · 17/10/2007, 14h09

Salut,

un autre lien très bien documenté sur le script centre de crosoft :

http://www.microsoft.com/technet/scr...ames/sapi.mspx

A++

**alixbasix** · 17/10/2007, 15h56

Merci à tous les deux, pour vos promptes réponses

c'est vrai que l'article sur le speech Api est très intéressant.

Voilà, après maints grattements de crâne (je n'ai pas l'habitude de la programmation OO), voici ma solution :

Le fichier speak-string.vbs contient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set MyVoice = CreateObject("Sapi.SpVoice")
Set fso = CreateObject("Scripting.FileSystemObject")
MyVoice.Speak WScript.Arguments(0)

Et dans la fenêtre DOS, faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

speak-string.vbs "Hello beautiful world ! ;-)"

**SfJ5Rpw8** · 17/10/2007, 16h02

la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set fso = CreateObject("Scripting.FileSystemObject")

ne te sert plus ... fso : FileSystemObject ( voir

) , gestion fichiers....

**alixbasix** · 17/10/2007, 17h46

oups !

encore mieux comme ça !

@+

**alixbasix** · 22/10/2007, 11h42

Correction du script pour prendre en compte plusieurs arguments sur la ligne de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set MyVoice = CreateObject("Sapi.SpVoice")
 
For count = 0 to wscript.Arguments.length-1
    MyVoice.Speak WScript.Arguments(count)
Next

@+

**SfJ5Rpw8** · 22/10/2007, 12h00

Envoyé par alixbasix

Correction du script pour prendre en compte plusieurs arguments sur la ligne de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set MyVoice = CreateObject("Sapi.SpVoice")
 
For count = 0 to wscript.Arguments.length-1
    MyVoice.Speak WScript.Arguments(count)
Next

@+

tu devrai peu-être rajouter une pause dans ta boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Wscript.Sleep(1000)

histoire de bien séparer les mots non ? ( bon je dis cela mais j'ai pas testé ton code avec une phrase..)

**wilfried_42** · 04/02/2008, 08h02

Bonjour à tous

je relance ce fil pour une question

J'aimerais, que Sapi.voice me parle en francais, J'ai bien essayé une astuce, mais l'accent anglais est toujours present et franchement on ne compend Rien du tout

Merci à vous

Wilfried

**RadPAT** · 06/02/2008, 10h09

Salut,

va voir sur cette page :

http://http://www.microsoft.com/msag...oads/user.aspx

Attention, c'est du francais de Strasbourg, essaie de lui faire dire "Windows NT4" et tu comprendras.

A++