Горячее
Лучшее
Свежее
Подписки
Сообщества
Блоги
Эксперты
Войти
Забыли пароль?
или продолжите с
Создать аккаунт
Регистрируясь, я даю согласие на обработку данных и условия почтовых рассылок.
или
Восстановление пароля
Восстановление пароля
Получить код в Telegram
Войти с Яндекс ID Войти через VK ID
ПромокодыРаботаКурсыРекламаИгрыПополнение Steam
Пикабу Игры +1000 бесплатных онлайн игр Что таится в глубинах Земли? Только Аид знает наверняка. А также те, кто доберётся до дна шахты.

Эпичная Шахта

Мидкорные, Приключения, 3D

Играть

Топ прошлой недели

  • solenakrivetka solenakrivetka 7 постов
  • Animalrescueed Animalrescueed 53 поста
  • ia.panorama ia.panorama 12 постов
Посмотреть весь топ

Лучшие посты недели

Рассылка Пикабу: отправляем самые рейтинговые материалы за 7 дней 🔥

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

Спасибо, что подписались!
Пожалуйста, проверьте почту 😊

Помощь Кодекс Пикабу Команда Пикабу Моб. приложение
Правила соцсети О рекомендациях О компании
Промокоды Биг Гик Промокоды Lamoda Промокоды МВидео Промокоды Яндекс Маркет Промокоды Пятерочка Промокоды Aroma Butik Промокоды Яндекс Путешествия Промокоды Яндекс Еда Постила Футбол сегодня
0 просмотренных постов скрыто
2
trdm
trdm

Ответ на пост «Архивируем все файлы внутри директории, исключая ненужные - архив с датой и временем в имени»⁠⁠1

4 года назад

Делал нечто подобное на vbs.

Архивирует всю папку рекурсивно и помещает архив в родительскую директорию.

' z0_foldr_2_arh.vbs

' trdm 2021-05-23 17:39:47

' Архивация текущей дирректории.

set gWsh = CreateObject("WScript.Shell")

set gFso = CreateObject("Scripting.FileSystemObject")

set gCurDir = gFso.GetFolder(gWsh.CurrentDirectory)

dim gCurDirSN : gCurDirSN = gCurDir.Name

set gParent = gCurDir.ParentFolder

Function FNS(psNum, psVN)

FNS = Right("00000000000000000"+CStr(psNum),psVN)

End Function

Function formatDT(psDate)

vStr = ""+CStr(Year(psDate))

vStr = vStr + FNS(Month(psDate),2)

vStr = vStr + FNS(Day(psDate),2)

vStr = vStr + "_"

vStr = vStr + FNS(Hour(psDate),2)

vStr = vStr + FNS(Minute(psDate),2)

vStr = vStr + FNS(Second(psDate),2)

formatDT = vStr

End Function

Sub runArhive()

vFileName = gCurDirSN + "_"+formatDT(Now)+".7z"

gWsh.CurrentDirectory = gParent.Path 'msgbox vFileName 'msgbox gWsh.CurrentDirectory

vCommand = "7z a "+vFileName+" .\"+gCurDirSN+"\* -r" ' msgbox vCommand

gWsh.Exec vCommand 'msgbox gCurDirSN 'gParent.Path

End Sub

runArhive

Ответ на пост «Архивируем все файлы внутри директории, исключая ненужные - архив с датой и временем в имени»
Показать полностью 1
[моё] Архивация Автоматизация Windows Ответ на пост
4
84
Pinelab
Pinelab
Лига Сисадминов

Архивируем все файлы внутри директории, исключая ненужные - архив с датой и временем в имени⁠⁠1

4 года назад

Думаю, многим пригодится скрипт для автоматического архивирования содержимого директории, исключая файлы с определённым расширением. Пример такого скрипта ниже, BAT файл со скриптом просто кладётся в директорию с файлами и по двойному клику создаёт архив с датой и временем в имени файла


@Echo off

setlocal EnableDelayedExpansion

for /f "tokens=2 delims==" %%a in ('wmic OS Get localdatetime /value') do set "dt=%%a"

set "YY=%dt:~2,2%" & set "YYYY=%dt:~0,4%" & set "MM=%dt:~4,2%" & set "DD=%dt:~6,2%"

set "HH=%dt:~8,2%" & set "Min=%dt:~10,2%" & set "Sec=%dt:~12,2%"

set "fullstamp=%YYYY%-%MM%-%DD%_%HH%-%Min%-%Sec%"

set set "mypath=%cd%"

"c:\Program Files\7-Zip\7z.exe" a %fullstamp%.7z %mypath%* -r -x^^!*.7z -x^^!*.bat

В строчке:

