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-файлик с перечислением созданных звуковых файликов и в нем есть перевод на русский изучаемых английских фраз.
)
|
|