(SOFT) SOFT (2011 год)

SoundCreator - пакетная озвучка английского текста (вторая версия)

SoundCreator - пакетная озвучка английского текста

Чекистская военная хунта распоясалась окончательно и чуствует себя в нашей стране ничем и никем не ограниченной. Каждый день мы идем на работу и видим сожженные жилища рабов. Каждый день из всех щелей мы слышим стоны - как опять какие-то мусора и чекисты отжали себе чью-то собственность. Каждый день мы слышим о новых и новых политзаключенных. Счета членов хунты каждый день пополняются и пополняются засчет продажи выкачиваемой из России нефти. В списках миллиардеров России в колонке "вид бизнеса" никого уже не удивляет вид бизнеса, которым нажиты миллиарды "Адам Делимханов - Депутат Госдумы от Чечни", "Ашот Егиазарян - Депутат, объявленный в розыск", "Григорий Нагинский - Зам министра обороны". А в топе миллиардеров - только личные друзья чекистского фюрера. Все уголовные дела о краже денег лично фюрером ложатся под сукно. Законной гражданской власти, которая бы могла поставить все это отребье на колени и отправить в Магадан - в стране просто нет. Выборы законных представительских властей тотально фальсифицируются. Президент (гарант Конституции и наших гражданских прав) у нас в стране полностью марионеточный (полностью ссучен чекистами) и никакого желания проявить себя как высшая законная власть не имеет. Сейчас он уже наигрался со своим новым айфончиком и ему дали поиграться с воланчиком.

В условиях отсутствия законных властей в стране, отсутстсвия гаранта конституционных прав граждан - уже 2,5 миллиона человек покинуло Россию. Это больше чем покинуло Россию в 1917-м году, когда власть в России захватили немецкие шпионы и пьяная матросня. Причем 2,5 миллиона - это лишь официальные данные. Реальность возможно в разы отличается от того, что нам вещают по зомбоящику - и наверняка окажется что от обезумевших от своей беспредельной власти чекистско-мусорских банд сбежало впятеро или вдесятеро больше народа, чем от немецких шпионов и пьяных матросов в 1917 году. Интеллектуальная (и физическая) пустыня на территории России будет только нарастать. Тем более тенденция на выдавливание коренного населения из России соответствует интересам чекистской военной хунты - чтобы территория с нефтью и газом обезлюдела поскорее. Ну а если что - военная хунта завезет рабов-гастарбайтеров (по-русски не разговаривающих). Уж они-то точно не будут требовать у чекистов соблюдения своих гражданских прав и Конституции РФ.


Я, в общем, стараюсь как могу помочь тем кто остается. В часности я на этом своем сайте опубликовал около 500 программистских рецептов (на русском языке). Эти рецепты полностью соответствуют современному технологическому уровню в России, они решают наши обычные практические программистские задачи. Каждый день мой сайт просматривают около 200 программистов, и надеюсь, каждый из них находит для себя то, что ищет. Я получаю горы писем с благодарностями и реально понимаю насколько программистам нужно то, что я делаю - продолжая и продолжая вести свой блог.


Но в этом топике я хочу помочь не тем, кто остается - а кому терпеть бандитов уже нет мочи - и кто решил покинуть Родину. Это небольшая прога (написанная за 15 минут) позволяет съэкономить кучу времени на подготовку к сдаче официального экзамена по английскому.

Вы готовите вот такой файлик (в кодировке UTF-8):

defo1 = deforestation - the removal of all trees from a large area
erosion = erosion - loss of soil from action of watet or wind
hemi = hemisphere - one half of the Earth, also, one half of a sphere

Вызываете из командной строки прогу SoundCreator имя_файлика и вуаля - в каталоге с прогой и файликами оказываются defo1.mp3, erosion.mp3, hemi.mp3 - которые вы переписываете себе в любимый телефон, коммуникатор, диктофон и слушаете всласть.

Прога работает в Linux и Windows - если вы владеете минимальными навыками программирования, то вы можете взять и мою вторую прогу на эту тему - GoogleTranslate - англо-русский онлайн переводчик и слепить из обоих прог что-то свое.

