Интеграция ArchiCAD перевод в AutoCAD 

Создание виртуальных презентаций ArchiCAD 3d

KnigaCAD обучение AutoCAD 2D на 55 страницах 2005год

индексация dwg и поиск за секунды и МЫ

цель статьи: показать возможность индексации dwg

свыше 10 лет пользуюсь индексацией dwg и других файлов
для поиска в компьютере по тысячам файлов за секунду
причём индексированы и эл.книги и всевозможные документы

и ... чертежи dwg где считается невозможна индексация

для индексации необходимо сделать копию требующихся dwg
и других файлов в отдельный компьютер сохранив пути
и перевести dwg в версию dwg 2000 года

применив Архивариус 3000 с доступной стоимостью
индексировать скопированный массив

полученные индексы возможно использовать в любом компьютере
и при доступности исходных файлов открываются сами dwg

достигается поиск внутри тысяч dwg любой версии за секунды
по словосочетаниям во всех формах запрашиваемых слов

? используется ли вами индексация dwg ?

стартап поиск в чертежах AutoCAD dwg совместимых
любой версии используя около 5 программ
а также поиск Word Excel txt html
слов и словосочетаний в любых форматах

индексация dwg автокад чертежи autocad

1. копия в другой компьютер dwg
в каталогах с другими файлами

2. снять признак только для чтения
и контролировать табличный вид каталога
включив столбец атрибуты без признака R

3. dwg конвертер настроить на dwg 2000
и запись dwg в исходные каталоги

4. в dwg конвертер добавить каталоги
и контролировать список файлов

5. стартовать конвертер dwg и контроль
чтобы была успешная конвертация до 100%

6. far поиск dwg по каталогам индексации

7. файловый far и быстрый просмотр ctrl+q
покажет начало файлов autocad 2000 AC1015

8. архивариус 3000 и начать новый индекс

9. индексы чертежей и документов раздельно 

10. настроить включая autocad и файлы dwg
и нормальный вариант соблюдая наличие слов

11. индексация копии dwg соблюдая каталоги

12. свойства индекса и найти путь индекса

13. скопировать 13 файлов индекса и
вставить в любое место на любом компьютере

14. настроить путь индекса и индекс появится
в списке индексов и готов поиск внутри dwg
в исходных dwg любой версии autocad

15. создан поиск по всем формам словосочетаний

ENTLEN = длины

СЛОИ вставляет другой чертёж

1 МБ: kenokeno.ucoz.ru/dwg/LISP.rar

МИНИ БЛОКИ и говорящие имена

мини-блоки линия+текст непечатаемые доказали
правильность: bcount обводит этап и миниблоки посчитаны

создаём миниблок: выбираем слой непечатаемый оранжевый
и рисуем линию и сверху текст высотой 1: для узнаваемости
и сразу копируем штук 20 чтобы далее менять текст

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

GAKSON аксонометрия

BCOUNT считает блоки

startup search in AutoCAD dwg compliant drawings
any version using about 5 programs
and also search Word Excel txt html
words and phrases in any formats

indexing dwg autocad drawings autocad

1. copy to another computer dwg
in directories with other files

2. remove read-only attribute and control
directory look of directory by including
column attributes without R character

3. dwg converter set up on dwg 2000
and writing dwg to source directories

4. in dwg converter add directories
and control list of files

5. start dwg converter and control
that was a successful conversion to 100%

6. far search dwg for index directories

7. file far and quick scan ctrl + q will
show beginning of autocad 2000 files AC1015

8. Archivist 3000 and start a new index

9. indexes of drawings and documents separately

10. configure including autocad and dwg files
and normal option of observing presence of words

11. indexing a copy of dwg following catalogs

12. Index properties and find index path

13. Copy 13 index files and
paste anywhere on any computer

14. configure index path and index will appear.
in index list and ready to search inside dwg
in source dwg of any version of autocad

15. created a search for all forms of word combinations

многие программы данного сайта

rosettacode.org/wiki/Category:C_sharp
rosettacode.org/wiki/Category:QB64

// RUSSIAN SORTING HALVES DANILIN
// C# Csharp
// CS.BAT
// C:\Windows\Microsoft.NET\Framework64\v4.0.30319\csc.exe /nologo RSH.cs

using System; using System.Text; using System.IO;
namespace davApp
{
    class Program
    {
        private long age;
        static long[] a;
        static long[] d;

