Médiaforma

Windows 10 – Faire lire un fichier texte par Cortana

Partagez cet article sur vos réseaux

Cette rubrique va vous montrer comment utiliser la voix de synthèse de Windows 10 pour lire un fichier texte quelconque.

Cliquez sur Démarrer ou appuyez sur la touche Windows du clavier, tapez bloc et cliquez sur Bloc-notes, dans la partie supérieure du menu Démarrer. Tapez les instructions suivantes :

Dim speaks, speech
Set speech=CreateObject("sapi.spvoice")
Dim oFso, f
set oFso = CreateObject("Scripting.FileSystemObject")
set f = oFso.OpenTextFile("lecture.txt", 1)
while Not f.AtEndOfStream
  speech.Speak f.ReadLine
Wend
f.Close

Sauvegardez le fichier dans un dossier quelconque avec la commande Enregistrer sous dans le menu Fichier. Donnez le nom parle.vbs au fichier :

Assurez-vous qu’un fichier texte nommé lecture.txt se trouve dans le dossier où vous avez enregistré le fichier parle.vbs. Il ne vous reste plus qu’à double-cliquer sur parle.vbs pour lire le contenu du fichier lecture.txt.

Vous voulez aller plus loin avec la synthèse vocale ? Téléchargez l’eBook « Je parle à mon PC et il me le rend bien » en cliquant ici : https://www.mediaforma.com/je-parle-a-mon-pc-et-il-me-le-rend-bien/

 
Commentaires

Ca ne marche pas, pouvez vous mettre une vidéo svp?

Bonjour lK,

Je viens de faire le test dans Windows 10 Creators Update et … ça fonctionne.
Assurez-vous d’avoir le fichier lecture.txt dans le même dossier que le fichier VBS. C’est ce fichier txt qui contient le texte à lire.

Cordialement,
Michel

Cela fonctionne à merveille! merci

Bonjour, J’ai utilisé les fichiers parle.vbs avec un fichier de lecture lecture.txt. ça marche très bien, mais comment arrêter la lecture ? ou comment faire une pause ? Merci !

Bonjour Annette,

Avec ce script, il n’est pas possible de faire une pause ou d’arrêter la lecture. Je vais mettre au point un nouveau script pour prendre en compte ces deux possibilités. Un article sera publié sur Mediaforma (rubrique Windows 10) la semaine prochaine à ce sujet.

A bientôt

Pouvons simplement nous donner les quelques lignes à ajouter pour permettre d’arrêter la lecture ??

Bonjour,

Je n’ai pas encore écrit l’article, mais vous pouvez vous inspirer de ceci : https://groups.google.com/forum/#!topic/microsoft.public.scripting.vbscript/viYUkZDBg50

Cordialement

Bonjour

excusez moi par avance car je suis nul en informatique.
J’ai vu que Cortana pouvez lire certain contenu et cela m’arrangerais que Cortana puisse lire mais document word.
Comment puis je faire ?
Je vous remercie par avance pour votre réponse

bien cordialement,
Gilles

peut-on lui faire lire un texte en anglais avec le bon accent svp ?

Bonjour Élodie,

Essayez d’insérer cette ligne juste après Set speech=CreateObject(« sapi.spvoice »)
Set speech.voice=speech.GetVoices.Item(1)

Est-ce que cela fonctionne pour vous ?

Pour le français et ses caractères spéciaux, il est préférable d’utiliser l’objStream car le FSO ne lit que de l’ascii.
Voici le code qui fonctionne chez moi sous Windows 10.

Dim speaks, speech
Set speech=CreateObject(« sapi.spvoice »)
Set speech.voice = speech.GetVoices.Item(3)

Dim objStream, strData
Set objStream = CreateObject(« ADODB.Stream »)
objStream.CharSet = « utf-8 »
objStream.Open
objStream.LoadFromFile(« lecture.txt »)
Do Until objStream.EOS
speech.Speak objStream.ReadText(-2)
Loop
objStream.Close
Set objStream = Nothing

Bonjour

Ca fonctionne super. Cela rappelle les « *.bat » sous MS DOS

Pourriez-vous svp, m’indiquer quelle(s) instruction(s) ajouter (et ou) dans ce listing pour faire interrompre la lecture, puis la redémarrer, en tapant sur une touche ? par exemple la touche espace ?

Merci.

Laissez un commentaire