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

すみません、4行目も書き換えてみて･･･

sleep(2)
SPEAKPAD = getid("SpeakPad",,1)
clkitem(SPEAKPAD,"設定",clk_menu or clk_short) ////////////////////// 読み上げキャラクタの設定ウインドウをクリック
getid("設定","#32770",1)
clkitem(SPEAKPAD,"キャラクタ",CLK_TAB or clk_short) /////キャラクタタブをクリック
SPEAKPAD = getid("設定","#32770",1)
clkitem(SPEAKPAD,"お姉さん",CLK_TREEVEW or clk_short) //////////////※キャラクタにお兄さんを指定
SPEAKPAD = getid("設定","#32770",1)
sokudo=SETSLIDER(SPEAKPAD, GET_SLIDER,2) //////////////////////////速度の変更
if sokudo >0 then SETSLIDER(SPEAKPAD,sokudo+1,2) /////////////////※速度を1段上げる

さらに追加
下の

SPEAKPAD = getid("設定","#32770",1)
clkitem(SPEAKPAD,"適用")
clkitem(SPEAKPAD,"OK")

1行目も書き換えてください

いろいろとお手数おかけしてスミマセン

>>936をコピペでキャラクタ＆速度の変更バッチリＯＫでした
「お姉さん」だけじゃなく「おじいさん」でも完璧です
>>937-938は以前通り変化なしでした

なにが原因でどうやって解決したのかさっぱりワカリマセン・・・でも更に快適になりました

昨日までは自分でマクロを勉強して後々はテキスト文章の最初に「☆」を付けたら「お兄さん」
「★」を付けたら「お姉さん」が読み上げるみたいな音声が混合したmp3を作る夢を描いてましたが
まだまだ遠い先の話（機能的に不可能？）になりそうですｗ

結局全てを解決していただきましてゴメンなさい
本当に有難う御座いました

よかった！
>>音声が混合したmp3を作る
自分も考えたんですけどSpeakPadでは機能的にダメみたいです。
LaLaVoiceテキストではタグ付きテキスト機能で音声やスピードも
文章の途中で変えられるみたいですが、LaLaVoiceテキストには
WAVEファイル作成機能がないので。

フリーでいい読み上げソフトありませんか？
FDブックスとかは動作不安定だし、音声の質が悪いのです

タダであるわけないだろ、買いなよ素直に。

有料でも、音質は似たようなものさ。
同じ日本語エンジンを使っているからか？

>>943がムカついたので、ViaVoiceを落としました

Excel持ってるならマクロで何とかならんかなー？
たしか標準で読み上げ機能あったはづ

>>945

>>945で落としたViaVoiceが正常にインストール出来ませんでした
有名な有料合成音声作成ソフトを教えてくれよ

>>948
ＮＴＴ　ファイナルフルート

IBM ViaVoice10 TTS
Clipboard Speakerにて300語/分でwaｖ出力。
http://up.isp.2ch.net/up/ec971cac5552.mp3

Wired News - 進化する「脳−コンピューター直結インターフェース」 - : Hotwired
http://hotwired.goo.ne.jp/news/technology/story/20050118301.html

もうこの声でなれてしまった。

ＡｔｅｒｍWR7800Hの設定をしゃべってくれるおねーさんの音声がいいのだが
あれは、音声合成ですか？

よくわからんがその音声が他と比べて物凄く良いのなら
定型文のガイドは読み上げたものをそのまま使っている
（これはまずなさそうだが、または合成音声で生成したがアクセントに関して修正を加えている）
のではないだろうか？

ViaVoice糞過ぎた
何かいいのないかねえ

>>953
どのへんが糞だった？

>>954
声が割れる
発音が所々糞
声の種類少ない
声の切り替え不便

こんなとこか

低価格帯のテキストスピーチ自体がそんなもんではないでしょうか？
このスレに触発されてlalavoiceを購入しようとしましたが現在販売されてませんでした。残念です。

有料でもいいから質がいいのが欲しいな
一番売れてるのってなんなんだろうな
マイナージャンルなんでよく分からんよ

今付き合っている彼女が聴覚障害で話すことができない。
自分で手話を勉強しつつ、彼女にパソコンを持たせて
テキスト読み上げソフトを使えば会話がなりたつかな？
と思っているんだけど現状読み上げソフトってどんな感じですか？
会話がなりたちそうですか？