        static void Main(string[] args)
        {
            int n = 0;
            // READ NUMBERS
            var inpFile = new StreamReader("N.txt");
            n = Convert.ToInt32(inpFile.ReadLine());
            inpFile.Close();

            var age = 1+Math.Log(n) / Math.Log(2);

            Console.WriteLine(n);

            a = new long[n+1];
            d = new long[n+1];

            for (int i = 1; i <= n; i++)
                d[i] = n-i+1;

            //var rand = new Random();
            //// RANDOM [1;n]
            //for (int i = 1; i <= n; i++)
            //    d[i] = rand.Next(1, n);

            // REAN N LINE FROM FILE
            //inpFile = new StreamReader("ISX.txt");
            //for (int i = 1; i <= n; i++)
            //    d[i] = Convert.ToInt64(inpFile.ReadLine());
            //inpFile.Close();

            // WRITE ON SCREEN
            int m = Math.Min(n, 20);
            for (int i = 1; i <= m; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // RUSSIAN SORTING HALVES DANILIN
            var start = DateTime.Now;
            if (age > 0)
                dav(1, n, 1, age);
            var finish = DateTime.Now;

            Console.WriteLine("{0} second", (finish-start).TotalSeconds);

            // WRITE ON SCREEN
            Console.WriteLine("[1..{0}]", m);
            for (int i = 1; i <= m; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // WRITE ON SCREEN
            Console.WriteLine("[{0}..{1}]", n-m+1, n);
            for (int i = n-m+1; i <= n; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // WRITE IN FILE
            var outFile = new StreamWriter("dav.txt");
            for (int i = 1; i <= m; i++)
                outFile.WriteLine(d[i]);
            outFile.WriteLine();

            for (int i = n-m+1; i <= n; i++)
                outFile.WriteLine(d[i]);
            outFile.WriteLine();
            outFile.Close();

            Console.WriteLine("Press any key");
            Console.ReadKey();
        }

        static void dav(int ab, int yz, int part, double age)
        {
            if (yz-ab < 1)
                return;

            long summa = 0;
            for (int i = ab; i <= yz; i++)
                summa = summa+d[i];

            double middle = summa / (yz-ab+1.0);

            var abc = ab-1;
            var xyz = yz+1;

            for (int i = ab; i <= yz; i++)
                if (d[i] < middle)
                {
                    abc = abc+1;
                    a[abc] = d[i];
                }
                else
                {
                    xyz = xyz-1;
                    a[xyz] = d[i];
                }

            for (int i = ab; i <= yz; i++)
                d[i] = a[i];

            if (part < age)
            {
                if (abc >= ab) dav(ab, abc, part+1, age);
                if (xyz <= yz) dav(xyz, yz, part+1, age);
            }
            return;
        }
    }
}
 










rosettacode.org/wiki/Category:C_sharp 
rosettacode.org/wiki/Category:QB64

// Russian Sorting Halves 4 part accelerate bubble sorting
// C# Csharp
// CS.BAT
// C:\Windows\Microsoft.NET\Framework64\v4.0.30319\csc.exe /nologo RSH.cs

using System; using System.Text;

namespace octoberApp
{
    class Program
    {
        static int n;
        static double[] d;
        static double[] a;
        static double[] v;
        static int[] q;

        static void Main(string[] args)
        {
            n = 57539;

            d = new double[n+1];
            a = new double[n+1];
            v = new double[n+1];
            q = new int[5+1];
            var rand = new Random();
            for (int i = 1; i <= n; i++)
                d[i] = Math.Truncate(rand.NextDouble() * n);

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();
            Console.WriteLine();

            var start = DateTime.Now;
            var s = 0;
            //ALL
            double summa = 0;
            for (int i = 1; i <= n; i++)
                summa += d[i];
            double middle = summa / n;
            var y = 1;
            var z = 0;

            for (int i = 1; i <= n; i++)
                if (d[i] < middle)
                {
                    a[y] = d[i]; y++;
                }
                else
                {
                    a[n-z] = d[i];
                    z++;
                }

 
            q[3] = y-1;
            Console.WriteLine("ALL middle = {0}", middle);

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", a[i]);
            Console.WriteLine();
            Console.WriteLine();
            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", a[i]);
            Console.WriteLine();
            Console.WriteLine();

            // 1 FROM 2
            summa = 0;
            for (int i = 1; i <= q[3]; i++)
                summa += a[i];

            middle = summa / q[3];
            y = 1;
            z = 0;
            Console.WriteLine("1 FROM 2 = {0} 1 ...{1}", middle, q[3]);

            for (int i = 1; i <= q[3]; i++)
                if (a[i] < middle)
                {
                    v[y] = a[i]; y++;
                }
                else
                {
                    v[q[3]-z] = a[i];
                    z++;
                }

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            for (int i = q[3]-9; i <= q[3]; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();

            q[2] = y-1;

            // 2 FROM 2
            summa = 0;
            for (int i = q[3]+1; i <= n; i++)
                summa += a[i];
            middle = summa / (1+n-q[3]);
            y = q[3];
            z = 0;
            Console.WriteLine("2 FROM 2 = {0} {1}...{2}", middle, q[3]+1, n);
            for (int i = q[3]; i <= n; i++)
                if (a[i] < middle)
                {
                    v[y] = a[i]; y++;
                }
                else
                {
                    v[n-z] = a[i];
                    z++;
                }
 
            for (int i = q[3]; i <= q[3]+10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();

            q[4] = y-1;
            q[1] = 2;
            q[5] = n;

            //BUBBLE
            Console.WriteLine("1= {0} 2= {1} 3= {2} 4= {3} 5= {4}", 1, q[2], q[3], q[4], n);
            Console.WriteLine();

for (int t = 1; t <= 4; t++)
    for (int i = q[t]-1; i <= q[t+1]; i++)
         for (int j = i+1; j <= q[t+1]; j++)
              if (v[i] > v[j])
{ var x = v[i];
 v[i] = v[j];
v[j] = x;
s++;
}
            var finish = DateTime.Now;

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();

            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();
            Console.WriteLine("DArus4 {0} second swap {1}", (finish-start).TotalSeconds, s);

            var outFile = new System.IO.StreamWriter("RUoct.txt");
            outFile.WriteLine("DArus4 {0} second swap {1}", (finish-start).TotalSeconds, s);
            outFile.WriteLine("{0} 4 parts bubble ", n);

            for (int i = 1; i <= n / 2; i++)
                outFile.WriteLine(v[i]);
            for (int i = n / 2; i <= n; i++)
                outFile.WriteLine(v[i]);

            outFile.Close();

            start = DateTime.Now;
            s = 0;

            for (int i = 1; i <= n; i++)
                for (int j = i+1; j <= n; j++)
                    if (d[i] > d[j])
                    {
                        var x = d[i];
                        d[i] = d[j];
                        d[j] = x;
                        s++;
                    }
            finish = DateTime.Now;

            Console.WriteLine("BUBBLE {0} second swap {1}", (finish-start).TotalSeconds, s);
            Console.WriteLine("Press any key");
            Console.ReadKey();
 }}}




'RUSSIAN sorting halves 4 part bubble
N=17539
DIM d(N), a(N), v(N), q(5)
RANDOMIZE TIMER: FOR i=1 TO N: d(i)=INT(RND * N): NEXT
FOR k=1 TO 10: PRINT d(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT d(k);: NEXT: PRINT: PRINT

start=TIMER: s=0

' ALL
summa=0: FOR i=1 TO N: summa=summa+d(i): NEXT: middle=summa/N: y=1: z=0
FOR i=1 TO N
IF d(i) < middle THEN a(y)=d(i): y=y+1: ELSE a(N-z)=d(i): z=z+1
NEXT
q(3)=y-1
PRINT "ALL middle="; middle
FOR k=1 TO 10: PRINT a(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT a(k);: NEXT: PRINT: PRINT

'1 FROM 2
summa=0: FOR i=1 TO q(3): summa=summa+a(i): NEXT: middle=summa/q(3): y=1: z=0
PRINT "1 FROM 2="; middle, "1 ..."; q(3)
FOR i=1 TO q(3)
IF a(i) < middle THEN v(y)=a(i): y=y+1: ELSE v(q(3)-z)=a(i): z=z+1
NEXT
FOR k=1 TO 10: PRINT v(k);: NEXT: PRINT: FOR k=q(3)-9 TO q(3): PRINT v(k);: NEXT: PRINT: PRINT
q(2)=y-1

'2 FROM 2
summa=0: FOR i=q(3)+1 TO N: summa=summa+a(i): NEXT: middle=summa/(1+N-q(3)): y=q(3): z=0
PRINT "2 FROM 2="; middle, q(3)+1; "..."; N
FOR i=q(3) TO N
IF a(i) < middle THEN v(y)=a(i): y=y+1: ELSE v(N-z)=a(i): z=z+1
NEXT
FOR k=q(3) TO q(3)+10: PRINT v(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT v(k);: NEXT: PRINT: PRINT
q(4)=y-1: q(1)=2: q(5)=N

' SORTING
PRINT "1="; 1, "2="; q(2), "3="; q(3), "4="; q(4), "5="; N: PRINT
FOR t=1 TO 4
FOR i=q(t)-1 TO q(t+1): FOR j=i+1 TO q(t+1)
IF v(i) > v(j) THEN SWAP v(i), v(j): s=s+1
NEXT: NEXT: NEXT

finish=TIMER

FOR k=1 TO 10: PRINT v(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT v(k);: NEXT: PRINT: PRINT
PRINT "DA RUS 4 ", finish-start; "second ", "swap "; s

OPEN "c:/RUsortdav4.txt" FOR OUTPUT AS #2
PRINT #2, finish-start; "second ", "swap "; s
PRINT #2, N; "Russian sorting halves 4 parts bubble "
FOR i=1 TO 20: PRINT #2, v(i): NEXT
FOR i=N-19 TO N: PRINT #2, v(i): NEXT

start=TIMER: s=0
FOR i=1 TO N: FOR j=i+1 TO N
IF d(i) > d(j) THEN SWAP d(i), d(j): s=s+1
NEXT: NEXT
finish=TIMER

PRINT "BUBBLE ", finish-start; "second ", "swap "; s
END



 
 
' Russian Sorting Halves Danilin

DECLARE SUB RussianSortingHalvesDAV (ab!, yz!, part!, age!)
CLOSE
OPEN "c:/N.txt" FOR INPUT AS #5
INPUT #5, n: PRINT n

'n=123456

age=1+LOG(n)/LOG(2): PRINT n, age

DIM SHARED d(n) 'AS LONG
DIM SHARED a(n) 'AS LONG

'OPEN "c:/ISX.txt" FOR INPUT AS #1: 'FOR i=1 TO n: INPUT #1, d(i): NEXT

FOR i=1 TO n: d(i)=n-i+1: NEXT ' INT(RND*n)
'FOR i=1 TO n STEP 2: d(i)=n-i+1: d(i+1)=d(i): NEXT
'FOR i=1 TO n: d(i)=INT(RND*n): NEXT '

IF n < 17 THEN FOR k=1 TO n: PRINT d(k);: NEXT: PRINT
IF n > 16 THEN FOR k=n-8 TO n: PRINT d(k);: NEXT: PRINT

start=TIMER

IF age > 0 THEN
CALL RussianSortingHalvesDAV(1, n, 1, age)
END IF

finish=TIMER

IF n < 17 THEN FOR k=1 TO n: PRINT d(k);: NEXT: PRINT
IF n > 16 THEN FOR k=n-8 TO n: PRINT d(k);: NEXT: PRINT

PRINT finish-start

OPEN "c:/=RuSortHalves_dav.txt" FOR OUTPUT AS #2
PRINT #2, finish-start; "sekund "
PRINT #2, n; "elements", "RECURSION"
FOR i=1 TO 22: PRINT #2, d(i): NEXT
FOR i=n-22 TO n: PRINT #2, d(i): NEXT

FOR k=1 TO 20: PRINT d(k);: NEXT: PRINT: PRINT
FOR k=n-9 TO n: PRINT d(k);: NEXT: PRINT: PRINT

END

SUB RussianSortingHalvesDAV (ab, yz, part, age)

IF yz-ab < 1 THEN EXIT SUB

FOR i=ab TO yz: summa=summa+d(i): NEXT
middle=summa/(yz-ab+1)

abc=ab-1
xyz=yz+1

FOR i=ab TO yz
IF d(i) < middle THEN abc=abc+1: a(abc)=d(i): ELSE xyz=xyz-1: a(xyz)=d(i)
NEXT

FOR i=ab TO yz: d(i)=a(i): NEXT

IF part < age THEN
IF abc >= ab THEN CALL RussianSortingHalvesDAV(ab, abc, part+1, age)
IF xyz <= yz THEN CALL RussianSortingHalvesDAV(xyz, yz, part+1, age)
END IF

END SUB
 




; Russian Sorting Halves Danilin
OpenConsole()
Declare RussianSortingHalvesDAV (ab, yz, part, age)

;n=12345678

If ReadFile(0, "c:/N.txt")
 n = Val(ReadString(0))
 CloseFile(0)
EndIf

age=Int(1+(Log(n)/Log(2)))
Global Dim d(n)
Global Dim a(n)

For i=1 To n
  ;d(i)=Random(n,1) ; случайные значения от 1 до n
  d(i)=n-i+1;
Next

   ;  вывод исходных значений до сортировки
PrintN(" Исходный без сортировки Первые 20")
For k=1 To 20: Print(" "+ d(k)): Next: PrintN("")
PrintN(" Последние 10")
For k=n-9 To n : Print(" "+ d(k)): Next: PrintN("")

start=ElapsedMilliseconds() ;  таймер

If age > 0 :
 RussianSortingHalvesDAV(1, n, 1, age)
EndIf

finish=ElapsedMilliseconds() ;  таймер

PrintN("RussianSorting Первые 50")
For k=1 To 50: Print(" "+ d(k)): Next: PrintN("")
PrintN(" Последние 20")
For k=n-19 To n : Print(" "+ d(k)): Next: PrintN("")

PrintN( "Время сортровки RussianSorting = " + Str(finish-start))

If OpenFile(0, "c:/RSH_DAV.txt")
  For k=1 To 1000 :WriteString (0, " " +d(k)): Next
  For k=n-1001 To n :WriteString (0, " " +d(k)): Next
 CloseFile(0)
EndIf

Input()
End

; Процедура сортировки
Procedure RussianSortingHalvesDAV (ab, yz, part, age)

If yz-ab < 1 :ProcedureReturn 0
EndIf

For i=ab To yz
summa=summa+d(i)
Next
middle=summa/(yz-ab+1)

abc=ab-1
xyz=yz+1

For j=ab To yz
If d(j) <= middle:
abc=abc+1: a(abc)=d(j)
Else
xyz=xyz-1: a(xyz)=d(j)
EndIf

Next

For w=ab To yz: d(w)=a(w): Next

If part < age :
If abc >= ab :RussianSortingHalvesDAV(ab, abc, part+1, age)
EndIf
If xyz < yz :RussianSortingHalvesDAV(xyz, yz, part+1, age)
EndIf
EndIf

EndProcedure
 

'qb64 KENOKENOucozRU.bas
 
DIM a(78, 22): CLS
RANDOMIZE TIMER
OPEN "KENO_dav.txt" FOR OUTPUT AS #1
OPEN "KENO_excel.txt" FOR OUTPUT AS #2

FOR s=1 TO 78: REM tiragey
    a(s, 1)=INT(RND * 80)+1: REM 1-y sluch

    22 FOR j=2 TO 21: REM dlya 20 nomerov
        shag=INT(RND * 80)+1: REM plus shag
        a(s, j)=a(s, j-1)+shag: REM zavisit
        IF a(s, j) > 80 THEN a(s, j)=a(s, j)-80: REM uchet 80
    NEXT

    FOR m=1 TO 19
        FOR n=m+1 TO 20
            IF a(s, m)=a(s, n) THEN GOTO 22
            IF INKEY$=" " THEN STOP
    NEXT: NEXT

NEXT

FOR v=1 TO 78
    FOR w=1 TO 20
        FOR m=w+1 TO 20
            IF a(v, w) > a(v, m) THEN t=a(v, w): a(v, w)=a(v, m): a(v, m)=t
NEXT: NEXT: NEXT


FOR v=1 TO 78
    FOR w=1 TO 20
        PRINT #1, a(v, w); CHR$(9);
NEXT: PRINT #1,: NEXT

FOR v=1 TO 20
    FOR w=1 TO 78
        PRINT #2, a(w, v); CHR$(9);
NEXT: PRINT #2,: NEXT
 
 

Языки программирования 1992 - ХХ1 век:
главный язык высочайшего уровня бэйсик basic quickbasic qbasic qb64

1992 basic двк
1993 basic zx spectrum
1994 assembler zx spectrum
1994 basic укнц
1995 basic turbobasic
1995 basic qbasic
1996 basic gwbasic
1997 mathematica
1998 pascal borland pascal
1999 visual basic word
2010 basic quickbasic
2012 visual basic excel
2014 basic qb64
2015 c#
2018 basic powerbasic
2019 java
2022 python c++ javascript

Переводы 

translate.yandex.ru/
translate.yandex.ru/doc

translate.google.ru/
translate.google.ru/#view=home&op=docs&sl=ru&tl=en

free-translation.imtranslator.net/Russian-language_Russian-English_translation/

promt.ru/

boxgm.itch.io/qbjs

Озвучивание 

voxworker.com/ru

text-to-speech.imtranslator.net/speech.asp?dir=g_en-UK_m
texttospeechrobot.com/tts/ru/sintezator-rechi-onlayn/
ispeech.org/text.to.speech
fromtexttospeech.com/

balabolka-tts.ru/balabolka.html
vector-ski.ru/vecs/govorilka/

Колоризация 

color.artlebedev.ru/
colourise.sg/#colorize

deepai.org/machine-learning-model/colorizer

9may.mail.ru/restoration/

Конвертеры

convert-video-online.com/ru/
video.online-convert.com/ru
 

Архивация web.archive.org

Страница архивируется добавив в адрес в начало
https://web.archive.org/save/

Стартуется адрес https://web.archive.org/save/https://***
и получаем адрес сайта
https://web.archive.org/web/2022*/https://***


 

3д форматы стерео фото видео изображений вкратце самые доступные

Анаглиф: качество малое готово под красно-синие очки anaglyph
    Визуально: красно-синие края предметов
    Пере-форматирование невозможно и цвета искажены

Стереопара side-by-side\over-under и красно-синие очки
    Визуально: единый кадр и картинки 2 шт. рядом
    Изменение формата возможно и превращает в анаглиф
    Цвета искажены либо смотреть любую часть кадра отдельно

Стереопара и смартфон: качественно без красно-синих очков
    Требуется аппарат: кожух и линзы и смартфон и джойстик
    Изменение формата возможно и цвета без искажения

Ещё есть другие форматы 3д устаревшие и нераспространённые

Любое stereo изображение приемлемо только созданное 2-мя камерами

Любые подделки из 2d в 3d выглядят неестественно

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

dvdvideosoft.com/online-youtube-subtitles-download

Синтезатор речи Балаболка скачивает субтитры как текст

Макрос Word удаляет лишние слова сайта скачивания

Sub Balabolka()
'
Dim N(27), y(27) As Variant

N(1) = "[музыка]": y(1) = " "
N(2) = "[аплодисменты]": y(2) = " "
N(3) = "[смех]": y(3) = ""
N(4) = "[ __ ]": y(4) = " "
N(5) = ChrW(13): y(5) = " " 'ChrW(13) '"^p"
n(6) = " само": y(6) = " само "
n(7) = " где ": 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) = " а ": y(14) = ". а "
N(15) = ",": y(15) = " "
N(16) = " .": y(16) = ". "
N(17) = "_": y(17) = " "
N(18) = "/": y(18) = " "
N(19) = ";": y(19) = ". "
N(20) = "*": y(20) = " "
N(21) = "…": y(21) = ". "
N(22) = "—": y(22) = " "
N(23) = "современ": y(23) = "со времен"
N(24) = ".. ": y(24) = ". "
N(25) = "  ": y(25) = " "
N(26) = "  ": y(26) = " "
N(27) = "Created on https:  www.dvdvideosoft.com free-youtube-subtitles-download": y(27) = ""

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

For i = 1 To 27
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = N(i)
.Replacement.Text = y(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.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 году и включает сотни замен
в т.ч. отдельно форматируя оформление и расставляя знаки препинания

или... LifeHack: скачиваем субтитры сами

Решаем ребус УДАР+УДАР=ДРАКА через массив из 5 букв

Сравнения букв через вложенные циклы

' dadraka.bas
' Russian Rebus Letters from Digitals.bas
NN = 5: DIM a(NN)
FOR u = 1 TO 9: a(1) = u
    FOR d = 1 TO 9: a(2) = d
        FOR a = 0 TO 9: a(3) = a
            FOR r = 0 TO 9: a(4) = r
                FOR k = 0 TO 9: a(5) = k
FOR xx = 1 TO NN-1
   FOR yy = xx + 1 TO NN
      IF a(xx) = a(yy) THEN GOTO 55
NEXT yy: NEXT xx
udar = 1000*u + 100*d + 10*a + r
draka = d*10000 + r*1000 + a*100 + k*10 + a
IF udar + udar = draka THEN PRINT udar, draka
55 NEXT k: NEXT r: NEXT a: NEXT d: NEXT u
END

Визуализация комбинаций

Тендер и 3 цены товара должны случайно отличаться
Зато средняя величина должна быть строго равна заданной цене

Простое решение Эксцель:

A2 500 - искомая цена
C2 =A2-20 - малая цена
D2 =3*A2-C2-E2 - главная формула
E2 =A2+50 - большая цена
G2 =СРЗНАЧ(C2:E2) - проверка равна A2

Строка развивается вниз и заполняются цены

Сложное решение Excel включает % отклонения

A1 3 - % отклонения
A2 500 - искомая цена
C2 =A2-A2*(1+СЛЧИС())*$A$1/200 - малая цена
D2 =3*A2-C2-E2 - главная формула
E2 =A2+A2*(1+СЛЧИС())*$A$1/100 - большая цена
G2 =СРЗНАЧ(C2:E2) - проверка равна A2
I2 =E2/A2 - расчёт отклонения всегда около требующихся %

Строка развивается вниз и заполняются цены

Приоритет Windows и МЫ

Открываю файл в программе сразу включая приоритет реального времени

Вместо неуправляемого "Открыть с помощью"
использую мои наработки прошлого века "Отправить"

%AppData%\Microsoft\Windows\SendTo

Иногда часто нужен конвертер Avidemux

Захожу в каталог программы Avidemux и создаю внутри каталога:
realtime.bat

@ start "" /realtime "C:\Program Files\Avidemux\Avidemux.exe" %1

1-строчный универсальный одинаково называемый и сохраняю

Создаю ярлык на realtime.bat в каталоге "Отправить" Sendto
и новейший ярлык переименовываю в Avidemux

Видя любой файл видео: Мышь - Меню - Отправить - Avidemux
и файл видео открыт в Avidemux

Диспетчер задач: Avidemux приоритет реального времени

Никому никогда ничего не рекомендую и пишу только про себя



Windows Priority and WE

I open file in program immediately including real time priority

Instead of unmanaged "Open with"
I use my best practices of last century "Send"

%AppData%\Microsoft\Windows\SendTo

Sometimes it is often necessary to Avidemux converter

I go to Avidemux program directory and to create it inside directory:
realtime.bat

@ start "" /realtime "C:\Program Files\Avidemux\Avidemux.exe" %1

1-line universal equally named and saved

Creating a shortcut to realtime.bat in "Send" folder Sendto
and I rename newest shortcut to Avidemux

Any video file: Mouse-Menu-Send-Avidemux
and video file is opened in Avidemux

I look at task manager: Avidemux real-time priority

I never recommend anything to anyone and write only about myself

 

Лучшее оформление программного кода:
1-я строка комментарий: имя программы с расширением
Комментарии и отступы вправо и программа читается без цветов

Better design of program code:
1st line comment: name of program with extension
Comments with right margins & program is read without colors

Удлинитель клавиатуры:

0--> Клавиатура M micro USB

>--) Adapter F micro USB - M USB type C
)--] Adapter F USB type C - M USB
]--] Шнур F USB - М USB
]--> OTG F USB - М micro USB - Смартфон \ Планшет

K--> >--) )--] ]--] ]--> 0