Вот вам полный код моей проги:


   1:  Module Module1
   2:   
   3:      Sub Main()
   4:          Try
   5:              Dim PRM() As String = Environment.GetCommandLineArgs
   6:              If PRM.Count < 2 Then
   7:                  GoTo usage
   8:              Else
   9:                  If Not My.Computer.FileSystem.FileExists(PRM(1)) Then
  10:                      Console.WriteLine("no filename " & PRM(1))
  11:                      Console.ReadLine()
  12:                  Else
  13:                      Dim AllRows As String = My.Computer.FileSystem.ReadAllText(PRM(1), System.Text.UTF8Encoding.UTF8)
  14:                      Dim RDR As System.IO.StringReader = New System.IO.StringReader(AllRows)
  15:                      While True
  16:                          Dim OneRow As String = RDR.ReadLine
  17:                          If OneRow <> "" Then
  18:                              Dim Columns() As String = OneRow.Split("=")
  19:                              If Columns.Length = 2 Then
  20:                                  Dim SoundFileName As String = Columns(0).Trim & ".mp3"
  21:                                  Dim Txt As String = Columns(1)
  22:                                  Dim Buf As Byte() = GetBinaryContents("http://translate.google.ru/translate_tts?ie=UTF-8&q=" & Txt & "&tl=en&prev=input")
  23:                                  My.Computer.FileSystem.WriteAllBytes(SoundFileName, Buf, False)
  24:                                  System.Threading.Thread.Sleep(1000)
  25:                              Else
  26:                                  Console.WriteLine("no '=' separator in line " & OneRow)
  27:                                  Console.ReadLine()
  28:                              End If
  29:                          Else
  30:                              Exit While
  31:                          End If
  32:                      End While
  33:                  End If
  34:              End If
  35:              Exit Sub
  36:          Catch ex As Exception
  37:              Console.WriteLine(ex.Message)
  38:              Console.ReadLine()
  39:          End Try
  40:   
  41:  usage:
  42:          Console.WriteLine("Usage:   SoundCreator.exe FileName" & vbCrLf & _
  43:                            "each row in 'FileName' (UTF-8 encoding) contains two fiedls, separated by '='" & vbCrLf & _
  44:                            "first fields - MP3 filename with voice to be creating, second fiedls - english text for sound")
  45:          Console.ReadLine()
  46:      End Sub
  47:   
  48:      Public Function GetBinaryContents(ByVal URL As String) As Byte()
  49:          Try
  50:              'запрос по HTTP
  51:              Dim PageRequest As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(URL), System.Net.HttpWebRequest)
  52:              'Отправлен запрос
  53:              Dim PageResponse As System.Net.HttpWebResponse = PageRequest.GetResponse
  54:              'Получен ответ
  55:              Dim Reader As New System.IO.BinaryReader(PageResponse.GetResponseStream)
  56:              Dim Buf As Byte() = Reader.ReadBytes(100000)
  57:              Reader.Close()
  58:              Return Buf
  59:              'Загружено в память
  60:          Catch x As System.Exception
  61:              'пусть молча идет дальше при ошибках
  62:          End Try
  63:      End Function
  64:   
  65:   
  66:  End Module

Внимание, смотрите следующую версию этой проги. Она умеет сохранять XML-файлик с перечислением созданных звуковых файликов и в нем есть перевод на русский изучаемых английских фраз.



Comments ( )
<00>  <01>  <02>  <03>  <04>  <05>  <06>  <07>  <08>  <09>  <10>  <11>  <12>  <13>  <14>  <15>  <16>  <17>  <18>  <19>  <20>  <21>  <22>  <23
Link to this page: //www.vb-net.com/SoundCreator/index.htm
<SITEMAP>  <MVC>  <ASP>  <NET>  <DATA>  <KIOSK>  <FLEX>  <SQL>  <NOTES>  <LINUX>  <MONO>  <FREEWARE>  <DOCS>  <ENG>  <CHAT ME>  <ABOUT ME>  < THANKS ME>