>>958
ホーキング博士がパソコンを使ってはなしていたね。
打込み速度とか変換速度によって一呼吸置くようなしゃべり方っだったような。
入力装置は、片手で行っていたように思います。
画面（液晶）に単語が登録されていて選択してたようにみえた。
実際見たり聞いたりは、していませんが、ＴＶの特集番組でよくお会いしてました。
博士も家族も今の声（パソコで変換された声）が気にいいているとコメントしてたよ。
友達の彼女も同じ障害があるが、携帯のメールでやりとりしてたよ。
発信はせずに画面に文字を打込み彼に見せた。
普通の会話は、特に困らないといってたが。
インターネットとＥメールの普及をとても喜んでいたよ。
あまり参考にならないな。ごめんね

>>958
ホーキング博士　 機器
などの単語でＧｏｏｇｌｅでいろいろでてきます。
会話補助装置など
携帯電話ぐらいのサイズでほいいよね。

たしかポケットPCのPDA端末にTTS機能がついたのがあったような

>959
レスさんくす。ホーキング博士検索して参考にしてみる。
＞携帯のメールでやりとりしてたよ。
＞発信はせずに画面に文字を打込み彼に見せた。
今まさにこれをやってます。
運転中だとできないのと、やはり彼女を喜ばせたい気持ちで、
読み上げソフトを考えてます。
色々ありがとうございます。

>>958
959です。
たびたびどうもすみません。
上で話があったＬａＬａｖｏiceが、ＴＯＵＳＨＩＢＡ　Libretto　U100　に搭載されています。
量販店で確認されたらいかがでしょうか。
これならどうにかなるかもしれない。
小さいからどうにか持ち運びができるとおもいます。

>>958
手話を覚えた方が絶対によい。
会話補助装置は、手も口も動かせない人向けの最終手段だと思う。

手話の手の動きをセンサーで解析して、TTSで文字と音声として出力できたら神

>>965
手の動きと頭の動きを利用した「手話−日本語翻訳技術」を開発
ttp://www.itmedia.co.jp/news/bursts/0109/26/hitachi.html
手話認識・生成技術の研究
ttp://www2.nict.go.jp/jt/a131/research/univ.html

>>1
Drag & Drop したテキストファイルを、読み上げてくれるスクリプトを、
WSHとMS-AgentとMicrosoft Text-to-Speech Engine で作ったよ。
当然、スレタイだけでなくて、スレの内容まで読んでくれる。
（）とかは、「かっこ」「かっことじ」と変換してから読み上げる。

残念ながら、顔文字やAAの部分はまともに読み上げできない。
英語と日本語の切り替えには、失敗した。

ネットしながら、耳で、２ｃｈのログを聞くってのが休日の楽しみ。

'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にすると、最初に一致した文字列を見つけると、それ以降の検索は行なわなくなる。

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)

' ┌
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

こんな機能つけてほしい、という希望があれば、
ソースを乗っけといたので、各自、書き換えてみて下さい。

>>967
スレ最初からきちんと嫁。
その質のものを再発明するメリットはゼロだ。

>>971
だけど、自作できるのはすごいよ！
おれはプログラミングは頓珍漢だから、尊敬する。

幼女声、少女声、大人の女声、、とか、できればいいのだけど、winXPではむりっぽなのかなぁ

最近↓を見つけたんだけど、既出？

akJ Speechtools
ttp://www.xucker.jpn.org/product/speechtools.html

既出でしたね。すまん。

>>972
機能拡張して、ソースを公開して下さいな。

>>973
MicroSoft Agent のキャラの声は、ロボット、オウム、召使いの男、
それと、魔法使いのお爺さん。
萌えキャラはいない。

自分でAgentキャラを作って公開してる人も居るようだけどね。

>>974
　そうか、既出ってことはGalateaTalkと機能は同じってことなのか。でも、このソフトを初めて知ったよ。
情報ありがとう。
　少なくともこいつには読み上げ機能が付いてるんだから、SAPIで使えるようになってればなあと思う。
スクリーンリーダーの音声として使ってみたい。エンジンだけ出してくれないかな？

萌えキャラのMS Agent
ttp://sannkakukin.hp.infoseek.co.jp/Mychars.htm
日本語エンジンの女声って男にしか聞こえない　orz

!

　

>>973
PCのスピーカにボイスチェンジャーをかませればいいかもしんない。

( ´ー｀)

梅

>>982

まったりしてる場合かよ。

ネットワークカメラの動作検知と連動させて、パソコンの前に居る時だけ、
テキスト読み上げしてくれたり、しゃべりかけたりしてくれると良いな。