Расчёт длины c ANSI эскейп‑последовательностями

@iNNOKENTIY21 · Регистрация: 26.09.2020

Студворк — интернет-сервис помощи студентам

Как рассчитать длину только видимой части строки c ANSI escape‑последовательностями?

Пример вывода длины строки, включая невидимые символы:

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
.{
    $e = [char] 27
 
    $reset = "$e[0m"
    $bold  = "$e[1m"
 
    $black   = "$e[30m"
    $red     = "$e[31m"
    $green   = "$e[32m"
    $yellow  = "$e[33m"
    $blue    = "$e[34m"
    $magenta = "$e[35m"
    $cyan    = "$e[36m"
    $gray    = "$e[37m"
 
    $darkGray      = "$e[90m"
    $brightRed     = "$e[91m"
    $brightGreen   = "$e[92m"
    $brightYellow  = "$e[93m"
    $brightBlue    = "$e[94m"
    $brightMagenta = "$e[95m"
    $brightCyan    = "$e[96m"
    $white         = "$e[97m"
 
    $string = '`n${bold}${red}TEST-11${reset}`n${yellow}TEST-21${reset}`n${green}TEST-31${reset}`n'
    $expanded = $ExecutionContext.InvokeCommand.ExpandString($string)
    [string[]] $lines = $expanded -split '\r?\n'
 
    Clear-Host
    Write-Host $expanded
 
    Write-Host ("Всего строк: {0}" -f $lines.Count)
 
    for ($i = 1; $i -le $lines.Count; $i++) {
        Write-Host ('Длина строки {0}: {1} символов' -f $i, ($lines[$i-1].Length))
    }
}

«TEST-11» — 7 знаков должно быть.

@iNNOKENTIY21 · 05.12.2025, 10:33 **[ТС]**

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

Допустим, строка должна стать длиной 45 символов онли текстовых символов.
У нас должно получиться, что? Это:

Да, это.

volodin661 · 05.12.2025, 11:13

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

volodin661, не знаю, чего не понятно.
В строке с ANSI эскейп‑последовательностями: подсчитывать длину, обрезать, выравнивать пробелами, всё для видимых знаков, сохраняя цвета, переносы строк.

Я не про целевую задачу, а про исходную,
а именно, откуда появилась раскрашенная строка, кто покрасил и почему теперь понадобилось по раскрашенному её изучать?

YuS_2 · 05.12.2025, 12:57

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

Да, это.

Ну, тогда в черновую, примерно так:

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
$e = [char]27
$a = "Строка- $e[38;5;214mHello, world$e[0m здесь тоже строка $e[38;5;112mtest & test$e[0m и ещё строка"
$lim = 45
# образец результата:
$res = "Строка- $e[38;5;214mHello, world$e[0m здесь тоже строка $e[38;5;112mtest &$e[0m"
 
"Исходная строка:"
$a
"- расчетная длина полностью: $($a.length)"
""
"Строка без спецсимволов:"
$a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2'
"- расчетная длина без спецсимволов: $(($a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2').length)"
""
"================"
"Образец целевой строки в 45 символов:"
$res
"- расчетная длина без спецсимволов: $(($res -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2').length)"
""
"================"
 
$arr = $a -replace '(?<!^)(\e)(?!\[0)',"`n`$1" -replace '(\e\[0m)',"`$1`n" -split "`n"
$lngh,$rarr = 0,@()
foreach ($item in $arr){
    if($lngh -lt $lim){
        $l,$d = 0,0
        if ($item -match '\e'){
            $null = $item -replace "(\e[^m]+m)([^\e]+)(\e\[0m)?",{
                $l = ([string]$_.groups[2]).length
                $lngh += $l
                if(($d = $lim - $lngh) -lt 0){
                    $rarr += [string]$_.groups[1]+([string]$_.groups[2]).substring(0,(
                        $l-[math]::abs($d)
                    ))+$_.groups[3]
                    break
                } elseif ($d -eq 0){
                    $rarr += [string]$_.groups[0]
                    break
                } else {$rarr += [string]$_.groups[0]}
            }           
        } else {
            $l = $item.length
            $lngh += $l
            if(($d = $lim - $lngh) -lt 0){
                $rarr += $item.substring(0,$l-[math]::abs($d))
                break
            } elseif ($d -eq 0){
                $rarr += $item
                break
            } else {$rarr += $item}
        }
    }
}
"Результат работы кода:"
$out = $rarr -join ''
$out
"- расчетная длина без спецсимволов: $(($out -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2').length)"

