ИНТРАДЕЙ и не только...........

rem //+------------------------------------------------------------------+
rem //| Восстановление терминала QUIK версия 1.1b |

SetLocal EnableExtensions
color 0A
cls

@echo off
title Восстановление ИТС QUIK

%~d0
cd %~dp0
If NOT exist info.exe (
echo Запустите программу из каталога QUIK
goto greatend
)

If exist %windir%\System32\wbem\wmic.exe (
SetLocal EnableDelayedExpansion
for /f "usebackq tokens=1-2 delims= " %%a in (`%windir%\System32\wbem\wmic.exe process where "name='info.exe' or name='WINROS.EXE'" get ProcessID^, ExecutablePath ^| find "%cd%"`) do set proc=!proc! %%b
if defined proc (
Echo Обнаружен запущенный терминал QUIK
Echo Для продолжения работы терминал будет принудительно закрыт
Echo ПРОДОЛЖИТЬ?
pause
for %%i in (!proc!) do taskkill /F /T /PID %%i
ping -n 5 localhost > Nul
)
SetLocal DisableDelayedExpansion
) else (
Echo Исполняемый файл оболочки WMI отсутствует
pause
)


If exist archive ( rmdir /s /q archive )
If exist dmp ( rmdir /s /q dmp )
If exist *.log ( del *.log )

set hh=%TIME:~0,2%
set mm=%TIME:~3,2%
set ss=%TIME:~6,2%
set dd=%DATE:~0,2%
set mnth=%DATE:~3,2%
set year=%DATE:~6,2%

mkdir dat_backup
mkdir dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%

copy firms.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\firms.dat
copy portfolio.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\portfolio.dat
copy scripts.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\scripts.dat
copy unins000.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\unins000.dat
copy alerts.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\alerts.dat
copy alltrade.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\alltrade.dat
copy banners.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\banners.dat
copy classes.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\classes.dat
copy limits.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\limits.dat
copy locales.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\locales.dat
copy orders.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\orders.dat
copy par.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\par.dat
copy search.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\search.dat
copy sec.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\sec.dat
copy StratVolat.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\StratVolat.dat
copy tmsg.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\tmsg.dat
copy transresult.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\transresult.dat
copy trades.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\trades.dat
copy tradermsg.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\stradermsg.dat
copy trans.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\trans.dat
copy stradermsg.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\stradermsg.dat

del portfolio.dat

del alltrade.dat
del banners.dat

del firms.dat
del limits.dat
del locales.dat
del orders.dat

del search.dat

del StratVolat.dat
del tmsg.dat
del transresult.dat
del trades.dat
del tradermsg.dat
del trans.dat
del stradermsg.dat

If exist info.wnd (
SetLocal EnableDelayedExpansion
if not exist wndbak ( mkdir wndbak )
for /f "usebackq delims=" %%a in (`echo %date%^|find "-"`) do set tmp1=%%a
if defined tmp1 ( set the_time=%date:~,4%.%date:~5,2%.%date:~8,2%_%time:~,2%%time:~3,2%%time:~6,2%
Echo Создание резервной копии info.wnd
copy info.wnd wndbak\info.wnd_!the_time!
) else (
set the_time=%date:~,2%.%date:~3,2%.%date:~6,8%_%time:~,2%%time:~3,2%%time:~6,2%
Echo Создание резервной копии info.wnd
copy info.wnd wndbak\info.wnd_!the_time!
)
del info.wnd
SetLocal DisableDelayedExpansion
) else (
Echo Файл Info.wnd отсутствует
)

If exist info.sav.wnd (
echo Найден файл info.sav.wnd
ren info.sav.wnd info.wnd
goto greatend
) else (
echo Файл info.sav.wnd отсутствует
)

If exist info.wnd.sav (
echo Найден файл info.wnd.sav
ren info.wnd.sav info.wnd
goto greatend
) else (
echo Файл Info.wnd.sav отсутствует
)

