| View previous topic :: View next topic |
| Author |
Message |
Dimsok
Joined: 17 Aug 2014
Posts: 663
|
 (Separately) Posted: Tue Sep 09, 2014 15:32 Post subject: Озвучка имён и содержимого выделенных файлов |
 |
|
Хорошо бы скрипт-кнопку для чтенния tts имени\имён выделенных фалов с помощью этой штуки
http://www.vector-ski.ru/vecs/govorilka/govorilka_cp.htm
Есть ещё балаболка с командной строкой
| ! | Avada: | | Обсуждение выделено из запросов на скрипты в самостоятельную тему, поскольку занимает очень много места. | |
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Sep 09, 2014 16:56 Post subject: |
|
|
Расшифруй. Что такое tts-имя файла?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Skif_off
Joined: 28 Nov 2012
Posts: 1244
|
| (Separately) Posted: Tue Sep 09, 2014 17:01 Post subject: |
|
|
Flasher
Вероятно, речь о Text-To-Speech.
Добавлено:
Дошло: Взять имена выделенных файлов/папок и их проговорить.
У этой штуки есть ключ -F, у ТС есть параметр "%F", они подружаться.
Либо "%S", но с ограничением по длине. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Sep 09, 2014 17:11 Post subject: |
|
|
| Skif_off wrote: | | Вероятно, речь о Text-To-Speech. |
Возможно.
Ключ -F я видел, но нужно было понять, о чём конкретно речь.
Т.е. скрипт тут вообще не нужен. Это в кнопки.
И, честно говоря, я вообще не понимаю, зачем какой-то голос будет читать то, что ты уже просмотрел глазами. Это что-то из серии бесполезных рюшек.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Dimsok
Joined: 17 Aug 2014
Posts: 663
|
| (Separately) Posted: Tue Sep 09, 2014 20:21 Post subject: |
|
|
Ладно, возможно этот ревкест будет более полезен:
'Script written by Ayman Farhat (SCRIPTmaster)
'This script allows your PC to read contents of any text file you choose!
Const ForReading = 1
strText = InputBox("Please type in the name of the file you want to read the file, the file has an extension .txt","Read text files from notepad")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile(strText + ".txt", ForReading)
strText = objText.ReadAll
objText.Close
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak strText
Скрипт читает указанный текстновый файл. Как можно его модернизировать, чтобы была кнопка, при нажатии на которую читалось бы содержимое текстового файла под курсором |
|
| Back to top |
|
|
Skif_off
Joined: 28 Nov 2012
Posts: 1244
|
| (Separately) Posted: Tue Sep 09, 2014 21:15 Post subject: |
|
|
Dimsok
Зачем вам скрипт? Простая кнопка: команда Govorilka_cp.exe -f, в параметрах "%P%N" и будет читать файл под курсором |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Sep 09, 2014 21:58 Post subject: |
|
|
Skif_off
%P%N не нуждается в кавычках. Я всегда упрощаю до %V.
Dimsok, с тем же %V:
| Code: | CreateObject("SAPI.SpVoice").Speak CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)).ReadAll |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Dimsok
Joined: 17 Aug 2014
Posts: 663
|
| (Separately) Posted: Tue Sep 09, 2014 22:18 Post subject: |
|
|
| Flasher, а как сделать, чтоб все выделенные файлы читались? И кнопку для остановки |
|
| Back to top |
|
|
Skif_off
Joined: 28 Nov 2012
Posts: 1244
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Sep 09, 2014 23:28 Post subject: |
|
|
Dimsok
| Code: | '=============================================
' Читать содержимое выбранных текстовых файлов
' Параметр: %WL
'=============================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0)
End With
Set Voice = CreateObject("SAPI.SpVoice")
With CreateObject("Scripting.FileSystemObject")
Set TF = .GetFile(List).OpenAsTextStream(1, -1)
Do While Not TF.AtEndOfStream
Set FF = .OpenTextFile(TF.ReadLine,,-1)
Voice.Speak FF.ReadAll
FF.Close : Set FF = Nothing
Loop : TF.Close : Set TF = Nothing
End With : Set Voise = Nothing |
| Code: | ' Назначение: Завершить процесс WScript c указанным скриптом
' Параметр: "<путь к скрипту>"
'================================================================================================
Path = CreateObject("WScript.Shell").ExpandEnvironmentStrings(WScript.Arguments(0))
CMDLine = Replace("""" & WScript.FullName & """ """ & Path & """", "\", "\\")
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set WSC = WMI.ExecQuery("SELECT CommandLine FROM Win32_Process WHERE CommandLine Like '" & CMDLine & "%'")
If WSC.Count = 0 Then
Wscript.Echo "Указанный скрипт не запущен!"
Else
For Each P in WSC : P.Terminate : Next
End If : Set WMI = Nothing : Set WSC = Nothing : WScript.Quit |
| Skif_off wrote: | | Я всегда проверяю, |
И где там связка %P и %N? На этом форуме мильон раз обсуждали сей момент. Не говоря уже о справке:
| Quote: | | Если приписать %P, %p, %T или %t непосредственно перед %S или %s (без пробела между ними!), то к имени каждого файла из списка будет добавлен путь. При наличии пробелов полный путь автоматически заключается в кавычки. |
Правда это касается не только %S. Причём это легко проверяется по ? перед параметрами.
| Skif_off wrote: | | никаких ограничений/нюансов вне FS-плагинов нет? |
Нет. Опять же повторяю, примеры я привожу с ним довольно часто уже не первый год. На руборде про это никак не расскажут? Добро пожаловать! 
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Dimsok
Joined: 17 Aug 2014
Posts: 663
|
| (Separately) Posted: Wed Sep 10, 2014 12:14 Post subject: |
|
|
Хоть это вопрос по кнопке, но все же
TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Plugins\exe\govorilka\Govorilka_cp.exe" -E "Alyona (Russian) SAPI5"
%O
%COMMANDER_PATH%\Plugins\exe\govorilka\Govorilka_cp.exe
Govorilka_cp
%COMMANDER_PATH%\Plugins\exe\govorilka\
-1
Какие параметры нужны, чтоб читал названия не одного файла, а всех выделенны. И полезность этого в том, что названия некотрых файлов слишком длинные, и для прочтения всего приходится раздвигать панель, так не проще ли.. Если б еще метаданные читать, вообще супер было бы. Без всякого переключения колонок просшулаш например исполнителя песни или комменты к доку |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Sep 13, 2014 13:23 Post subject: |
|
|
Ради интереса попробовал прогу - даже с простыми параметрами крэшится.
По кнопке там просто:
К: %ComSpec% /c for /f "delims=" %# in
П: ('type %WF') do "%%COMMANDER_PATH%%\Plugins\exe\govorilka\Govorilka_cp.exe" -E "Alyona (Russian) SAPI5" "%%~n#"
С тегами только скрипт.
P.S.: Но писать (хоть это и несложно), да ещё при глючной проге и отсутствии реакции на ответы к запросам, желания нет.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Dimsok
Joined: 17 Aug 2014
Posts: 663
|
|
| Back to top |
|
|
Dimsok
Joined: 17 Aug 2014
Posts: 663
|
| (Separately) Posted: Fri Sep 19, 2014 15:47 Post subject: |
|
|
| Flasher, не поможешь с кнопкой для Балаболки? Надо, чтобы я выделил текстовый файл или файл субтитров, нажал кнопку, и звуковой файл создался в противоположной панели |
|
| Back to top |
|
|
Skif_off
Joined: 28 Nov 2012
Posts: 1244
|
| (Separately) Posted: Fri Sep 19, 2014 19:17 Post subject: |
|
|
Dimsok
Там же на странице есть пример
| Code: | balabolka_console.exe -f "d:\Text\book.txt" -w "d:\Sound\book.wav" -n "Emma" |
Вам нужна кнопка вроде такой
| Code: | balabolka_console.exe -f %P%N -w "%T%N.wav" -n "Emma" |
Или %T%O.wav, чтобы расширение файла не попадало в имя.
С voice_name только непонятно. Или нужно усложнить, с проверкой языка файла и -id 1033 (English - United States) или -id 1049 (Russian), пусть программа сама ищет голос. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
Я всегда проверяю, 
такая, например,