@CanalQb

CanalQb - VBS - Dica - Converter Texto em Voz Parte 2


Descrição:

💸Script Inicio
Dim obj : Set obj = CreateObject("Scripting.FileSystemObject")
Dim inFile: Set inFile = obj.OpenTextFile("texto.txt")

' Read file
Dim strRetVal : strRetVal = inFile.ReadAll
curtaocanal = strRetVal
inFile.Close


Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3

Dim message, Canal Qbfala, Canal QbgeraWav
Dim vozes 

Set Canal Qbfala = CreateObject("SAPI.spVoice")
Set Canal QbgeraWav = CreateObject("SAPI.SpFileStream")

vozes = ""

for lista = 0 to Canal Qbfala.GetVoices.Count - 1
vozes = vozes &  Chr(13) & Chr(10) & lista & ": "& Canal Qbfala.GetVoices.Item(lista).GetDescription
vozes = left(vozes,inStr(1,vozes,"-",vbTextCompare)-1)
next 

voz = Inputbox(vozes, "Escolha seu narrador!"&  Chr(13) & Chr(10)) 
Set Canal Qbfala.Voice = Canal Qbfala.GetVoices.Item(voz) 

Canal QbgeraWav.Format.Type = SAFT48kHz16BitStereo
Canal QbgeraWav.Open "Audio.wav", SSFMCreateForWrite
Set Canal Qbfala.AudioOutputStream = Canal QbgeraWav 
Canal Qbfala.Speak curtaocanal

💸Script Final

Outro Script: 

💸Script Inicio

Dim obj : Set obj = CreateObject("Scripting.FileSystemObject")

Dim inFile: Set inFile = obj.OpenTextFile("texto.txt")

\ Read file

Dim strRetVal : strRetVal = inFile.ReadAll

curtaocanal = strRetVal

inFile.Close

Const SAFT48kHz16BitStereo = 39

Const SSFMCreateForWrite = 3

Dim message, Canal Qbfala, Canal QbgeraWav

Dim vozes

Set Canal Qbfala = CreateObject("SAPI.spVoice")

Set Canal QbgeraWav = CreateObject("SAPI.SpFileStream")

vozes = ""

for lista = 0 to Canal Qbfala.GetVoices.Count - 1

vozes = vozes & Chr(13) & Chr(10) & lista & ": "& Canal Qbfala.GetVoices.Item(lista).GetDescription

vozes = left(vozes,inStr(1,vozes,"-",vbTextCompare)-1)

next

voz = Inputbox(vozes, "Escolha seu narrador!"& Chr(13) & Chr(10))

Set Canal Qbfala.Voice = Canal Qbfala.GetVoices.Item(voz)

Canal QbgeraWav.Format.Type = SAFT48kHz16BitStereo

Canal QbgeraWav.Open "Ssdfsdfsdf.wav", SSFMCreateForWrite

Set Canal Qbfala.AudioOutputStream = Canal QbgeraWav

Canal Qbfala.Speak curtaocanal

💸Script Final

Dica, quando criar o arquivo TXT, coloque em salvar como, e coloque a codificação em ASCI, para cada frase pule uma linha


CanalQb

Canal Qb, bitcoin, litecoin, ltc, btc, coin, moedas, dolares, dolls, facebook, ganhar, seminsvestir, gratis, conta, usuario, app, paypal, pagando, saia do vermelho, como ganhar dinheiro, online, sonho, CriptoBR, loko, link, chainlink, ganhe tokens link, Earn Crypto, Learn, The Graph, earn graph, earn graph coinmarketcap, criptomoedas de graça, ganhar bitcoin gratis, faucet bitcoin, bitcoin free, comprar bitcoin, curso, ethereum, trust, monetizze, hotmart, eduzz, power point