Чтение(произношение) текста через vbs

@GGirito · Регистрация: 28.02.2017

У меня есть такой код:

Visual Basic

1
2
3

Eho=inputbox ("Напиши сюда что-то", "Эхо", "Пиши сюда") 
Set sapi=CreateObject("sapi.spvoice") 
sapi.Speak ""&Eho&""

По стандарту скрипт читает одним голосом. Мне надо поменять скорость и тон голоса. Желательно расписать команды, какая за что отвечает, если не сложно.

FlasherX · 02.08.2018, 22:58

GGirito
А оно вам надо, когда есть готовые средства?

@GGirito · 02.08.2018, 23:00 **[ТС]**

Мне надо именно скрипт. Если бы я хотел говорилку то сюда бы не писал

FlasherX · 03.08.2018, 00:00

Visual Basic

Set SpVoice = CreateObject("SAPI.SpVoice")
SpVoice.Rate = -2 ' диапазон скорости от -10 до 10
SpVoice.Volume = 100  ' громкость от 0 до 100
Set SpVoice.Voice = SpVoice.GetVoices("Name=Microsoft Anna").Item(0)
CreateObject("WScript.Shell").PopUp "Speak " & SpVoice.Voice.GetDescription, 3,,4144
SpVoice.Speak "Hi, this is Microsoft Anna"

@GGirito · 03.08.2018, 10:52 **[ТС]**

вот такую ошибку пишет

@GGirito · 03.08.2018, 11:14 **[ТС]**

Покажу на примере настроек экранного диктора. Есть три параметра - голос, скорость, тон. И мне нужен код, где можно настраивать все эти три параметра.
Как я понял, .Rate это скорость, .Volume это громкость, .Voice это голос. А какой параметр отвечает за тон голоса?
Прошу не путать настройки мужского/женского голоса и их тон, это две разные настройки

FlasherX · 03.08.2018, 20:46

Visual Basic

Set SpVoice = CreateObject("SAPI.SpVoice")
'—————————————————————————————————————————————————————————————
' Прослушать вcе голоса:
Set RExp = New RegExp: RExp.Pattern = "^[^-(]+(?=[-(].+)"
For Each oVoice in SpVoice.GetVoices
  SpVoice.Speak "Speak " & RExp.Execute(oVoice.GetDescription)(0)
Next
'—————————————————————————————————————————————————————————————
' Входные параметры процедуры Speak:
'   произносимый текст
'   голосовые данные (имя, возраст, пол, язык, вендор, формат)
'   скорость в диапазоне от -10 до 10
'   громкость в диапазоне от 0 до 100
'   тон в диапазоне от -10 до 10
'—————————————————————————————————————————————————————————————
Speak "Now is " & Now, "Age=Adult;Gender=Female", 0,  60, -10
Speak "Hello, World!", "Age=Adult;Gender=Male",   5,  70, -5
Speak "Hello, World!", "Age=Child;Gender=Male",   2,  80, 0
Speak "Hello, World!", "Name=Microsoft Irina",   -2,  90, -5
Speak "Hello, World!", "Name=Microsoft Anna",    -5, 100, 10
 
