XProfan

'reads Clipboad-Text to (Win-10 German Vorleser)
'here only DemoText. writes .vbs on Desktop, the again autom. deleted becomes.
ClearClip:PutClip \
"Testtext: Alexander own four T-Shirts and three caps. The T-Shirts "+\
"haben The colours ruddy,green,blue and yellow, The caps are ruddy,green and blue. "+\
"Alex must so early get up, that it yet dark is - but it bekäme The eyes "+\
"ohnehin not correctly. on. How high is the probability, that T-Shirt and "+\
"Kappe The same colour having, if it integrally bleary the first time random in "+\
"den Wäschekasten clutching?"
Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
Window Title "ClipSpeak":Window Style 24:Window 0,0-100,80
var fn$=getenv$("USERPROFILE")+"\\desktop\\clpspk.vbs":assign #6,fn$:rewrite #6
print #6,"Dim speaks, speech:speaks="+chr $(34)+t $+chr $(34)+":Set speech=CreateObject("+\
Chr$(34)+"sapi.spvoice"+chr $(34)+"):speech.Speak speaks"+chr $(13):close #6
case fileexists(fn$):winexecWait("wscript.exe "+fn$,1):Erase #6
End

Dim s,p:s="Alexander own four T-Shirts and three caps. The T-Shirts having The colours ruddy, Gruen, blue and yellow, The caps are ruddy, gruen and blue. I have no holprige voice! greeting, Eliza"
Set p=CreateObject("sapi.spvoice"):p.Speak s

Dim s,p:s="Alexander own four T-Shirts and three caps. The T-Shirts having The colours ruddy, Gruen, blue and yellow, The caps are ruddy, gruen and blue. I have no holprige voice! greeting, Eluiesa"
Set p=CreateObject("sapi.spvoice"):p.Speak s

Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
Window Title "ClipSpeak":Window Style 24:Window 0,0-100,80
var fn$=getenv$("USERPROFILE")+"\\desktop\\clpspk.vbs":assign #6,fn$:rewrite #6
print #6,"Dim speaks, speech:speaks="+chr $(34)+t $+chr $(34)+":Set speech=CreateObject("+\
Chr$(34)+"sapi.spvoice"+chr $(34)+"):speech.Speak speaks"+chr $(13):close #6
case fileexists(fn$):winexecWait("wscript.exe "+fn$,1):Erase #6:End