Lire à partir du fichier en utilisant VBS et dire le contenu

Je travaille sur un projet et j'écris dans un fichier à partir d'un autre fichier, mais je veux un fichier .VBS pour le dire comme TTS. voici le code pour ça ... MaisLire à partir du fichier en utilisant VBS et dire le contenu

Dim message, sapi 
Set sapi=CreateObject("This Text") 
sapi.Speak message

Et puis les mots « Ce texte » sortira des haut-parleurs.

Mais, je ne veux pas les mots « Ce texte » à venir, je veux dire les mots dans un fichier txt (tts_text.txt)

Il faut lire un fichier texte et stockez cela dans une variable, puis les tts devraient lire et dire la variable.

Source

2017-10-04 Minecraft Master

https://stackoverflow.com/questions/ 854975/comment-lire-d'-un-fichier-texte-en-utilisant-vbscript – aphoria

Je viens de remarquer [vous avez supprimé votre question la plus récente] (https://stackoverflow.com/questions/47166956/have- deux-javascript-sliders-to-work-at-same-time) - Je ne pense pas qu'il soit nécessaire de le supprimer. J'ai trouvé pourquoi vous avez ajouté ce qui semblait être du spam bot à la fin - vous aviez déclenché un message de l'éditeur nécessitant plus de détails, et j'ai donc décidé de poster le message d'avertissement dans la question. C'était confus! Si cela se reproduit, pensez aux autres détails que vous pourriez ajouter - dans ce cas particulier, il fallait des détails sur ce que vous aviez essayé. – halfer

Utilisez cette option pour lire/en apprendre davantage sur les objets et leurs capacités:

Option Explicit 
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject") 
Dim goVC : Set goVC = CreateObject("SAPI.SpVoice") 
goVC.Speak goFS.OpenTextFile(WScript.ScriptFullName).ReadAll()

Source

2017-10-04 14:10:54

merci, mais où ouvre tts_text.txt? désolé im nouveau à vbs –

je le veux ouvrir et lire, puis tts dire un fichier txt spécifique, son tts_text.txt –

Vous pouvez donner un essai pour cet exemple vbscript:

Option Explicit 
Dim Contents,File,message 
File = "c:\tts_text.txt" 
Contents = "It didn’t work after mass shootings at a nightclub in Orlando,"&_ 
"college campuses in Virginia and Oregon, a church in Charleston,"&_ 
"or at a movie theater and high school in Colorado."&_ 
"Or after two lawmakers survived assassination attempts." & vbcrlf &_ 
"But after a gunman killed 58 people and wounded more than 500 at a Las Vegas concert," & vbcrlf &_ 
"Democrats are going to try again to revamp the nation’s gun laws." 
' We write this contents to the file 
WriteTextFile Contents, file, 0 
' We read the file contents and we store it into a variable message 
message = ReadFileText(File) 
' Now we can speak this message with SAPI object 
Speak_from_File message 
'********************************************************** 
Sub Speak_from_File(message) 
Dim Voice 
Set Voice = CreateObject("SAPI.SpVoice") 
Voice.Volume = 100 
Voice.Rate = 0 
Voice.Speak message 
End Sub 
'********************************************************** 
Sub WriteTextFile(sContent, sPath, lFormat) 
'lFormat -2 - System default, -1 - Unicode, 0 - ASCII 
With CreateObject("Scripting.FileSystemObject").OpenTextFile(sPath,2,True,lFormat) 
    .WriteLine sContent 
    .Close 
End With 
End Sub 
'********************************************************** 
Function ReadFileText(sFile) 
    Dim objFSO,oTS,sText 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set oTS = objFSO.OpenTextFile(sFile,1) 
    sText = oTS.ReadAll 
    oTS.close 
    set oTS = nothing 
    Set objFSO = nothing 
    ReadFileText = sText 
End Function 
'**********************************************************

Source

2017-10-04 21:29:14 Hackoo

Lire à partir du fichier en utilisant VBS et dire le contenu

Répondre

Questions connexes