Highlight the spoken word

SetTitleMatchMode 2
EM_SETSEL := 0x00B1

Run notepad,,,pid
WinWaitActive ahk_pid %pid%
ControlSetText, Edit1, % text := "AutoHotkey was the first to implement this task! ", ahk_pid %pid%

pVoice := ComObjCreate("Sapi.spvoice"), i := 1 ; the spvoice COM Object ships with the OS

; parse the text
While lf := SubStr(text, i, 1)
{
   If lf = %A_Space%
   {
      SendMessage, EM_SetSel, % i-StrLen(word)-1, % i-1, Edit1, ahk_pid %pid%
      pVoice.speak(word), word := "", i++
   }
   Else word .= lf, i++
}

''This works on Windows. Does anyone know how it would be done in Linux?

Sub Speak(Texto As String)
    Shell "mshta vbscript:Execute(""CreateObject(""""SAPI.SpVoice"""").Speak("""""+Texto+""""")(window.close)"")"
End Sub

Function Split(Texto As String, SplitL As String, Direcc As Byte = 0) As String
    Dim As Integer LocA = Instr(Texto, SplitL)
    Return Iif(Direcc <= 0, Left(Texto, LocA), Right(Texto, Len(Texto) - LocA))
End Function

Dim As String texto = "Actions speak louder than words"
Dim As String palabra()
Dim As Integer cont = -1
Do
    cont += 1
    Redim Preserve palabra(cont)
    palabra(cont) = Split(texto," ")
    texto = Right(texto, Len(texto)-Len(palabra(cont)))
    If Len(palabra(cont)) = 0 Then palabra(cont) = texto : Exit Do
Loop

For n As Integer = 0 To Ubound(palabra)
    Print palabra(n)
    Speak palabra(n)
Next n

package main

import (
    "fmt"
    "log"
    "os/exec"
    "strings"
    "time"
)

func main() {
    s := "Actions speak louder than words."
    prev := ""
    prevLen := 0
    bs := ""
    for _, word := range strings.Fields(s) {
        cmd := exec.Command("espeak", word)
        if err := cmd.Run(); err != nil {
            log.Fatal(err)
        }
        if prevLen > 0 {
            bs = strings.Repeat("b", prevLen)
        }
        fmt.Printf("%s%s%s ", bs, prev, strings.ToUpper(word))
        prev = word + " "
        prevLen = len(word) + 1
    }
    bs = strings.Repeat("b", prevLen)
    time.Sleep(time.Second)
    fmt.Printf("%s%sn", bs, prev)
}

function speak(sentence, cmd = "/utl/espeak.bat")
    for word in split(sentence)
        s = replace(lowercase(word), r"[^a-z]" => "")
        if length(s) > 0
            print(uppercase(s))
            run(`$cmd $s`)
            sleep(1)
            print("b"^length(s))
        end
        print(word, " ")
    end
end

speak("Are those 144 shy Eurasian footwear, cowboy chaps, or jolly earthmoving headgear?")

Module UsingEvents {
      Form 60, 32
      Cls 5, 0
      Pen 14
      Declare WithEvents sp "SAPI.SpVoice"
      That$="Rosetta Code is a programming chrestomathy site"
      margin=(width-Len(That$))/2
      EndStream=False
      \ this function called as sub routine - same scope as Module
      \ we can call it from event function too
      Function Localtxt {
            \ move the cursor to middle line
            Cursor 0, height/2
            \ using OVER the line erased with background color and then print text over
            \ ordinary Print using transparent printing of text
            \ $(0) set mode to non proportional text, @() move the cursor to sepecific position
            Print Over $(0),@(margin), That$
      }
      Call Local LocalTxt()
      Function sp_Word {
            Read New StreamNumber, StreamPosition, CharacterPosition, Length
            Call Local LocalTxt()
            Cursor 0, height/2
            Pen 15 {Print Part $(0), @(CharacterPosition+margin); Mid$(That$, CharacterPosition+1, Length)}
            Refresh
      }
      Function sp_EndStream {
            Refresh
            EndStream=True
      }
      Const  SVEEndInputStream = 4
      Const  SVEWordBoundary = 32
      Const SVSFlagsAsync = 1&
 
      With sp, "EventInterests", SVEWordBoundary+SVEEndInputStream
      Method sp, "Speak", That$, SVSFlagsAsync
      While Not EndStream {Wait 10}
      Call Local LocalTxt()
}
UsingEvents

DynamicModule[{text = "This is some text.", words, i = 0}, 
 Panel@Column@{Dynamic[
     Row[Riffle[
       If[i != 0, MapAt[Style[#, Red] &, #, i], #] &@(words = 
          StringSplit@text), " "]]], InputField[Dynamic@text, String],
     Button["Speak", 
     While[i < Length@words, i++; FinishDynamic[]; Speak[words[[i]]]; 
      Pause[Max[0.7, 0.12 StringLength[words[[i]]]]]]; i = 0]}]

import os, osproc, strutils

const S = "Actions speak louder than words."

var prev, bs = ""
var prevlen = 0

for word in S.splitWhitespace():
  discard execProcess("espeak " & word)
  if prevlen > 0:
    bs = repeat('b', prevlen)
  stdout.write bs, prev, word.toUpper, ' '
  stdout.flushFile()
  prev = word & ' '
  prevlen = word.len + 1

bs = repeat('b', prevlen)
sleep(1000)
echo bs, prev

# 20200826 Raku programming solution

my s = "Actions speak louder than words.";
my prev = $ = "";
my prevLen = $ = 0;
my bs = $ = "";

for s.split(' ', :skip-empty) {
   run "/usr/bin/espeak", $_ or die;
   bs = "b" x prevLen if prevLen > 0;
   printf "%s%s%s ", bs, prev, $_.uc;
   prev = "$_ ";
   prevLen = $_.chars + 1
}

printf "%s%sn", "b" x prevLen, prev;

/*REXX program uses a command line interface to invoke Windows SAM for speech synthesis.*/
parse arg t                                      /*get the (optional) text from the C.L.*/
#= words(t)
if #==0  then exit                               /*Nothing to say?    Then exit program.*/
dq= '"'                                          /*needed to enclose text in dbl quotes.*/
rate= 1                                          /*talk:   -10 (slow)   to   10 (fast). */
                                                 /* [↓]  where the rubber meets the road*/
   do j=1  for #
   x= word(t, j);          upper x               /*extract 1 word, capitalize it for HL.*/
   if j==1  then LHS=                            /*obtain text before the spoken word.  */
            else LHS= subword(t, 1, j-1)
   if j==#  then RHS=                            /*obtain text  after the spoken word.  */
            else RHS= subword(t, j+1)
   'CLS'                                         /*use this command to clear the screen.*/
   say 'speaking: '   space(LHS  x  RHS)         /*show text,  one word is capitalized. */
   oneWord= dq  x  dq                            /*surround a word in double quotes (").*/
   'NIRCMD'  "speak text"    oneWord     rate    /*NIRCMD  invokes Microsoft's Sam voice*/
   end   /*j*/                                   /*stick a fork in it,  we're all done. */

load "guilib.ring"

MyApp = New qApp {

        win1 = new qWidget() {

                setwindowtitle("Hello World")
                setGeometry(100,100,370,250)

                Text = "Welcome to the Ring Programming Language"
                Text = split(Text," ")

                label1 = new qLabel(win1) {
                        settext("What is your name ?")
                        setGeometry(10,20,350,30)
                        setalignment(Qt_AlignHCenter)
                }

                btn1 = new qpushbutton(win1) {
                        setGeometry(10,200,100,30)
                        settext("Say Hello")
                        setclickevent("pHello()")
                }

                btn2 = new qpushbutton(win1) {
                        setGeometry(150,200,100,30)
                        settext("Close")
                        setclickevent("pClose()")
                }

                lineedit1 = new qlineedit(win1) {
                        setGeometry(10,100,350,30)
                }

                voice = new QTextToSpeech(win1) {                        
                }
                show()
        }
        exec()}

Func pHello
     lineedit1.settext( "Hello " + lineedit1.text())
     for n = 1 to len(Text)
         voice.Say(Text[n])
         see Text[n] + nl
     next

Func pClose
     MyApp.quit()

load 'speechsynthesis.rb'

if ARGV.length == 1
  $text = "This is default text for the highlight and speak program"
else
  $text = ARGV[1..-1].join(" ")
end
$words = $text.split

Shoes.app do
  @idx = 0

  stack do
    @sentence = para(strong($words[0] + " "), $words[1..-1].map {|word| span(word + " ")})
    button "Say word" do
      say_and_highlight
    end
  end

  keypress do |key|
    case key
    when :control_q, "x11" then exit
    end
  end

  def say_and_highlight
    speak $words[@idx]
    @idx = (@idx + 1) % $words.length
    @sentence.replace($words.each_with_index.map {|word, idx| idx == @idx ? strong(word + " ") : span(word + " ")})
  end
end

package require Tcl 8.5
package require Tk 8.5
proc say {text button} {
    grab $button
    $button configure -state disabled -cursor watch
    update
    set starts [$text search -all -regexp -count lengths {S+} 1.0]
    foreach start $starts length $lengths {
	lappend strings [$text get $start "$start + $length char"]
	lappend ends [$text index "$start + $length char"]
    }
    $text tag remove sel 1.0 end
    foreach from $starts str $strings to $ends {
	$text tag add sel $from $to
	update idletasks
	exec /usr/bin/say << $str
	$text tag remove sel 1.0 end
    }
    grab release $button
    $button configure -state normal -cursor {}
}

pack [text .t]
pack [button .b -text "Speak, computer!" -command {say .t .b}] -fill x
.t insert 1.0 "This is an example of speech synthesis with Tcl/Tk."

/* speech_engine_highlight_words.wren */

import "./str" for Str

class C {
    foreign static usleep(usec)

    foreign static espeak(s)

    foreign static flushStdout()
}

var s = "Actions speak louder than words."
var prev = ""
var prevLen = 0
var bs = ""
for (word in s.split(" ")) {
    if (prevLen > 0) bs = "b" * prevLen
    System.write("%(bs)%(prev)%(Str.upper(word)) ")
    C.flushStdout()
    C.espeak(word)
    prev= word + " "
    prevLen = word.count + 1
}
bs = "b" * prevLen
C.usleep(1000)
System.print("%(bs)%(prev)")

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include "wren.h"

void C_usleep(WrenVM* vm) {
    useconds_t usec = (useconds_t)wrenGetSlotDouble(vm, 1);
    usleep(usec);
}

void C_espeak(WrenVM* vm) {
    const char *arg = wrenGetSlotString(vm, 1);
    char command[strlen(arg) + 10];
    strcpy(command, "espeak "");
    strcat(command, arg);
    strcat(command, """);
    system(command);
}

void C_flushStdout(WrenVM* vm) {
    fflush(stdout);
}

WrenForeignMethodFn bindForeignMethod(
    WrenVM* vm,
    const char* module,
    const char* className,
    bool isStatic,
    const char* signature) {
    if (strcmp(module, "main") == 0) {
        if (strcmp(className, "C") == 0) {
            if (isStatic && strcmp(signature, "usleep(_)") == 0)     return C_usleep;
            if (isStatic && strcmp(signature, "espeak(_)") == 0)     return C_espeak;
            if (isStatic && strcmp(signature, "flushStdout()") == 0) return C_flushStdout;
        }
    }
    return NULL;
}

static void writeFn(WrenVM* vm, const char* text) {
    printf("%s", text);
}

char *readFile(const char *fileName) {
    FILE *f = fopen(fileName, "r");
    fseek(f, 0, SEEK_END);
    long fsize = ftell(f);
    rewind(f);
    char *script = malloc(fsize + 1);
    fread(script, 1, fsize, f);
    fclose(f);
    script[fsize] = 0;
    return script;
}

static void loadModuleComplete(WrenVM* vm, const char* module, WrenLoadModuleResult result) {
    if( result.source) free((void*)result.source);
}

WrenLoadModuleResult loadModule(WrenVM* vm, const char* name) {
    WrenLoadModuleResult result = {0};
    if (strcmp(name, "random") != 0 && strcmp(name, "meta") != 0) {
        result.onComplete = loadModuleComplete;
        char fullName[strlen(name) + 6];
        strcpy(fullName, name);
        strcat(fullName, ".wren");
        result.source = readFile(fullName);
    }
    return result;
}

int main(int argc, char **argv) {
    WrenConfiguration config;
    wrenInitConfiguration(&config);
    config.writeFn = &writeFn;
    config.bindForeignMethodFn = &bindForeignMethod;
    config.loadModuleFn = &loadModule;
    WrenVM* vm = wrenNewVM(&config);
    const char* module = "main";
    const char* fileName = "speech_engine_highlight_words.wren";
    char *script = readFile(fileName);
    wrenInterpret(vm, module, script);
    wrenFreeVM(vm);
    free(script);
    return 0;
}

Words in the message window will, by default, be highlighted as they are spoken. To customize the highlighting:
1.  Select the Settings button located in the toolbar.

Note: If the Toolbar is hidden, first select the Edit Button  at the top right corner of your screen.

2. Select Voice Settings from the Settings menu. The Settings menu will open.
3. Next to Highlighting, select Configure. The Highlighting menu will open.

4. Select a highlight type from the drop-down list.

• Remove From My Forums

• Question

• Hi, I have tried everything to get System.Soeech to highlight the spoken words in a WPF RichTextBox and have failed . . .

  I am using a TextRange to Speak the text of the WPF RichTextBox — no problem there!

  But SpeakProgress — e.CharacterPosition does not correspond to the character position in the WPF RichTextBox

  I got this far in the SpeakProgress() method, but it keeps highlighting the wrong words

  TextRange text = new TextRange(start, this.CurrentlySpeakingRichTextBox.Document.ContentEnd);
                          TextPointer current = text.Start.GetInsertionPosition(LogicalDirection.Forward);

                          while (current != null)
                          {
                              string textInRun = current.GetTextInRun(LogicalDirection.Forward);

                              if (!string.IsNullOrWhiteSpace(textInRun))
                              {
                                  int index = textInRun.IndexOf(aWord);
                                  if (index != -1)
                                  {
                                      TextPointer selectionStart = current.GetPositionAtOffset(index, LogicalDirection.Forward);
                                      TextPointer selectionEnd = selectionStart.GetPositionAtOffset(aWord.Length, LogicalDirection.Forward);
                                      TextRange selection = new TextRange(selectionStart, selectionEnd);
                                      this.RichTextBoxPointer = selectionStart;
                                      this.CurrentlySpeakingRichTextBox.Selection.Select(selection.Start, selection.End);
                                     // rtb.Focus();
                                  }
                              }
                              current = current.GetNextContextPosition(LogicalDirection.Forward);
                          }

  Please, anyone  . . . Help!

  • Edited by

    Sunday, May 22, 2016 2:44 PM

  • Moved by
    Moonlight ShengMicrosoft contingent staff
    Monday, May 23, 2016 5:43 AM

Similar questions

• Spoken text on iPad is not working
  In accessibility, on the iPad, it has an option of spoken content. With in the settings of spoken text is highlighting, options are words, sentences, and words and sentences. However, when words is chosen spoken content does not highlight the word as it is spoken, nor does it highlight sentences when that optioned is checked. The only thing spoken text does under highlighting is to highlight the entire page. I would like to know how to fix it. I have checked an option closed it out restarted my iPad opened it back up and it still doesn’t work I’ve done this for all options. I need it’s a highlight the word as it is spoken. Which is what the iPad says that it will do. I have tried this in Kindle, books, a PDF, as well as Pages, Numbers, and iOSmail.
  it is very frustrating.
  Christy
  

  310
  3
  

• text to speech
  how do i enable speech, so that when i highlight text even on a pdf, the computer reads aloud the highlighted text
  

  169
  3
  

• Highlighting text and then speak text is not working
  Highlighting text and then speak text is not working.
  this is not an issue with Siri. This is an issue I have one highlighting a text whether it is in the notepad, online or in an email. I used to be able to highlight it and then tap speak and it would read it to me. That does not happen anymore and I’ve been poking around in the The iPhone system and I have not been able to figure out what I can do To resolve my problem.
  

  124
  2
  

0

You must log in to answer this question.

Not the answer you’re looking for? Browse other questions tagged

.