set my_loc=%cd:~3%
set virt_loc=%LOCALAPPDATA%\VirtualStore\!my_loc!\wndsav
If exist %virt_loc% (
xcopy /Y /Q "%virt_loc%" "wndsav\"
Echo Скопированы данные из виртуального хранилища
)

if exist wndsav (
SetLocal EnableDelayedExpansion
For /F "delims=] tokens=1*" %%a in ('dir/o-d /b wndsav ^|find/n "info" ^|findstr /C:"[2]"') do set wnds=%%b
Echo !wnds!
copy wndsav\!wnds! info.wnd
Echo Файл настроек взят из WNDSAV
SetLocal DisableDelayedExpansion
) else (
echo Папка WNDSAV отсутствует
)

:greatend
echo Программа закончила свою работу
pause
exit

set hh=%TIME:~0,2%
set mm=%TIME:~3,2%
set ss=%TIME:~6,2%
set dd=%DATE:~0,2%
set mnth=%DATE:~3,2%
set year=%DATE:~6,2%

mkdir dat_backup
mkdir dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%

copy firms.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\firms.dat
copy portfolio.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\portfolio.dat
copy scripts.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\scripts.dat
copy unins000.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\unins000.dat
copy alerts.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\alerts.dat
copy alltrade.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\alltrade.dat
copy banners.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\banners.dat
copy classes.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\classes.dat
copy limits.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\limits.dat
copy locales.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\locales.dat
copy orders.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\orders.dat
copy par.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\par.dat
copy search.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\search.dat
copy sec.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\sec.dat
copy StratVolat.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\StratVolat.dat
copy tmsg.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\tmsg.dat
copy transresult.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\transresult.dat
copy trades.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\trades.dat
copy tradermsg.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\stradermsg.dat
copy trans.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\trans.dat
copy stradermsg.dat dat_backup\Date_%dd%%mnth%%year%_Time_%hh%%mm%%ss%\stradermsg.dat

del portfolio.dat

del acnt.dat
del alltrade.dat
del banners.dat

del firms.dat
del limits.dat
del locales.dat
del orders.dat

del search.dat

del StratVolat.dat
del tmsg.dat
del transresult.dat
del trades.dat
del tradermsg.dat
del trans.dat
del stradermsg.dat

del *.log
del Del-dat-log.bat
rmdir /s /q archive
rmdir /s /q dmp

start info.exe

Duke Diamond @ 14.09.2022 10:20

Я читал про это. Но предпочитаю руками.

Vasylij @ 14.09.2022 11:07

Duke Diamond @ 14.09.2022 10:20

Я читал про это. Но предпочитаю руками.

Ну эт понятно))
Для работника... ярлык на раб стол ? автоматизация))

Джонатан @ 14.09.2022 13:01

Вот вроде шорт напрашивается SRZ2...чуть ли не двойная вершина
формируется на днях
А вставать страшно пока...что-то тут не так, не так все просто,
что-то там зреет внутри
Если дивы, то на шорте можно депо потерять.

Duke Diamond @ 14.09.2022 13:48

Джонатан @ 14.09.2022 13:01

Вот вроде шорт напрашивается SRZ2...чуть ли не двойная вершина
формируется на днях
А вставать страшно пока...что-то тут не так, не так все просто,
что-то там зреет внутри
Если дивы, то на шорте можно депо потерять.

Там же нет объемов

Джонатан @ 14.09.2022 14:59

Полное впечатление, что худо-бедно,
а гэп на 13700 будет закрывать

Джонатан @ 14.09.2022 16:05

13958 средняя

Джонатан @ 14.09.2022 16:21

Перезаход 14006

Джонатан @ 14.09.2022 16:44

Джонатан @ 14.09.2022 16:21

Перезаход 14006

По стопу опять

Джонатан @ 14.09.2022 13:01

Вот вроде шорт напрашивается SRZ2...чуть ли не двойная вершина
формируется на днях
А вставать страшно пока...что-то тут не так, не так все просто,
что-то там зреет внутри
Если дивы, то на шорте можно депо потерять.