Добавлено через 1 час 4 минуты
а, да, совсем забыл, этот вариант для PS 7, где реплэйсинг со скриптблоками работает.
А ежели есть потребность в windows powershell 5.1, то действовать надо через матчинг... в общем, всё то же самое, но:

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
$e = [char]27
$a = "Строка- $e[38;5;214mHello, world$e[0m здесь тоже строка $e[38;5;112mtest & test$e[0m и ещё строка"
$lim = 45
# образец результата:
$res = "Строка- $e[38;5;214mHello, world$e[0m здесь тоже строка $e[38;5;112mtest &$e[0m"
 
"Исходная строка:"
$a
"- расчетная длина полностью: $($a.length)"
""
"Строка без спецсимволов:"
$a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2'
"- расчетная длина без спецсимволов: $(($a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2').length)"
""
"================"
"Образец целевой строки в 45 символов:"
$res
"- расчетная длина без спецсимволов: $(($res -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2').length)"
""
"================"
 
$arr = $a -replace '(?<!^)(\e)(?!\[0)',"`n`$1" -replace '(\e\[0m)',"`$1`n" -split "`n"
$lngh,$rarr = 0,@()
foreach ($item in $arr){
    if($lngh -lt $lim){
        $l,$d = 0,0
        if ($item -match '\e'){
            $null = $item -match "(\e[^m]+m)([^\e]+)(\e\[0m)?"
            $l = ([string]$matches[2]).length
            $lngh += $l
            if(($d = $lim - $lngh) -lt 0){
                $rarr += [string]$matches[1]+([string]$matches[2]).substring(0,(
                    $l-[math]::abs($d)
                ))+$matches[3]
                break
            } elseif ($d -eq 0){
                $rarr += [string]$matches[0]
                break
            } else {$rarr += [string]$matches[0]}
                    
        } else {
            $l = $item.length
            $lngh += $l
            if(($d = $lim - $lngh) -lt 0){
                $rarr += $item.substring(0,$l-[math]::abs($d))
                break
            } elseif ($d -eq 0){
                $rarr += $item
                break
            } else {$rarr += $item}
        }
    }
}
"Результат работы кода:"
$out = $rarr -join ''
$out
"- расчетная длина без спецсимволов: $(($out -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2').length)"

- будет работать в powershell 5.1

@iNNOKENTIY21 · 05.12.2025, 13:23 **[ТС]**

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

Ну, тогда в черновую, примерно так:

