Автор Тема: Объявляем программу помощи: Wires-X4UA  (Прочитано 14203 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн UT3BW

Объявляем программу помощи: Wires-X4UA
« Ответ #255 : Январь 15, 2019, 20:17:17 »
Цитата: "laser" post=26296
російською лепече. дякую. шкода нема по-нашинськи.
можна було б спробувати до SVX лінк прикрутити =)

Нашинська?
У нас українська - це рідна мова.
 

Оффлайн SkyLine

Объявляем программу помощи: Wires-X4UA
« Ответ #256 : Январь 22, 2019, 19:52:27 »
Цитата: "laser" post=26287
Цитата: "SkyLine" post=26167
, для пгт.Ворзель.

а зараз працює? в мене не відтворюється. і взагалі на сайті про це не найшов інфи....
Наразі - відновили. Вже все працює.
 

Оффлайн SkyLine

Объявляем программу помощи: Wires-X4UA
« Ответ #257 : Январь 24, 2019, 17:35:36 »
Нещодавно, знайшов парсер для сайту "Метео-Нова".
В результаті його роботи, маємо ".htm" файл з таким змістом:

Spoiler for Hiden:
Прогноз погоды в Ворзеле (Киевская область Украина)

Этой ночью ожидается пасмурная погода, температура -13..15°. Атмосферное давление в пределах нормы. Возможны небольшие геомагнитные возмущения. Завтра днем переменная облачность, -8..-10°, ветер восточный, умеренный. Атмосферное давление в пределах нормы. Возможны небольшие геомагнитные возмущения.
26-го января, в течение суток ожидается пасмурная погода, сильный снег, местами дымка; ночью -8..-10°, днем -2..-4°, ветер слабый. Возможны небольшие геомагнитные возмущения.

Скрипт: meteonova.vbs
g     = "92220" 'код міста з сайту Метеонова
url   = "http://www.meteonova.ua/frc/" & g & ".htm"
fName = g&".htm"
t1    = "blog_title"
p1    = "="&Chr(34)&"frc_text_0"

Set req = CreateObject("Msxml2.XMLHttp.6.0")
req.open "GET", url, False
req.send
If req.Status = 200 Then
CreateObject("Scripting.FileSystemObject").OpenTextFile(fName, 2, true).WriteLine (req.responseText)
End If

Set tsLog = CreateObject("Scripting.FileSystemObject").OpenTextFile(fName, 1)
Do While Not tsLog.AtEndOfStream
LineInFile = tsLog.ReadLine
i1 = InStr(1,LineInFile, t1, 1)
If i1 <> 0 Then
out = out + LineInFile
End If
i2 = InStr(1,LineInFile, p1, 1)
If i2 <> 0 Then
out = out + Replace(LineInFile," none;", "non;")
End If
Loop
CreateObject("Scripting.FileSystemObject").OpenTextFile(fName, 2, true).WriteLine (out)

CreateObject("WScript.Shell").Run fName

Тож, цей "результат" можна автоматично-перекласти на українську мову та направити до "Гугль TTS".
 

Оффлайн SkyLine

Объявляем программу помощи: Wires-X4UA
« Ответ #258 : Январь 25, 2019, 18:14:28 »
Шукається сервіс, для машинного перекладу російська-українська? Безкоштовне API?
Щоби його "внідрити" до скрипта..
Ось це цікаво, тілько, як-би до нього "приєднатися"...: http://www.translate.ua/ru/on-line

Генерувати аудіо-файли, можна так:
Spoiler for Hiden:
wget -q -U Mozilla -O output.mp3 "http://translate.google.com/translate_tts?ie=UTF-8&client=tw-ob&q=Професор дурень, але радіо має&tl=uk"
 

Оффлайн SkyLine

Объявляем программу помощи: Wires-X4UA
« Ответ #259 : Январь 26, 2019, 20:02:30 »
Знайшовся, досить цікавий для перекладу застосунок: "translate-shell"...
Однак, він більш орієнтований на Linux..



Цитата: "laser" post=26296
російською лепече. дякую. шкода немає української.
можна було б спробувати до SVX лінк прикрутити =)
Якщо Вас, ще цікавить Україномовний голосовий метео-інформер...
Подивіться тут.  :-)  ;-)
 

Оффлайн sirrosh

  • Hero Member
  • *****
  • Topic Author
  • Сообщений: 714
  • Karma: +5/-0
Объявляем программу помощи: Wires-X4UA
« Ответ #260 : Январь 28, 2019, 10:47:17 »
Шикарно, спасибо за наводку!!!
 

 

SimplePortal 2.3.7 © 2008-2021, SimplePortal