Médiaforma

Ajouter le nom du jour de la semaine dans la date

Print Friendly

Un internaute m’a demandé s’il était possible d’ajouter le nom de la semaine dans un message parlé avec SAPI Voice. Cette rubrique va montrer comment procéder à tous ceux et celles qui pourraient être intéressés par cette manipulation.

Si nécessaire, consultez les sections « Un message vocal au démarrage du PC » et « Faire parler Windows en Français » pour en savoir plus sur les techniques utilisées pour faire parler Windows.

Voici à quoi pourrait ressembler le fichier Bonjour.vbs qui donne le jour et la date système.

Dim speaks, speech
speaks= »Nous sommes  » & WeekDayName(WeekDay(now)) & date()
Set speech=CreateObject(« sapi.spvoice »)
speech.Speak speaks
speaks= »Il est « & time()
speech.Speak speaks

La deuxième ligne définit la date complète et la stocke dans la variable speaks.

Now renvoie la date courante.

Weekday(Now) renvoie un nombre compris entre 1 et 7 qui représente le nom du jour. 1 correspond à Dimanche, 2 à Lundi, etc.

Enfin, WeekDayName(WeekDay(now)) renvoie le nom du jour de la semaine.

Ecoutons le résultat en double-cliquant sur l’icône de raccourci qui représente ce code VBScript.

Vous avez aimé cet article ? Partagez-le avec vos réseaux...
 
Comments

ya t il des trucs a modifier?

Leave a Reply