А если:

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
. {
    $string = '${bold}${red}TEST-11${reset}`n${yellow}TEST-21${reset}`n${green}TEST-31${reset}'
 
    $e = [char] 27
 
    $reset = "$e[0m"
    $bold  = "$e[1m"
 
    $black   = "$e[30m"
    $red     = "$e[31m"
    $green   = "$e[32m"
    $yellow  = "$e[33m"
    $blue    = "$e[34m"
    $magenta = "$e[35m"
    $cyan    = "$e[36m"
    $gray    = "$e[37m"
 
    $darkGray      = "$e[90m"
    $brightRed     = "$e[91m"
    $brightGreen   = "$e[92m"
    $brightYellow  = "$e[93m"
    $brightBlue    = "$e[94m"
    $brightMagenta = "$e[95m"
    $brightCyan    = "$e[96m"
    $white         = "$e[97m"
 
    $expanded = $ExecutionContext.InvokeCommand.ExpandString($string)
    $lim = 6
    [string[]] $lines = $expanded -split '\r?\n'
 
    foreach ($a in $lines) {
    'Исходная строка:'
    $a
    "- расчетная длина полностью: $($a.length)"
    ''
    'Строка без спецсимволов:';
    $a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?', '$2'
    "- расчетная длина без спецсимволов: $(($a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2').length)"
    ''
    '================'
 
    $arr = $a -replace '(?<!^)(\e)(?!\[0)', "`n`$1" -replace '(\e\[0m)', "`$1`n" -split "`n"
    $lngh, $rarr = 0, @()
    foreach ($item in $arr) {
        if ($lngh -lt $lim) {
            $l, $d = 0, 0
            if ($item -match '\e') {
                $null = $item -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?', {
                    $l = ([string]$_.groups[2]).length
                    $lngh += $l
                    if (($d = $lim - $lngh) -lt 0) {
                        $rarr += [string]$_.groups[1] + ([string]$_.groups[2]).substring(0, (
                                $l - [math]::abs($d)
                            )) + $_.groups[3]
                        break
                    } elseif ($d -eq 0) {
                        $rarr += [string]$_.groups[0]
                        break
                    } else { $rarr += [string]$_.groups[0] }
                }
            } else {
                $l = $item.length
                $lngh += $l
                if (($d = $lim - $lngh) -lt 0) {
                    $rarr += $item.substring(0, $l - [math]::abs($d))
                    break
                } elseif ($d -eq 0) {
                    $rarr += $item
                    break
                } else { $rarr += $item }
            }
        }
    }
    'Результат работы кода:'
    $out = $rarr -join ''
    $out
    "- расчетная длина без спецсимволов: $(($out -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?','$2').length)"
}
}

мне нужно раскрытие переменных. откуда-то жирный белый...

YuS_2 · 05.12.2025, 16:10

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

мне нужно раскрытие переменных

Дык в чем проблема? Я запустил твой код целиком, как есть... ~~никаких белых жирных не вижу~~. Увидел... попробую найти, откуда там ноги выросли.

И кстати, ты взял первый вариант, с реплэйсингом... возьми второй с матчингом, он по функционалу монопенисуальный, но более простой, за счет $matches и к тому же универсальный, то бишь будет работать и в PS v5.1

Добавлено через 10 минут
ага, вот тут они появляются:

PowerShell
1
2
3
4
...
    'Строка без спецсимволов:';
    $a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?', '$2'
...

Можно даже побороться с этой засадой, вот так:

PowerShell
1
    $a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?', "`$2${reset}"

или так:

PowerShell
1
    $a -replace '(\e[^m]+m)([^\e]+)(\e\[0m)?', "${reset}`$2"

Но почему внезапно жирный белый... пока не понимаю...

Добавлено через 2 минуты
Вот, где засада:

${bold}${red}

Два подряд эскейпа в регулярке не предусмотрен... надо подумать, как их вытравливать...

