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にすると、最初に一致した文字列を見つけると、それ以降の検索は行なわなくなる。
969:967
05/06/11 20:10:57 l/AmBzZ8
Do
FileName = InputBox("Please Input Text File Name.", ,Wscript.Arguments(0)) 'Wscript.Arguements(0)
If FileName = "" Then Exit Do
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
' ┌
If objFileSystem.FileExists(FileName)=False Then
' ｜
Do
FileName = InputBox("指定したファイルが存在しません。もう一度入力し直してください")
Loop Until objFileSystem.FileExists(FileName) Or FileName=""
' ｜
End If
' └
If FileName = "" Then Exit Do
Set objFile = objFileSystem.OpenTextFile(FileName)
970:967
05/06/11 20:13:08 l/AmBzZ8
' ┌
Do Until objFile.AtEndOfStream = True
Text1 = objFile.ReadLine
Text1 = Replace (Text1, "（", "、かっこ、")
Text1 = Replace (Text1, "）", "、かっことじ、")
objReg.Global = True
objReg.Pattern = "[-=*_－＝＊☆★￣＿]{3}" ' 同じ文字の３個以上の繰り返しを除去
Text1 = objReg.Replace(Text1,"")
objReg.Global = False
objReg.Pattern = "[fh]?t?URLﾘﾝｸ([\41-\177)》]*" 'URLアドレス部は、読み上げない仕様にします。
Text1 = objReg.Replace(Text1,"httpコロン 以下略:")
' ｜
If Text1<>"" Then R.Speak Text1
' ｜
Loop
' └
R.LanguageID=&H0411 : R.Speak "以上で、読み上げを終了します。"
objFile.Close
Loop
R.Hide
971:967
05/06/11 20:17:06 l/AmBzZ8
こんな機能つけてほしい、という希望があれば、
ソースを乗っけといたので、各自、書き換えてみて下さい。
972:名無しさん＠お腹いっぱい。
05/06/11 23:09:07 49ZOaggO
>>967
スレ最初からきちんと嫁。
その質のものを再発明するメリットはゼロだ。
973:名無しさん＠お腹いっぱい。
05/06/11 23:49:30 YXJ4EaSn
>>971
だけど、自作できるのはすごいよ！
おれはプログラミングは頓珍漢だから、尊敬する。
幼女声、少女声、大人の女声、、とか、できればいいのだけど、winXPではむりっぽなのかなぁ
974:名無しさん＠お腹いっぱい。
05/06/11 23:58:14 R6Vd2o7v
最近↓を見つけたんだけど、既出？
akJ Speechtools
URLﾘﾝｸ(www.xucker.jpn.org)
975:名無しさん＠お腹いっぱい。
05/06/12 00:00:57 R6Vd2o7v
既出でしたね。すまん。
976:967
05/06/12 00:02:22 tz8o5QwT
>>972
機能拡張して、ソースを公開して下さいな。
>>973
MicroSoft Agent のキャラの声は、ロボット、オウム、召使いの男、
それと、魔法使いのお爺さん。
萌えキャラはいない。
自分でAgentキャラを作って公開してる人も居るようだけどね。
977:名無しさん＠お腹いっぱい。
05/06/12 15:12:56 +h0fFGqI
>>974
そうか、既出ってことはGalateaTalkと機能は同じってことなのか。でも、このソフトを初めて知ったよ。
情報ありがとう。
少なくともこいつには読み上げ機能が付いてるんだから、SAPIで使えるようになってればなあと思う。
スクリーンリーダーの音声として使ってみたい。エンジンだけ出してくれないかな？
978:名無しさん＠お腹いっぱい。
05/06/12 22:01:04 sEgcbW1T
萌えキャラのMS Agent
URLﾘﾝｸ(sannkakukin.hp.infoseek.co.jp)
日本語エンジンの女声って男にしか聞こえない orz
979:名無しさん＠お腹いっぱい。
05/06/13 19:25:04 WU6mkMP6
!
980:名無しさん＠お腹いっぱい。
05/06/13 20:48:04 BdpcWgYi
981:名無しさん＠お腹いっぱい。
05/06/14 01:58:24 /Oi+jpV0
>>973
PCのスピーカにボイスチェンジャーをかませればいいかもしんない。
982:名無しさん＠お腹いっぱい。
05/06/14 13:16:39 I5gqFEjO
( ´ー｀)
983:名無しさん＠お腹いっぱい。
05/06/14 17:40:44 nEzQ2U7i
梅
984:名無しさん＠お腹いっぱい。
05/06/14 18:00:28 neSJp/Tf
>>982
まったりしてる場合かよ。
985:名無しさん＠お腹いっぱい。
05/06/14 23:29:07 CTJx3WAT
ネットワークカメラの動作検知と連動させて、パソコンの前に居る時だけ、
テキスト読み上げしてくれたり、しゃべりかけたりしてくれると良いな。
986:名無しさん＠お腹いっぱい。
05/06/15 16:18:51 qrr3D4Ut
987:名無しさん＠お腹いっぱい。
05/06/15 21:06:39 MdIbvwLH