Sub Speak(Text, Voice, Speed, Volume, Tone)
  On Error Resume Next
  Set SpVoice.Voice = SpVoice.GetVoices(Voice).Item(0)
  If Err.Number Then
    MsgBox SpVoice.Voice.GetDescription & ": " & Err.Description &_
    vbCr & "Неверно заданы голосовые данные (" & Voice & ")!", 4144 : On Error Goto 0
  Else
    SpVoice.Rate = Speed : SpVoice.Volume = Volume
    SpVoice.Speak "<pitch middle=""" & Tone & """><context>" & Text & "</context></pitch>"
  End If
End Sub

@GGirito · 04.08.2018, 10:51 **[ТС]**

Пишет такие ошибки, и я услышал только два голоса. Это, по идеи, "стандартный" и "мужской"

FlasherX · 04.08.2018, 16:46

GGirito, что значит "стандратный"? У разных систем разный голос. У меня Microsoft Anna, у вас Microsoft Irina. Всего у вас в системе установлено 2 голоса. Я так понял, что при одноразовой отработке скрипта слышали вы их дважды.
Окна ошибок отладочные, чтобы вы могли разобраться самостоятельно, где допущены ошибки. В первом окне видно, что в 18 строке в качестве пола указан ребёнок, что не соответствует критерию в совокупности данных. Если только один мужской взрослный голос (David), это соответствует данным из 17 строки.
В последующих окнах видно, что заданные имена не подхватились системой. В первом случае (19 строка) из-за неполного написания имени (вероятно, нужно писать полностью — так, как у вас на скриншоте, хотя это не всегда требуется), я полагаю. Во втором (20 строка) — из-за отсутствия в системе.

См. ветку HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\ (и TokenEnums\) с профилями (умолчательное значение в них и содержимое ключа Attributes (см. 11 строку с комментарием).

В остальном конкретно по исходному запросу ответ получен?

@GGirito · 04.08.2018, 22:57 **[ТС]**

А как тогда понять такое? У меня в реестре всего три голоса, а в списке диктора намного больше. Как использовать голос, которого нету в реестре по этому пути?

FlasherX · 04.08.2018, 23:50

См. те же ветки в кусте HKEY_CURRENT_USER вместо HKEY_LOCAL_MACHINE.
Если они там, то надо думать, почему они не цепляются в GetVoices-коллекцию. Возможно, от прав зависит.

@GGirito · 05.08.2018, 08:23 **[ТС]**

в пути HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices указано только это. Я вот думаю, может просто добавить/поменять путь на голос, который мне нужен из списка диктора?

@GGirito · 05.08.2018, 08:45 **[ТС]**

В пути HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SPEECH\Voices\Tokens лежат три голоса, которыми пользуется vbs.
В пути HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech_OneCore\Voices лежат голоса, которые мне нужны.
Диктор видит и те, и те. А можно ли как-то заставить vbs использовать вторую папку с голосами?

FlasherX · 06.08.2018, 09:16

Сообщение от GGirito

может просто добавить/поменять путь на голос

Какой путь? Голос может быть задан тот, что присутствует в коллекции GetVoices в соответствии с заданными критериями. Судя по всему, голоса, установленные не по стандарту, не поддерживаются интерфейсом SAPI 5.3. Для 5.4 уже другие средства нужны.

А есть разница при запуске скрипта от x32/x64 интерпретатора?:
%SystemRoot%\SysWOW64\wscript.exe
%SystemRoot%\SYSTEM32\wscript.exe

@GGirito · 06.08.2018, 11:33 **[ТС]**

У меня нету папки SysWOW64
я на win10 x32

FlasherX · 08.08.2018, 21:53

Тогда труба дело.

@GGirito 1 / 1 / 2 Регистрация: 28.02.2017 Сообщений: 96
	05.08.2018, 08:23 [ТС]	12
	в пути HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices указано только это. Я вот думаю, может просто добавить/поменять путь на голос, который мне нужен из списка диктора? 0 Миниатюры

@GGirito 1 / 1 / 2 Регистрация: 28.02.2017 Сообщений: 96
	05.08.2018, 08:45 [ТС]	13
	В пути HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SPEECH\Voices\Tokens лежат три голоса, которыми пользуется vbs. В пути HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech_OneCore\Voices лежат голоса, которые мне нужны. Диктор видит и те, и те. А можно ли как-то заставить vbs использовать вторую папку с голосами? 0 Изображения

@GGirito 1 / 1 / 2 Регистрация: 28.02.2017 Сообщений: 96
	06.08.2018, 11:33 [ТС]	15
	У меня нету папки SysWOW64 я на win10 x32 0

Чтение(произношение) текста через vbs

Решение

Решение

FlasherX 3089 / 1639 / 612 Регистрация: 06.06.2017 Сообщений: 5,548
	02.08.2018, 22:58	2
	GGirito А оно вам надо, когда есть готовые средства? 0

@GGirito 1 / 1 / 2 Регистрация: 28.02.2017 Сообщений: 96
	02.08.2018, 23:00 [ТС]	3
	Мне надо именно скрипт. Если бы я хотел говорилку то сюда бы не писал 0

@GGirito 1 / 1 / 2 Регистрация: 28.02.2017 Сообщений: 96
	03.08.2018, 10:52 [ТС]	5
	вот такую ошибку пишет 0 Миниатюры

@GGirito 1 / 1 / 2 Регистрация: 28.02.2017 Сообщений: 96
	03.08.2018, 11:14 [ТС]	6
	Покажу на примере настроек экранного диктора. Есть три параметра - голос, скорость, тон. И мне нужен код, где можно настраивать все эти три параметра. Как я понял, .Rate это скорость, .Volume это громкость, .Voice это голос. А какой параметр отвечает за тон голоса? Прошу не путать настройки мужского/женского голоса и их тон, это две разные настройки 0 Миниатюры

@GGirito 1 / 1 / 2 Регистрация: 28.02.2017 Сообщений: 96
	04.08.2018, 10:51 [ТС]	8
	Пишет такие ошибки, и я услышал только два голоса. Это, по идеи, "стандартный" и "мужской" 0 Миниатюры

FlasherX 3089 / 1639 / 612 Регистрация: 06.06.2017 Сообщений: 5,548
	04.08.2018, 16:46	9
	Сообщение было отмечено GGirito как решение Решение GGirito, что значит "стандратный"? У разных систем разный голос. У меня Microsoft Anna, у вас Microsoft Irina. Всего у вас в системе установлено 2 голоса. Я так понял, что при одноразовой отработке скрипта слышали вы их дважды. Окна ошибок отладочные, чтобы вы могли разобраться самостоятельно, где допущены ошибки. В первом окне видно, что в 18 строке в качестве пола указан ребёнок, что не соответствует критерию в совокупности данных. Если только один мужской взрослный голос (David), это соответствует данным из 17 строки. В последующих окнах видно, что заданные имена не подхватились системой. В первом случае (19 строка) из-за неполного написания имени (вероятно, нужно писать полностью — так, как у вас на скриншоте, хотя это не всегда требуется), я полагаю. Во втором (20 строка) — из-за отсутствия в системе. См. ветку HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\ (и TokenEnums\) с профилями (умолчательное значение в них и содержимое ключа Attributes (см. 11 строку с комментарием). В остальном конкретно по исходному запросу ответ получен? 1

@GGirito 1 / 1 / 2 Регистрация: 28.02.2017 Сообщений: 96
	04.08.2018, 22:57 [ТС]	10
	А как тогда понять такое? У меня в реестре всего три голоса, а в списке диктора намного больше. Как использовать голос, которого нету в реестре по этому пути? 0 Миниатюры Изображения

FlasherX 3089 / 1639 / 612 Регистрация: 06.06.2017 Сообщений: 5,548
	04.08.2018, 23:50	11
	См. те же ветки в кусте HKEY_CURRENT_USER вместо HKEY_LOCAL_MACHINE. Если они там, то надо думать, почему они не цепляются в GetVoices-коллекцию. Возможно, от прав зависит. 0

FlasherX 3089 / 1639 / 612 Регистрация: 06.06.2017 Сообщений: 5,548
	06.08.2018, 09:16	14
	Сообщение от GGirito может просто добавить/поменять путь на голос Какой путь? Голос может быть задан тот, что присутствует в коллекции GetVoices в соответствии с заданными критериями. Судя по всему, голоса, установленные не по стандарту, не поддерживаются интерфейсом SAPI 5.3. Для 5.4 уже другие средства нужны. А есть разница при запуске скрипта от x32/x64 интерпретатора?: %SystemRoot%\SysWOW64\wscript.exe %SystemRoot%\SYSTEM32\wscript.exe 0

FlasherX 3089 / 1639 / 612 Регистрация: 06.06.2017 Сообщений: 5,548
	08.08.2018, 21:53	16
	Тогда труба дело. 0

Опции темы