Добавлено через 6 минут
Пробуй:
PowerShell
1
$a -replace '((?:\e[^m]+m)+)([^\e]+)(\e\[0m)?', '$2'
желательно везде, где есть подобный шаблон заменить...

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
. {
    $string = '${bold}${red}TEST-11${reset}`n${yellow}TEST-21${reset}`n${green}TEST-31${reset}'
 
    $e = [char] 27
 
    $reset = "$e[0m"
    $bold  = "$e[1m"
 
    $black   = "$e[30m"
    $red     = "$e[31m"
    $green   = "$e[32m"
    $yellow  = "$e[33m"
    $blue    = "$e[34m"
    $magenta = "$e[35m"
    $cyan    = "$e[36m"
    $gray    = "$e[37m"
 
    $darkGray      = "$e[90m"
    $brightRed     = "$e[91m"
    $brightGreen   = "$e[92m"
    $brightYellow  = "$e[93m"
    $brightBlue    = "$e[94m"
    $brightMagenta = "$e[95m"
    $brightCyan    = "$e[96m"
    $white         = "$e[97m"
 
    $expanded = $ExecutionContext.InvokeCommand.ExpandString($string)
    $lim = 6
    [string[]] $lines = $expanded -split '\r?\n'
 
    $regrep = '((?:\e(?!\[0)[^m]+m)+)([^\e]+)(\e\[0m)?'
    $regb = '((?:\e(?!\[0)[^m]+m)+)'
    $rege = '(\e\[0m)'
 
    foreach ($a in $lines) {
    '================'
    'Исходная строка:'
    $a
    "- расчетная длина полностью: $($a.length)"
    ''
    'Строка без спецсимволов:';
    $a -replace $regrep, '$2'
    "- расчетная длина без спецсимволов: $(($a -replace $regrep,'$2').length)"
    ''
    '----------------'
 
    $arr = $a -replace $regb, "`n`$1" -replace $rege, "`$1`n" -split "`n"
    $lngh, $rarr = 0, @()
    foreach ($item in $arr) {
        if ($lngh -lt $lim) {
            $l, $d = 0, 0
            if ($item -match '\e') {
                $null = $item -match $regrep
                $l = ([string]$matches[2]).length
                $lngh += $l
                if(($d = $lim - $lngh) -lt 0){
                    $rarr += [string]$matches[1]+([string]$matches[2]).substring(0,(
                        $l-[math]::abs($d)
                    ))+$matches[3]
                    break
                } elseif ($d -eq 0){
                    $rarr += [string]$matches[0]
                    break
                } else {$rarr += [string]$matches[0]}       
            } else {
                $l = $item.length
                $lngh += $l
                if (($d = $lim - $lngh) -lt 0) {
                    $rarr += $item.substring(0, $l - [math]::abs($d))
                    break
                } elseif ($d -eq 0) {
                    $rarr += $item
                    break
                } else { $rarr += $item }
            }
        }
    }
    'Результат работы кода:'
    $out = $rarr -join ''
    $out
    "- расчетная длина без спецсимволов: $(($out -replace $regrep,'$2').length)"
    ''
}
}

Добавлено через 36 минут

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

мне нужно раскрытие переменных. откуда-то жирный белый...

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

PowerShell
1
$expanded -replace '\e','`e' -replace '\n','`n'

- получишь исходную строку с эскейп-символами

@iNNOKENTIY21 · 06.12.2025, 16:32 **[ТС]**

YuS_2, работает

Я только граничные случаи нашёл: '${red}[ERROR]${reset} File not found${reset}'

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
. {
    $string = '${red}[ERROR]${reset} File not found${reset}'
 
    $e = [char] 27
 
    $reset = "$e[0m"
    $bold = "$e[1m"
 
    $black = "$e[30m"
    $red = "$e[31m"
    $green = "$e[32m"
    $yellow = "$e[33m"
    $blue = "$e[34m"
    $magenta = "$e[35m"
    $cyan = "$e[36m"
    $gray = "$e[37m"
 
    $darkGray = "$e[90m"
    $brightRed = "$e[91m"
    $brightGreen = "$e[92m"
    $brightYellow = "$e[93m"
    $brightBlue = "$e[94m"
    $brightMagenta = "$e[95m"
    $brightCyan = "$e[96m"
    $white = "$e[97m"
 
    $expanded = $ExecutionContext.InvokeCommand.ExpandString($string)
    $lim = 12
    [string[]] $lines = $expanded -split '\r?\n'
 
    $regrep = '((?:\e(?!\[0)[^m]+m)+)([^\e]+)(\e\[0m)?'
    $regb = '((?:\e(?!\[0)[^m]+m)+)'
    $rege = '(\e\[0m)'
 
    foreach ($a in $lines) {
        '================'
        'Исходная строка:'
        $a
        "- расчетная длина полностью: $($a.length)"
        ''
        'Строка без спецсимволов:'
        $a -replace $regrep, '$2'
        "- расчетная длина без спецсимволов: $(($a -replace $regrep,'$2').length)"
        ''
        '----------------'
 
        $arr = $a -replace $regb, "`n`$1" -replace $rege, "`$1`n" -split "`n"
        $lngh, $rarr = 0, @()
        foreach ($item in $arr) {
            if ($lngh -lt $lim) {
                $l, $d = 0, 0
                if ($item -match '\e') {
                    $null = $item -match $regrep
                    $l = ([string]$matches[2]).length
                    $lngh += $l
                    if (($d = $lim - $lngh) -lt 0) {
                        $rarr += [string]$matches[1] + ([string]$matches[2]).substring(0, (
                                $l - [math]::abs($d)
                            )) + $matches[3]
                        break
                    } elseif ($d -eq 0) {
                        $rarr += [string]$matches[0]
                        break
                    } else { $rarr += [string]$matches[0] }
                } else {
                    $l = $item.length
                    $lngh += $l
                    if (($d = $lim - $lngh) -lt 0) {
                        $rarr += $item.substring(0, $l - [math]::abs($d))
                        break
                    } elseif ($d -eq 0) {
                        $rarr += $item
                        break
                    } else { $rarr += $item }
                }
            }
        }
        'Результат работы кода:'
        $out = $rarr -join ''
        $out
        "- расчетная длина без спецсимволов: $(($out -replace $regrep,'$2').length)"
        ''
    }
}

