Sapi.SpVoice avec cscript [Résolu]

[alixbasix]

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

Code :

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 :

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

[bbil]

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]

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

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

@+

[bbil]

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]

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]

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 :

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 :

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

[bbil]

la ligne

Code :

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

ne te sert plus ... fso : FileSystemObject ( voir ) , gestion fichiers....

[alixbasix]

oups !

encore mieux comme ça !

@+

[alixbasix]

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

Code :

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

@+

[bbil]

Envoyé par alixbasix

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

Code :

@+

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

Code :

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]

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]

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++

[ced600]

Erreur dans le liens je le corrige :
http://www.microsoft.com/msagent/downloads/user.aspx

[ced600]

Assez rigolo cet outils.

Maintenant j'ai un ami et il est fidèle

[wilfried_42]

re:

merci à vous, j'ai tout telechargé, mais ca ne change rien, et pour cause, je n'y connais rien

je ne connais pas la procedure à effectuer pour un changement de langue

Merci à vous