Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Операционные системы > Windows
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2021, 18:31   #11
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Контролируем приоритет Windows7:
Мышкой на Часы: Меню - Запустить диспетчер задач

Вид - Выбрать столбцы...
Включить: Базовый приоритет и ОК

Результат: контролируется приоритет программ
особенно освещаемых на предыдущей странице и далее
и возможна сортировка процессов по приоритетам
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 15.04.2021 в 18:35.
сфинкс вне форума Ответить с цитированием
Старый 01.06.2021, 17:00   #12
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Субтитры Youtube скачивание

Синтезатор речи Балаболка субтитры Youtube то скачивает то не скачивает
поэтому найдено субтитров онлайн скачивание:

https://dvdvideosoft.com/online-yout...itles-download
dvdvideosoft.com/online-youtube-subtitles-download

Макрос Word удаляет лишние слова сайта скачивания
и форматирует чтобы озвучил синтезатор речи Балаболка

Код:
Sub Balabolka()
'
Dim n(18), y(18) As Variant

n(1) = "[музыка]": y(1) = " "
n(2) = "[аплодисменты]": y(2) = " "
n(3) = "[ __ ]": y(3) = " "
n(4) = " кто ": y(4) = ". кто "
n(5) = " где ": y(5) = ". где "
n(6) = " когда ": y(6) = ". когда "
n(7) = "^p": y(7) = " "
n(8) = " и ": y(8) = ". и "
n(9) = " но ": y(9) = ". но "
n(10) = " а ": y(10) = ". а "
n(11) = " . ": y(11) = ". "
n(12) = ", ": y(12) = " "
n(13) = "/": y(13) = " "
n(14) = "Created on https:  www.dvdvideosoft.com free-youtube-subtitles-download": y(14) = ""
n(15) = "[смех]": y(15) = ""
n(16) = "..": y(16) = ""
n(17) = "  ": y(17) = " "
n(18) = "  ": y(18) = " "

    Selection.HomeKey Unit:=wdStory
    ActiveWindow.View.Type = wdNormalView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

For i = 1 To 18
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub
Сам макрос Word создан в 1998 году и включает сотни замен
в т.ч. отдельно форматируя оформление и расставляя знаки препинания

Те же принципы: создан макрос Word транслит:
Te zhe prinzipy: sozdan makros Word translit
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 01.06.2021 в 17:03.
сфинкс вне форума Ответить с цитированием
Старый 07.06.2021, 12:12   #13
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

ежечасно нужная программа: ничего не делает

зато заменяет интернет обновление вида RunLiveUpd
заодно экономя мегабайты ведь оказалось
подобные программы стартуют ежеминутно

Код:
// RunLiveUpd.cs bat csc.exe /target:winexe RunLiveUpd.cs 
using System; namespace danetload
{ class Program { static void Main(string[] args) { Console.WriteLine(""); }}}
предыдущая программа заменитель: калькулятор
особенно прошлой версии WinXP малый главное без вирусов

практически: будильник стартует ежечасно
и оставлен для замены обновления браузеров

сколько террабайт сэкономлено неизвестно
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Старый 14.07.2021, 19:22   #14
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Создана таблица Excel создающая макрос замен
из предыдущих сообщений темы
где обычные ячейки интегрирует команда =сцепить

Код:
компьютер	комп    N(    25    ) = "    компьютер    ": Y(    25    ) = "    комп    "		

=СЦЕПИТЬ(E25;F25;G25;H25;I25;J25;K25;L25;M25)

Результат:

N(25) = "компьютер": Y(25) = "комп"
и в конце добавлены строки циклов и замен
и остаётся оформить вручную искомые и заменяемые
и макрос готов причём уже был опыт синтеза
qbasic & qb64 & visual basic программ в excel
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Старый 10.06.2022, 12:37   #15
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Макрос Word заменяет буквы русские на похожие буквы импортные
что затрудняет интернет поиск на форумах и др.
... разработан в 1998 г. ещё при старом режиме

Код:
Sub IMPORTNYE()
'
Dim N(17), y(17) As Variant

N(1) = "у": y(1) = "y"
N(2) = "е": y(2) = "e"
N(3) = "Н": y(3) = "H"
N(4) = "х": y(4) = "x"
N(5) = "а": y(5) = "a"
N(6) = "р": y(6) = "p"
N(7) = "о": y(7) = "o"
N(8) = "с": y(8) = "c"
N(9) = "Е": y(9) = "E"
N(10) = "Х": y(10) = "X"
N(11) = "В": y(11) = "B"
N(12) = "А": y(12) = "A"
N(13) = "Р": y(13) = "P"
N(14) = "О": y(14) = "O"
N(15) = "С": y(15) = "C"
N(16) = "М": y(16) = "M"
N(17) = "Т": y(17) = "T"

    Selection.HomeKey Unit:=wdStory
    ActiveWindow.View.Type = wdNormalView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

For i = 1 To 17
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = N(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Приоритет процесса P@SH@ Win Api 9 13.05.2014 21:48
Приоритет выполнения grafgrial Общие вопросы Delphi 5 22.12.2010 12:27
Приоритет функций Utkin Общие вопросы по программированию, компьютерный форум 27 09.12.2009 10:40
Приоритет макроса ru3000 Microsoft Office Excel 4 02.09.2009 04:45
Приоритет Михаил Юрьевич Win Api 5 15.07.2008 23:23