Но, как ты заметил, душа к регуляркам не лежит

Но никто другого не предлагает.

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
function Get-AnsiVisibleLength {
    param ( [string] $Text )
 
    $esc = [char] 27
    $len = 0
    $i = 0
 
    while ($i -lt $Text.Length) {
        $ch = $Text[$i]
 
        if ($ch -eq $esc -and $i + 1 -lt $Text.Length -and $Text[$i + 1] -eq '[') {
            $i += 2
 
            while ($i -lt $Text.Length -and $Text[$i] -ne 'm') {
                $i++
            }
 
            if ($i -lt $Text.Length) {
                $i++
            }
 
            continue
        }
 
        $len++
        $i++
    }
 
    return $len
}
 
function PadAnsiRight {
    param (
        [string] $Text,
        [int] $Width,
        [char] $PadChar = ' '
    )
 
    $len = Get-AnsiVisibleLength -Text $Text
 
    if ($len -ge $Width) {
        return $Text
    }
 
    $padCount = $Width - $len
 
    return $Text + ($PadChar * $padCount)
}
 
function PadAnsiLeft {
    param (
        [string] $Text,
        [int] $Width,
        [char] $PadChar = ' '
    )
 
    $len = Get-AnsiVisibleLength -Text $Text
 
    if ($len -ge $Width) {
        return $Text
    }
 
    $padCount = $Width - $len
 
    return ($PadChar * $padCount) + $Text
}

YuS_2 · 07.12.2025, 11:51

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

Я только граничные случаи нашёл: '${red}[ERROR]${reset} File not found${reset}'

Ну, это не граничные случаи, это элементарная невнимательность... то бишь, неверное, ошибочное назначение спецсимволов.
При желании, конечно, можно предусмотреть и такие случаи, в смысле попытаться обрабатывать их в коде, но думаю это излишне. Можно просто придерживаться неких стандартов, а при выходе за их рамки - считать исключением, в результате человеческого фактора.

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

Но, как ты заметил, душа к регуляркам не лежит

Зря-зря, при работе с текстом, регулярки - первейшее дело.

Но никто не запрещает обходиться и без них, хотя в некоторых случаях, это, возможно, будет чуть сложнее, но ничего невозможного нет же. Коды необходимых символов перечислить вполне можно, отслеживать их в строке - запросто и без регулярок, а уж резать строку на части - по силам тому же -split или .split(), а далее просто включить фантазию и кодить-кодить, пока не получится то, что требуется.

В твоих функциях засада:

The operation '[System.Char] * [System.Int32]' is not defined.

замени параметр [char] на [string] и ограничь его длиной 1

Ну и да, я же говорил, что приляпать символов к строке - не проблема, проблема - это когда её резать придется "по живому", особенно в расцвеченном интервале...

Добавлено через 5 минут

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

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

PowerShell
1
$regrep = '((?:\e(?!\[0)[^m]+m)+)?([^\e]+)?(\e\[0m)?'

@iNNOKENTIY21 · 07.12.2025, 14:47 **[ТС]**

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

В твоих функциях засада

Я заметил, забыл тут исправить

просто кастую: $Text + ([string] $PadChar * $padCount)

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .