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

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

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

次ページ

続きを表示

1を表示