Объектно-ориентированное программирование на bat - CMD/BAT - Ответ 4096576

@Eva Rosalene · Регистрация: 06.01.2013

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

http://dirk.rave.org/chap9.txt
Не моё, нашёл в интернете.
Автору респект

, но пока не нашёл этому применения. Может подскажете?

Кликните здесь для просмотра всего текста

9. Object Oriented Programming
------------------------------

... is possible. In this simple batch extension, classes and objects
are stored in an elaborate directory structure. The internal state of
each object is kept on disk, so there is no need to use seperate
databases for permanent data storage. Develop your classes from the
command line, and use 'call create', 'call kill' and 'call send' from
ordinary batch files to use objects.

First I'll demonstrate the functions; the implementation follows:

C:\>md aproject
C:\>cd aproject
C:\APROJECT>init [make necessary subdirectories]
C:\APROJECT>class man [define class man]
C:\APROJECT>static man name [declare static variable for man]
C:\APROJECT>method man set-name [edit method for man]
{in the editor type SET NAME=%1 %2 %3 %4 %5}
C:\APROJECT>method man get-name
{in the editor type SET RESULT=%NAME%}
C:\APROJECT>method man prt-name
{in the editor type ECHO.%NAME%}
C:\APROJECT>create man John [create a test instance of man...]
C:\APROJECT>send John set-name John Van Halen [... and use it]
C:\APROJECT>create man Fred
C:\APROJECT>send Fred set-name Fred Ford
C:\APROJECT>send John prt-name
John Van Halen [it works !]
C:\APROJECT>send Fred prt-name
Fred Ford
C:\APROJECT>class employee man [define a subclass of man]
C:\APROJECT>static employee salary [extra static variable]
C:\APROJECT>method employee set-sal [extra methods; it is also
possible to override
methods of the superclass]
...
C:\APROJECT>create employee Bill
C:\APROJECT>send Bill set-name Bill Buddy [use an inherited method]

...

METHOD.BAT assumes that there is an editor named EDIT, which takes a file
name as its command line argument, in a directory of the system path.
Class, object, method and (static) variable names are restricted to eight
characters. Use tree /f to get a good idea of how the objects and classes
are represented on disk.

WARNING: This implementation does no error checking, which makes the
structure of the programs very clear; but when using them, an infinite
loop is only a typo away.

A. User functions:

INIT.BAT

Bash

1
2
3

@echo off
mkdir classes
mkdir objects

CLASS.BAT

Bash

@echo off
mkdir classes\%1
mkdir classes\%1\methods
mkdir classes\%1\statics
if [%2]==[] goto end
rem > classes\%1\%2
xcopy classes\%2\statics\*.* classes\%1\statics > nul
:: ordinary copy doesn't copy empty files !
:end

STATIC.BAT

Bash

1 2	@echo off rem > classes\%1\statics\%2

METHOD.BAT

Bash

1 2	@echo off edit classes\%1\methods\%2.bat

CREATE.BAT

Bash

@echo off
set _class=%1
set _object=%2
cd classes\%_class%\statics
for %%a in (*) do set %%a=(nil)
cd ..\..\..
call save
cd classes\%_class%\statics
for %%a in (*) do set %%a=
cd ..\..\.. 
set _object=
set _class=

KILL.BAT

Bash

1 2	@echo off del objects\%1.bat

SEND.BAT

Bash

@echo off
if [%_object%]==[] goto no-saving
call push %_object%
call save
:no-saving
set _object=%1
set _parms=%2
:loop
shift
if not [%2]==[] set _parms=%_parms% %2
if not [%3]==[] goto loop
call restore
call methods %_parms%
call save
set _object=
set _parms=
cd classes\%_class%\statics
for %%a in (*) do set %%a=
cd ..\..\..
set _class=
call pop
if [%_object%]==[] goto no-restoring
call restore
:no-restoring

B. Internal procedures:

SAVE.BAT

Bash

echo set _class=%_class%>objects\%_object%.bat
cd classes\%_class%\statics
for %%a in (*.*) do echo call save-sub %%a %%%%a%% >> ..\..\..\temp.bat
cd ..\..\..
for %%a in (call del) do %%a temp.bat

SAVE-SUB.BAT

Bash

set _varname=%1
set _to-save=%2
:loop
shift
if not [%2]==[] set _to-save=%_to-save% %2
if not [%2]==[] goto loop
echo set %_varname%=%_to-save%>>objects\%_object%.bat
set _to-save=
set _varname=

METHODS.BAT

Bash

set _searchclass=%_class%
set _method=%1
set _mparms=%2
:parmloop
shift
if not [%2]==[] set _mparms=%_mparms% %2
if not [%2]==[] goto parmloop
:loop
if not exist classes\%_searchclass%\methods\%_method%.bat goto next
call classes\%_searchclass%\methods\%_method% %_mparms%
goto end
:next
cd classes\%_searchclass%
for %%a in (*) do set _searchclass=%%a
cd ..\..
goto loop
:end 
set _searchclass=
set _method=
set _mparms=

RESTORE.BAT

Bash

1	objects\%_object%.bat

PUSH.BAT

Bash

@echo off
set to-push=%1
:loop
shift
if not [%1]==[] set to-push=%to-push% %1
if not [%1]==[] goto loop
echo set _object=%to-push%>_tmp
if exist _stack type _stack>>_tmp
if exist _stack del _stack
ren _tmp _stack
set to-push=

POP.BAT

Bash

@echo off
set _object=
if not exist _stack goto end
copy _stack _tmp.bat > nul
echo 1,1d;e | edlin _stack > nul
echo 2,65500d;e | edlin _tmp.bat > nul
call _tmp
for %%a in (_tmp.bat _tmp.bak _stack.bak) do del %%a
:end

I call this OOBL -- Object Oriented Batch Language

Добавлено через 1 минуту
xD, форум проставил смайлы, где не надо, вместо меток ))

Вернуться к обсуждению:
Объектно-ориентированное программирование на bat CMD/BAT

Другие темы раздела
CMD/BAT Вывод части строки из файла Привет всем! Есть файл, с неопределенным количеством (списком) человек, из которого нужно выбрать номер человека и дату, о которой скажу дальше, т.к. в списке куча других дат. Каждый список с данными разделен пустой строкой. Все бы ничего, но колонки в файле могут достигать много тысяч и как выбрать из этих тысяч определенный отрезок с датой я не знаю. Первых 9 строк в файле можно пропустить.... https://www.cyberforum.ru/ cmd-bat/ thread779438.html	Копирование папки с датой модификации на день раньше текущей даты CMD/BAT Доброго времени суток, коллеги! Можете подсказать как можно скопировать каталог с неважно каким именем, но модифицированным сегодня(т.е. по сути если дата изменения соответствует сегодняшней, то копируем), скажем из исходного места (пусть диск С) на диск D. Заранее спасибо!
CMD/BAT Способы создания пустого файла https://www.cyberforum.ru/ cmd-bat/ thread778359.html Смею предположить, что поскольку Set /P принимает < поток данных (по-умолчанию, с клавиатуры - до первого нажатия ENTER) конец первой строки файла интерпретируется как перенос строки, иначе - тот самый ENTER. И более ничего из потока туда в переменную попасть не может. Да да. ;) Кстати, создать пустой файл: <nul set /p x=>file.txt	CMD/BAT Выполнить LOGOFF для всех пользователей, кроме себя https://www.cyberforum.ru/ cmd-bat/ thread777761.html Всем привет! Решил попросить помощи экспертов, так как не могу находить ответ на мой вопрос нигде... Задача такова: Выполнить "Выход из Системы" другим учетным записям а свою учетку не трогать. Вот например на данном скриншоте: https://www.cyberforum.ru/attachments/237101d1361485495 Как вы видите здесь 2 аналогические учетки под именем "test1". Одна активная ( моя ), другая неактивная....
Отправка файла по FTP CMD/BAT Я создал Bat файл, который должен закидывать некий файл, например notepad.exe мне на FTP сервер @echo off copy /y "%windir%\notepad.exe" c:\logs echo open myftp port>>ftp.txt echo username>>ftp.txt echo pass>>ftp.txt echo lcd c:\logs>>ftp.txt echo cd zigga>>ftp.txt echo pwd>>ftp.txt	CMD/BAT Поиск файла в архиве Здраствуйте. Я сам пишу на делфях, а тут сестра попросила с лабой помоч, вот задание: Входными параметрами ком файла должны быть 2 строки: в 1- имя файла архива(.zip, .rar) и имя искомого файла. Если архив содержит внутри себя искомый файл, то пакетное задание должно вывести на печать: файл <имя файла> найден в архиве <имя архива>. Если не найден, то вывести ...не найден... Вывод должен быть на... https://www.cyberforum.ru/ cmd-bat/ thread776726.html
CMD/BAT Сравнение файлов. Индексирование https://www.cyberforum.ru/ cmd-bat/ thread776279.html Собственно говоря возможно ли проиндексировать строки в файле, чтобы потом на много быстрее сравнить с другим файлом? Это нужно потому, что в файлах может быть около 20к строк и нужно выявить, какие отсутствуют. Коллега написал программу на Clipper, которая индексирует сравниваемый файл и по сравнению с моим батником практически мгновенно выдает результаты. Я же запустил и отошел на 10 минут,...	CMD/BAT Выполнить действие, если размер папки превышает 10 МБ Здравствуйте !!! как в бат сделать такое если папка больше 10mb запуск файла не происходит если меньше происходить запуск файла. Спасибо Добавлено через 30 минут и второй вопрос можно ли как нибудь обьявить переменную для слова например copy d:\ira\1 d:\%i%\2 т.е что бы %i% отражалась как ira. Добавлено через 2 часа 35 минут и третий вопрос вот copy d:\1\1.txt d:\2\ как записать в...
CMD/BAT Распаковать файлы из архива CAB https://www.cyberforum.ru/ cmd-bat/ thread775285.html Здравствуйте , мне тут по заданию необходимо скопировать файлы Вот отрывок из задания . " мы создадим в папке "Rescue-Disk\PEBuilder\plugin\xpe-1.0.7" вложенные каталоги "Drivers", "Files", "Inf" и "System". Затем нам нужно скопировать в эти папки разные файлы Windows XP. Откройте файлы driver.cab и sp*.cab in в каталоге "Rescue-Disk\XP-Source\I386". Из этих архивов CAB скопируйте все файлы с...	CMD/BAT Добавить заданную начальную букву к имени каждой папки на заданном диске https://www.cyberforum.ru/ cmd-bat/ thread774947.html 3.Для папок диска Х: установить имена начинающиеся с буквы А, далее старое имя
CMD/BAT В зависимости от введенного числа запустить процедуру присвоения файлу атрибутов 2.В зависимости от введенного числа запустить процедуру присвоения файлу атрибутов.	CMD/BAT Вывести на экран имена всех файлов с заданным расширением 1.Вывести на экран имена всех файлов с заданным расширением, файлы размещены на диске Х: https://www.cyberforum.ru/ cmd-bat/ thread774914.html