DosTips.com

Code: Select all

@echo off

SetLocal
cls

:: %~dp0 is the directory this script is run from, so change
:: set "mp3Convert=%~dp0\tts.exe" to whatever the actual location is (i.e)
:: set "mp3Convert=C:\Program Files (x86)\conversor\tts.exe"
set "textFile=%~dp0\sample.txt"
set "mp3Convert=%~dp0\tts.exe"

::create a sample text file if it doesn't exist
if not exist "%textFile%" (
  >"%textFile%" (
    echo/hello, my name is !name!, and I am from the !dir1!, but we will go !dir2! today
    echo/so, !name! said we should go !dir2!, but I felt we needed to go !dir1!
  )
)

::get user input 
echo/&echo/
set /p name="Enter name: "
set /p dir1="Enter direction 1: "
set /p dir2="Enter direction 2: "

:: create a directory based on name if it doesn't exist 
:: again, create under directory this script is run from
:: change %~dp0\ to whatever destination folder 
set "destDir=%~dp0\%name%"
if not exist "%destDir%" mkdir "%destDir%"
:: change to destination directory 
pushd "%destDir%"

::convert to wav (no external tools needed)
call :convertWAV

::convert to mp3 (using tts) (NOT TESTED!!)
call :convertMP3

:: return to source directory
popd

EndLocal
exit/B

:convertMP3 
SetLocal EnableDelayedExpansion
set "voice=5"
set "quality=10"
set/a counter=0
for /f "tokens=*" %%i in (%textFile%) do ( 
  set/a counter+=1 & set "suffix=000!counter!" & set "suffix=!suffix:~-4!"
  del audio_output_direction_!suffix! >nul 2>nul
  "%mp3Convert%" -f %quality% -v %voice% "%%~i" -o "audio_output_direction_!suffix!" -t >nul && echo/Conversion successful. || echo/Export to .MP3 Failed.  
)
EndLocal  
exit/B

:convertWAV
SetLocal EnableDelayedExpansion
set/a counter=0
set "vbsFile=%temp%\speech.vbs"
> "%vbsFile%" (
  echo/const SAFT48kHz16BitStereo = 39
  echo/const SAFT16kHz16BitStereo = 19
  echo/const SSFMCreateForWrite = 3 ' overwrite existing file
  echo/set oFileStream = CreateObject("SAPI.SpFileStream"^)
  echo/oFileStream.Format.Type = SAFT16kHz16BitStereo
  echo/set oVoice = CreateObject("SAPI.SpVoice"^)
  for /f "tokens=*" %%i in (%textFile%) do ( 
    set/a counter+=1 & set "suffix=000!counter!" & set "suffix=!suffix:~-4!"
    echo/oFileStream.Open "audio_output_direction_!suffix!.wav", SSFMCreateForWrite
    echo/set oVoice.AudioOutputStream = oFileStream
    echo/oVoice.speak "%%~i"
    echo/oFileStream.Close
  )
)
Cscript.exe /B /E:vbs "%vbsFile%" >NUL
del "%vbsFile%" >nul 2>nul
EndLocal
exit/B

Code: Select all

this is my !name! and i'm going !dir1! today, tomorrow i'll go !dir2!

Code: Select all

set "name=Phil"
set "dir1=Washington"
set "dir2=New York"

Code: Select all

set /p name="Enter name: "
set /p dir1="Enter direction 1: "
set /p dir2="Enter direction 2: "