LiveCode Forums.

Code: Select all

put revSpeechVoices() into voicesList

Code: Select all

Agnes               en_US    # Isn't it nice to have a computer that will talk to you?
Albert              en_US    #  I have a frog in my throat. No, I mean a real frog!
Alex                en_US    # Most people recognize me by my voice.
Amelie              fr_CA    # Bonjour, je m’appelle Amelie. Je suis une voix canadienne.
Bad News            en_US    # The light you see at the end of the tunnel is the headlamp of a fast approaching train.
Bahh                en_US    # Do not pull the wool over my eyes.
Bells               en_US    # Time flies when you are having fun.
Boing               en_US    # Spring has sprung, fall has fell, winter's here and it's colder than usual.
Bruce               en_US    # I sure like being inside this fancy computer
Bubbles             en_US    # Pull the plug! I'm drowning!
Cellos              en_US    # Doo da doo da dum dee dee doodly doo dum dum dum doo da doo da doo da doo da doo da doo da doo
Deranged            en_US    # I need to go on a really long vacation.
Diego               es_ES    # Hola, me llamo Diego y soy una voz española.
Fred                en_US    # I sure like being inside this fancy computer
Good News           en_US    # Congratulations you just won the sweepstakes and you don't have to pay income tax again.
Hysterical          en_US    # Please stop tickling me!
Ioana               ro_RO    # Bună, mă cheamă Ioana . Sunt o voce românească.
Junior              en_US    # My favorite food is pizza.
Kathy               en_US    # Isn't it nice to have a computer that will talk to you?
Kyoko               ja_JP    # こんにちは、私の名前はKyokoです。日本語の音声をお届けします。
Luca                it_IT    # Salve, mi chiamo Luca e sono una voce italiana.
Monica              es_ES    # Hola, me llamo Monica y soy una voz española.
Petra               de_DE    # Hallo, ich heiße Petra und ich bin eine deutsche Stimme.
Pipe Organ          en_US    # We must rejoice in this morbid voice.
Princess            en_US    # When I grow up I'm going to be a scientist.
Ralph               en_US    # The sum of the squares of the legs of a right triangle is equal to the square of the hypotenuse.
Trinoids            en_US    # We cannot communicate with these carbon units.
Vicki               en_US    # Isn't it nice to have a computer that will talk to you?
Victoria            en_US    # Isn't it nice to have a computer that will talk to you?
Whisper             en_US    # Pssssst, hey you, Yeah you, Who do ya think I'm talking to, the mouse?
Zarvox              en_US    # That looks like a peaceful planet.

Code: Select all

on mouseUp
   put shell("say -v ?") into tVoices
   put extract_voices(tVoices) into fld 2
end mouseUp

function extract_voices tVoices
   ## The TRICK: Just replace 2 spaces with a TAB :-)
   replace "  " with TAB in tVoices
   split tVoices by CR and TAB
   put the keys of tVoices into tVoiceList
   sort tVoiceList
   return tVoiceList
end extract_voices

Code: Select all

on mouseUp
   put the clipboardData ["html"] into thtml
   replace " " with " " in thtml
   set the clipboardData ["html"] to tHTML
end mouseUp

Code: Select all

    put revXMLNodeContents(sXMLID, "english/forver8/lastversion") into lastversion
          put revXMLNodeContents(sXMLID, "english/forver8/downloadurl") into downloadurl
          put revXMLNodeContents(sXMLID, "english/forver8/titletext") into titletext
          put revXMLNodeContents(sXMLID, "english/forver8/infotext") into infotext

Code: Select all

-- p and pView are my Log handlers

  if matchText( theText, "<lastversion>(.*)</lastversion>", lastversion) then
     p  "Hey, I find for lastversion: " & lastversion
  end if
  if matchText( theText, "<(downloadurl)>(.*)</\1>", dummy,downloadurl) then
     p  "Hey, I find for downloadurl: " & downloadurl
  end if
  if matchText( theText, "<(titletext)>(.*)</\1>", dummy,titletext) then
     p  "Hey, I find for titletext: " & titletext
  end if
  if matchText( theText, "(?s)<(infotext)>(.*)</\1>", dummy,infotext) then
     p  "Hey, I find for infotext: " & infotext
  end if
  p "----------"
  pView

Code: Select all

on mouseUp
    put shell("say -v ?") into theVoiceList
   put getVoiceNames(theVoiceList) 
end mouseUp

function getVoiceNames theVoiceList
   split theVoiceList by cr and "_"
   put the keys of theVoiceList into theVoiceList
   sort theVoiceList
   repeat for each line cLine in theVoiceList
      delete word -1 of cline
      put word 1 to 2 of cline & cr after output
   end repeat
   delete char -1 of output
   return output
end getVoiceNames