Skip to content

Instantly share code, notes, and snippets.

@EvilBeaver
EvilBeaver / Get-Latest20.os
Last active August 29, 2015 14:18
Get-Latest-Snegopat-Scripts
//1. НЕ работает группировка Procedure/EndProcedure, Function/EndFunction
//2. Не опознаются ключевые слова "Not", "In", "False", "True"
//3. Не опознается объект CommandLineArguments (АргументыКоманднойСтроки)
//4. Не опознается метод Count() (Количество()) у массивов
//5. RunApp глотает кавычки:
//cmdLine =
//"C:\Snegopat 20\fossil.exe" clone "http://snegopat.ru:9004" "C:\Snegopat 20\repo\core.fossil"
//
//а командная строка процесса =
//"C:\Snegopat 20\fossil.exe" clone http://snegopat.ru:9004 C:\Snegopat 20\repo\core.fossil
@EvilBeaver
EvilBeaver / git-repo-set-remote.os
Last active December 25, 2015 08:52
Set Git Remote
//////////////////////////////////////////////////////////////////////
//
// Изменение remote для нескольких репозитариев GIT
// Copyright EvilBeaver <ovsiankin.aa@gmail.com> 2015
//
//////////////////////////////////////////////////////////////////////
Перем СтарыйПрефикс;
Перем НовыйПрефикс;
@EvilBeaver
EvilBeaver / bind.os
Created May 31, 2016 17:21
Associate 1script files in Windows
// Привязка файлов *.os к oscript.exe
// Запуск скриптов *.os из командной строки без указания расширения
// (с) awa, 2015
#Использовать tempfiles
Процедура Главная()
СистемнаяИнформация = Новый СистемнаяИнформация;
ОС = НРег(СистемнаяИнформация.ВерсияОС);
Если Найти(ОС, "windows") = 0 Тогда
@EvilBeaver
EvilBeaver / gitgc.os
Created March 9, 2017 09:27
Пакетное сжатие всех папок с репозиториями GIT
#Использовать logos
#Использовать fs
Процедура ВыполнитьОбработку(Знач Каталог)
ВсеПапки = НайтиФайлы(Каталог, ПолучитьМаскуВсеФайлы());
Для Каждого НайденныйКаталог Из ВсеПапки Цикл
Если Не НайденныйКаталог.ЭтоКаталог() Тогда
Продолжить;
@EvilBeaver
EvilBeaver / Vagrantfile
Last active January 10, 2018 07:38
Docker VagrantFile Ubuntu
# -*- mode: ruby -*-
# vi: set ft=ruby :
# All Vagrant configuration is done below. The "2" in Vagrant.configure
# configures the configuration version (we support older styles for
# backwards compatibility). Please don't change it unless you know what
# you're doing.
Vagrant.configure(2) do |config|
# The most common configuration options are documented and commented below.
# For a complete reference, please see the online documentation at
@EvilBeaver
EvilBeaver / zoopark.os
Last active March 13, 2018 08:57
Скрипт сбора версий платформ с зоопарка систем 1С
#Использовать logos
#Использовать cmdline
Перем Лог;
Перем мТекущаяВерсия;
Процедура ОпределитьТекущуюВерсию()
ИмяКомпонента = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\V83.COMConnector\CLSID\";
#!/bin/bash
wget --no-check-certificate https://www.rabbitmq.com/releases/rabbitmq-server/v3.6.3/rabbitmq-server_3.6.3-1_all.deb
apt-get -y install erlang-nox socat &&
dpkg -i rabbitmq-server_3.6.3-1_all.deb &&
rm rabbitmq-server_3.6.3-1_all.deb &&
rabbitmq-plugins enable rabbitmq_management
rabbitmqctl add_user admin admin
@EvilBeaver
EvilBeaver / snake.os
Created June 23, 2020 19:43
Snake Game written in 1Script
Перем Консоль;
Перем Змея;
Перем Яблоко;
Перем ЗнакЛево;
Перем ЗнакВерх;
Функция КоординатаЯблокаЛево()
Возврат ГСЧ(Консоль.Ширина, ЗнакЛево);
КонецФункции
@EvilBeaver
EvilBeaver / eratosfenes.os
Created February 24, 2021 19:43
Тесты производительности Решето Эратосфена
Н = 50000000;
Массив = Новый Массив();
Массив.Добавить(Ложь);
Массив.Добавить(Ложь);
Для индекс = 2 По Н Цикл
Массив.Добавить(Истина);
КонецЦикла;
@EvilBeaver
EvilBeaver / photo-sorter.os
Created December 25, 2022 16:26
Скинул фотки с телефона в кучу, запустил скрипт, отсортировал по годам и месяцам
#Использовать fs
#Использовать progbar
Процедура ВыполнитьСортировку(Знач ИсходныйПуть)
ПрогрессБар = Новый ПрогрессБар();
ВсеФайлы = НайтиФайлы(ИсходныйПуть, ПолучитьМаскуВсеФайлы(), Ложь);
Таблица = Новый ТаблицаЗначений();
Таблица.Колонки.Добавить("Ключ", Новый ОписаниеТипов("Дата"));