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

1 名前：名無しさん＠お腹いっぱい。 [03/02/05 21:11 ID:Qu6W8aHC] 音声読み上げソフトは、革命的にメチャメチャ便利！！ ２ちゃんねるのスレを、まるでラジオのように音声で聞いてみませんか？ パソコンに文章を読ませることで、目が疲れず よりたくさんのネット上の情報をPCから引き出すことができます。 吉野家などのあのゴルゴのFLASHも読み上げソフトを利用しているそうです。 すでに利用している方や、知らない人の情報交換の場所にしたいと思います。 つづき>>2-5 965 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/03(金) 15:38:55 ID:TM2GJJ0N] 手話の手の動きをセンサーで解析して、TTSで文字と音声として出力できたら神 966 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/03(金) 18:00:34 ID:oyUSeGii] >>965 手の動きと頭の動きを利用した「手話−日本語翻訳技術」を開発 ttp://www.itmedia.co.jp/news/bursts/0109/26/hitachi.html 手話認識・生成技術の研究 ttp://www2.nict.go.jp/jt/a131/research/univ.html 967 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/11(土) 19:53:17 ID:l/AmBzZ8] >>1 Drag & Drop したテキストファイルを、読み上げてくれるスクリプトを、 WSHとMS-AgentとMicrosoft Text-to-Speech Engine で作ったよ。 当然、スレタイだけでなくて、スレの内容まで読んでくれる。 （）とかは、「かっこ」「かっことじ」と変換してから読み上げる。 残念ながら、顔文字やAAの部分はまともに読み上げできない。 英語と日本語の切り替えには、失敗した。 ネットしながら、耳で、２ｃｈのログを聞くってのが休日の楽しみ。 968 名前：967 mailto:sage [2005/06/11(土) 20:09:38 ID: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 mailto:sage [2005/06/11(土) 20:10:57 ID: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 mailto:sage [2005/06/11(土) 20:13:08 ID: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?tp://[\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 mailto:sage [2005/06/11(土) 20:17:06 ID:l/AmBzZ8] こんな機能つけてほしい、という希望があれば、 ソースを乗っけといたので、各自、書き換えてみて下さい。 972 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/11(土) 23:09:07 ID:49ZOaggO] >>967 スレ最初からきちんと嫁。 その質のものを再発明するメリットはゼロだ。 973 名前：名無しさん＠お腹いっぱい。 [2005/06/11(土) 23:49:30 ID:YXJ4EaSn] >>971 だけど、自作できるのはすごいよ！ おれはプログラミングは頓珍漢だから、尊敬する。 幼女声、少女声、大人の女声、、とか、できればいいのだけど、winXPではむりっぽなのかなぁ 974 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/11(土) 23:58:14 ID:R6Vd2o7v] 最近↓を見つけたんだけど、既出？ akJ Speechtools ttp://www.xucker.jpn.org/product/speechtools.html 975 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/12(日) 00:00:57 ID:R6Vd2o7v] 既出でしたね。すまん。 976 名前：967 mailto:sage [2005/06/12(日) 00:02:22 ID:tz8o5QwT] >>972 機能拡張して、ソースを公開して下さいな。 >>973 MicroSoft Agent のキャラの声は、ロボット、オウム、召使いの男、 それと、魔法使いのお爺さん。 萌えキャラはいない。 自分でAgentキャラを作って公開してる人も居るようだけどね。 977 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/12(日) 15:12:56 ID:+h0fFGqI] >>974 　そうか、既出ってことはGalateaTalkと機能は同じってことなのか。でも、このソフトを初めて知ったよ。 情報ありがとう。 　少なくともこいつには読み上げ機能が付いてるんだから、SAPIで使えるようになってればなあと思う。 スクリーンリーダーの音声として使ってみたい。エンジンだけ出してくれないかな？ 978 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/12(日) 22:01:04 ID:sEgcbW1T] 萌えキャラのMS Agent ttp://sannkakukin.hp.infoseek.co.jp/Mychars.htm 日本語エンジンの女声って男にしか聞こえない　orz 979 名前：名無しさん＠お腹いっぱい。 [2005/06/13(月) 19:25:04 ID:WU6mkMP6] ! 980 名前：名無しさん＠お腹いっぱい。 [2005/06/13(月) 20:48:04 ID:BdpcWgYi] 　 981 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/14(火) 01:58:24 ID:/Oi+jpV0] >>973 PCのスピーカにボイスチェンジャーをかませればいいかもしんない。 982 名前：名無しさん＠お腹いっぱい。 [2005/06/14(火) 13:16:39 ID:I5gqFEjO] ( ´ー｀) 983 名前：名無しさん＠お腹いっぱい。 [2005/06/14(火) 17:40:44 ID:nEzQ2U7i] 梅 984 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/14(火) 18:00:28 ID:neSJp/Tf] >>982 まったりしてる場合かよ。 985 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/14(火) 23:29:07 ID:CTJx3WAT] ネットワークカメラの動作検知と連動させて、パソコンの前に居る時だけ、 テキスト読み上げしてくれたり、しゃべりかけたりしてくれると良いな。 986 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/06/15(水) 16:18:51 ID:qrr3D4Ut] 987 名前：名無しさん＠お腹いっぱい。 [2005/06/15(水) 21:06:39 ID:MdIbvwLH]

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef