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