Ir al contenido principal

MakeYourAudiobook, un software "útil?"

Hola! En este blog, busco compartir software, algún código y cosas que me interesan. También ver las vueltas que se dan con la programación.
El que quiera, puede mandarme emails a jbassignana@gmail.com

Algunos programas que me interesa compartir:

MakeYourAudiobook 



Cuando lo hice, me pareció fantástico, por la sencillez. 
Es un programa exclusivo para Windows 10, y que usa los motores de voz de Windows para generar, a partir de archivos de texto , archivos de voz en formato .wav. Luego, a partir de el programa LAME, lo paso a mp3.
Permite hacer tu propio audio libro , en muchos idiomas (en mi computadora lo tengo configurado con Chino tradicional, Alemán, Español de España, Español de México ( lo más parecido al rioplatense, soy uruguayo), Francés, Inglés Británico y estadounidense, Italiano, Japonés, Koreano, Portugués brasilero, y Ruso. 
También acepta , en caso de que lo tengan instalado, los motores en Hebreo (son de 32 bits) de la empresa ALMAREADER.
Mi idea era en su momento ofrecerlo al Plan Ceibal, sistema de computadoras que se regalan en mi país a todos los niños de escuelas públicas, para que generaran los audiolibros. Al final , no les interesó porque , según entendí, tenían complicado el asunto con los derechos de autor.
Lo ofrecí en mi ciudad, Rivera, y realmente no les interesó para nada. 
Al final, lo ofrecí a la ciudad de Livramento, Brasil, donde fue mucho mejor recibido.
Existe una versión de interfase en Inglés, Español y Portugués.

Download:
Versión de interfase en Inglés:
https://sourceforge.net/projects/makeyouraudiobook/ 

Versión  de interfase en Español:
https://sourceforge.net/projects/makeyouraudiobook-spanish/

Versión  de interfase en Portugués:
https://sourceforge.net/projects/makeyouraudiobook-portugues/

Cabe destacar, que el código fuente está compartido en Github en:
https://github.com/JuanJo2016/MakeYourAudiobook 

Mi idealista idea, era poder darles a personas con problemas de visión , o personas analfabetas la posibilidad de un medio bueno, bonito y barato de poder ampliar su cultura y sus posibilidades.
También me pareció excelente para estudiantes. Lo probé con una sobrina de mi esposa, lo usó para aprender la Divina Comedia de Dante Alighieri y le fue muy bien.
Además, pensé que iba a ser aceptado más facilmente si lo publicaba en SourceForge gratuitamente.
Cabe aclarar que me equivoqué totalmente. A sido un total fracaso. Por suerte no dependo económicamente de ésto.

Nota: Para crear un archivo de texto que sirva de base para  un audio libro, es necesario controlar los saltos de línea. Estos saltos de línea producen , al pasarlos a voz, un silencio muy molesto, una espera no deseada.
Para que ello no pase, hay que eliminar los saltos de línea no deseado.
¿Como se producen? Por ejemplo, si copiamos un texto de un pdf, se copiarán los saltos de línea que crea para leer el programa de pdf.
¿Como eliminarlos? La forma esclava sería sacar uno por uno.
La forma lógica es crear un macro para Word, y correrlo. Y de esa forma sacar todos los saltos de línea juntos.
Les dejo acá el macro, que lo saqué de algún lugar de Internet:

Sub Macro1()
'Turn Off Screen Updating
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Wrap = wdFindStop
  .Format = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  .Text = vbCrLf
  '.Replacement.Text = " "
  .Replacement.Text = "^p"
  .Execute Replace:=wdReplaceAll
  'Eliminate spaces & tabs before paragraph breaks.
 
  'Replace single paragraph breaks with a space
 .Text = "([!^13])([^13])([!^13])"
  .Replacement.Text = "\1 \3"
  'Replace all double spaces with single spaces
  .Execute Replace:=wdReplaceAll
  .Text = "[ ]{2,}"
  .Replacement.Text = " "
  'Delete hypens in hyphenated text formerly split across lines
  .Execute Replace:=wdReplaceAll
  .Text = "."
  .Replacement.Text = "." & "^p" ' vbCrLf
  .Execute Replace:=wdReplaceAll
  'Limit paragraph breaks to one per 'real' paragraph.
  .Text = "-"
  .Replacement.Text = "  "
 .Execute Replace:=wdReplaceAll
End With
'Restore Screen Updating
Application.ScreenUpdating = True
'
End Sub




Comentarios

Entradas populares de este blog

Hola a todos! El objetivo de este blog es compartir software y código de programas que he creado, y cosas que me interesan. El que quiera puede escribirme a jbassignana@gmail.com Software: MakeYourAudiobook https://misoftwarepersonal.blogspot.com/p/blog-page.html