テキスト読み上げソフトで、スレを音声で"聞こう"♪

テキスト読み上げソフトで、スレを音声で"聞こう"♪at SOFTWARE

テキスト読み上げソフトで、スレを音声で"聞こう"♪ - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

967:名無しさん＠お腹いっぱい。
 05/06/11 19:53:17 l/AmBzZ8
>>1 
Drag & Drop したテキストファイルを、読み上げてくれるスクリプトを、 
WSHとMS-AgentとMicrosoft Text-to-Speech Engine で作ったよ。 
当然、スレタイだけでなくて、スレの内容まで読んでくれる。 
（）とかは、「かっこ」「かっことじ」と変換してから読み上げる。 
 
残念ながら、顔文字やAAの部分はまともに読み上げできない。 
英語と日本語の切り替えには、失敗した。 
 
ネットしながら、耳で、２ｃｈのログを聞くってのが休日の楽しみ。

968:967
 05/06/11 20:09:38 l/AmBzZ8
'text_speech.vbs 
' 
Option Explicit 
Dim Agent1 
Dim R 'Agent オブジェクトで使用するオブジェクト変数 
Dim objFileSystem 
Dim objFile 
Dim Text1 
Dim FileName 
 
  Set Agent1 = CreateObject("Agent.Control.1") 
    Agent1.Connected=True 
    Agent1.Characters.Load "Robby","C:\Microsoft\msagent\chars\Robby.acs" '←各人の環境によって変更してください 
    Set R=Agent1.Characters("Robby") 
 
    R.LanguageID=&H0411 '日本語読み上げ 
'   R.LanguageID=&H0409 '英語読み上げの場合 
 
    R.Get "State","Showing,Speaking,Hiding" 
    R.Show 
 
    R.Get "Animation","Greet,GreetReturn" 
    R.Play "Greet" 
 
Dim objReg 
  Set objReg = New RegExp 
    objReg.IgnoreCase = True 
    objReg.Global = True                'Falseにすると、最初に一致した文字列を見つけると、それ以降の検索は行なわなくなる。

次ページ