Удлинитель помог когда зарядка отказала
иначе применялась бы лягушка на аккумулятор

Зарядка - Телефон
Z--> >--) )--] ]--] ]--> T

Заменяется клавиатура ноутбука неработающая или неудобная

K--> Клавиатура M micro USB
>--) Adapter F micro USB - M USB type C
)--] Adapter F USB type C - M USB - Ноутбук

Внешняя Клавиатура K--> >--) )--] Ноутбук
и ещё возможен удлинитель ]----]

Объединив шнуры USB & OTG
получаем в обе стороны М micro USB

и подключив в каждый М micro USB
лично у меня происходит зарядка
видимо из аккумулятора мощного в слабый
 

autocad мини блоки mini-blocks мини-блоки = NFT

NFT = non-fungible token = невзаимозаменяемый токен

блок = линия + текст = метка + шифр
элемент спецификации и внедрены в 2007

mini blocks mini-blocks autocad are NFT

NFT = nonfungible token = cryptographic tokens

block = line + text = label + cipher
is element of specification since 2007

dwg интернет онлайн конвертеры 

anyconv.com/ru/dwg-konverter/

onlineconvertfree.com/ru/convert/dwg/

cad.online-convert.com/ru/convert-to-dwg

Никому ничего никогда не рекомендую и всегда пишу про себя