"c:\Program Files\7-Zip\7z.exe" a %fullstamp%.7z %mypath%* -r -x^^!*.7z -x^^!*.bat
параметрами -x^^!*.7z -x^^!*.bat задаётся исключение файлов с расширениями *.7z и *.bat  (тут можете добавить свои) из списка архивирования - таким образом внутрь архива попадают только нужные файлы.

c:\Program Files\7-Zip\7z.exe - путь к 7-Zip архиватору (должен быть установлен перед началом использования)


Видео использования ниже

Показать полностью 1
[моё] Архивация Автоматизация Windows Видео
44
AnyaLove000001
AnyaLove000001

Поиск самой сложной модели ( изображения ) по весу в байтах⁠⁠

4 года назад

Интуитивно понятно, что чем более упорядочена система, тем короче

описание, необходимое для определения типичного микросостояния.


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


возьмём изображение 2 на 2 пикселя, цвет чёрный и белый.


Какое будет самое сложное изображение ? который архиватор не сможет сжать?

учитывая что jpeg - это и есть формат архивации.

2X2 =  это значит что существует 2X2 = 4  варианта всех видов изображений 2 на 2 пикселя.

Вот это изображение 2X2 пикселя - весит 690 байт. И является самым сложным. Ведь никакой алгоритм архивации не сможет дальше это сжать.
Изображение увеличено в 40 раз.

Подобные работы, должны интересовать математиков, ведь это фундаментальная математика, о сжатии информации, для таких прорывов вроде "ИИ"

Из 3X3  = 3X3X3X3  81 модель и самая сложная модель у этого изображения. вес 542 байта

4x4 модель

5X5 модели уже 15625  вариантов расположения точек.  и вот самая сложная.

Дальше уж очень много моделей. и долго вычислять. Перейдём к цветным!


Самые лёгкие изображения  это океаны и ровные поверхности

Потом идут побережья и города!

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

Города тоже сложные по структуре, но города квадратные, алгоритмы архивации видят что квадратные дома и улицы одинаковые и сжимают изображение а вот горы сжать нельзя!

интересно соотносить ещё то, что горы результат движения и высокого давления материковых плит. горы имеют всё время разные формы, и такие изображения хуже всего сжимаются.

Давайте также переведём это изображение в ПОЛНЫЙ ЧБ ( без серого и тонов )
будет что то вроде этого.

Также если мы увеличим в 10 раз, изображение то увидим шахматное расположение пикселей
Оно уж очень правильное.

Другое изображение имеет точно такие закономерности и фракталы.

Также обратите  какая высокая организация шахматного порядка пикселей.

Тут точно без подлых рептоидов не обошлось.

Показать полностью 14
[моё] Архивация Математика Длиннопост
22
1147
77ru
77ru

Архивация данных⁠⁠

5 лет назад
Кот Коробка Коробка и кот Архивация Гифка
31
1412
SinTX
SinTX
IT-юмор

PDF зазиповался⁠⁠

6 лет назад
Показать полностью 2
IT юмор Архивация Мешочек
47
pikselll
pikselll

Делаем backup⁠⁠

6 лет назад

Недавно нашел программу которая удовлетворяет на данный момент мои потребности, может пригодиться кому. А название данного шедевра KLS Backup 2017 Professional (не реклама), как можно догадаться из названия программы, она предназначена для резервного хранения данных. Достаточно простой, понятный интерфейс

На данный момент настроил инкрементное резервное копирование каждые два дня.

А вы уважаемые Пикабушники какими программами пользуетесь, что бы не потерять ценную информацию?

Показать полностью 2
[моё] Архивация Backups Восстановление данных Хранение данных
27
mal4eg
mal4eg

Просили - получайте⁠⁠

6 лет назад
Просили - получайте

#comment_136057146

Показать полностью 1
Комментарии на Пикабу Архивация Длиннопост Комментарии Скриншот
2
1473
mainka
mainka

Упаковка арбуза⁠⁠

7 лет назад
Арбуз Упаковка Гифка Интересное Архивация
127
Посты не найдены
О нас
О Пикабу Контакты Реклама Сообщить об ошибке Сообщить о нарушении законодательства Отзывы и предложения Новости Пикабу Мобильное приложение RSS
Информация
Помощь Кодекс Пикабу Команда Пикабу Конфиденциальность Правила соцсети О рекомендациях О компании
Наши проекты
Блоги Работа Промокоды Игры Курсы
Партнёры
Промокоды Биг Гик Промокоды Lamoda Промокоды Мвидео Промокоды Яндекс Маркет Промокоды Пятерочка Промокоды Aroma Butik Промокоды Яндекс Путешествия Промокоды Яндекс Еда Постила Футбол сегодня
На информационном ресурсе Pikabu.ru применяются рекомендательные технологии