|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - автоматическое обновление справочников Биков ПО 01RKC#.exe |
|
|
CMD/BAT - автоматическое обновление справочников Биков ПО 01RKC#.exe
|
|
Пользователь Сообщения: 102 |
добрый день!
необходимо создать батник, который делает такое 1. по пути "C:\INFO\" имеется файл вида "readDDMM.001" (пример файла во вложении, кодировка DOS) где DD и MM день и месяц соответственно, в нем необходимо найти текст (имя файла) "*.arj" (* - постоянно меняется) 2. создать текстовый файл "get.txt" по пути "C:\БИКИ\get\" стекстом "get mfo *.arj" 3. из "C:\INFO\" файл "readDDMM.001" переместить в папку "C:\INFO\сегодняшняя дата в формате «год.месяц.число» (пример 2012.05.21)" (для того что бы повторно не прочитался файл) 4. сканировать папку "C:\BNK\IZM\" на появление архива "*.arj", его необходимо распаковать в туже папку 5. необходимо запустить досовское ПО по пути "C:\BNK\01RKC#.exe" 6.появится ошибка, необходимо кликнуть как то на «ignore» 7. закрыть ПО двойным нажатием "ESC" 8. на сетевом диске "Z:\" изменить имя папки "DAT" на нынешнюю дату в формате год.месяц.число (пример 2012.04.18) 9. скопировать папку "DAT" из "C:\BNK\" на сетевой диск "Z:\" 10. P.s. было бы не плохо сделать что бы он постоянно сканировал папку "C:\INFO\" на появление файла "readDDMM.001" и только когда появился файлик он начал те действия что описаны выше 11. отправить сообщение о завершении обновлений получился очень хороший батник: Код:
 @Echo Off
rem Пути
Set ReadPath=C:\INFO
Set GetPath=C:\biki\get
Set ARJPath=C:\BNK\IZM
rem Таймаут проверки файлов, в секундах
Set Timeout=10
Set /A Timeout+=1
If Not Exist "%ReadPath%" Echo Error - Directory not found&Exit /B 1
rem Подготавливаем структуру директорий
If Not Exist "%GetPath%" MD "%GetPath%"
:Loop
Set ARJName=&Set NFOName=
rem Поиск файла
For /F "delims=" %%F In ('Dir "%ReadPath%\read*.*" /B') Do (
Set NFOName=%%F
rem Поиск в найденном строки с архивом
For /F "delims=" %%S In ('Findstr /R /I /C:"\<*.arj\>" "%ReadPath%\%%F"') Do (
rem Разбор строки на составляющие, вычленение имени архива
For %%A In (%%S) Do (
Echo %%A|Find /I "arj">nul&&Set ARJName=%%A
)
)
)
If Defined ARJName (
Echo Found %NFOName%, processing...
rem Создаем get-файл
Echo get mfo %ARJName%>"%GetPath%\get.txt"
rem Перемещаем обработанный файл, чтобы исключить повторное прочтение
rem Если в системе установлен другой формат даты - исправить.
For /F "tokens=1,2,3 delims=." %%A In ("%Date%") Do (
If Not Exist "%ReadPath%\%%C.%%B.%%A" MD "%ReadPath%\%%C.%%B.%%A"
Move "%ReadPath%\%NFOName%" "%ReadPath%\%%C.%%B.%%A\%NFOName%"
)
:WaitForARJ
rem Распаковка архива, или ожидание, если он ещё не появился
If Exist "%ARJPath%\%ARJName%" (
c:\arj\ARJ32.EXE e C:\BNK\IZM\*.arj C:\BNK\IZM\
Echo Archive %ARJName% successfuly extracted
rem Запускаем программу
Start "" "C:\BNK\01RKC#.EXE"
Ping -n 10 127.0.0.1>nul
taskkill /IM ntvdm.exe
rem Делаем бэкап баз
For /F "tokens=1,2,3 delims=." %%A In ("%Date%") Do (
If Not Exist "D:\%%C.%%B.%%A" (
Ren "y:\DAT" "%%C.%%B.%%A" 2>nul||MD "D:\%%C.%%B.%%A"
Xcopy "C:\BNK\DAT" "y:\DAT" /E /I /Y /Q
msg console /server:*.*.*.* "обновление завершено"
)
)
) Else (
Echo Waiting for ARJ in %ARJPath%
Ping -n %Timeout% 127.0.0.1>nul
GoTo WaitForARJ
)
)
rem Уход на новую итерацию после таймаута
Cls&Echo Scanning %ReadPath%...
Ping -n %Timeout% 127.0.0.1>nul
GoTo Loop
Цитата:
|
||
|
Отправлено: 15:07, 21-05-2012 |
|
Новый участник Сообщения: 10
|
Профиль | Отправить PM | Цитировать c:\Program Files (x86)\Xmpp Sender>xmpp_sender.exe
working directory: c:/Program Files (x86)/Xmpp Sender/ @server: domain-xmpp.ya.ru @login: term@cmy.ru @password: DUB @to: term@cmy.ru @subject: Test message prtg @body: Hey Zloy, I tried xmpp sender too. Best wishes! c:/Program Files (x86)/Xmpp Sender/lib/ruby/gems/1.8/gems/xmpp4r-0.5/lib/xmpp4r/jid.rb:126:in `domain': undefined method `empty?' for nil:NilClass (NoMethodError) from c:/Program Files (x86)/Xmpp Sender/lib/ruby/gems/1.8/gems/xmpp4r-0.5/lib/xmpp4r/client.rb:70:in `connect' from c:/Program Files (x86)/Xmpp Sender/src/xmpp_sender.rb:38:in `send' from c:/Program Files (x86)/Xmpp Sender/src/xmpp_sender.rb:162 Вот на том и паримся. Прошу обратить внимание! Мне надо именно в логине указывать домен, потому что на сервере их тысячи, если не больше. Будьте добры, помогите разобраться в этом глюке. Бесценно будет для людей эта утилита. OS: win 2008r2 x64 |
|
Отправлено: 15:12, 23-07-2013 | #41 |
|
Новый участник Сообщения: 10
|
Профиль | Отправить PM | Цитировать Протестировал даже без полного логина с доменом, на jabber.ru - сообщения не доходят....
Помогите кто ни будь, сделать эту утилиту, пожалуйста. |
|
Отправлено: 15:32, 23-07-2013 | #42 |
|
Новый участник Сообщения: 10
|
Профиль | Отправить PM | Цитировать так, трабл почему не доходили сообщения нашёлся - надо оказывается было предварительно другу другу в контакт лист добавится.... Но, трабл с логин@домен - не решён.. тут нужно человека понимающего руби...
|
|
Отправлено: 17:00, 23-07-2013 | #43 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| VBS/WSH/JS - [решено] Добавление параметра в текстовый файл равный названию файла | XXXp | Скриптовые языки администрирования Windows | 14 | 31-03-2012 23:56 | |
| CMD/BAT - [решено] Вставить имя файла в текстовый файл (UTF-8 without BOM) | Jahnhoy | Скриптовые языки администрирования Windows | 11 | 19-09-2011 17:39 | |
| CMD/BAT - [решено] как из bat файла дописать символ в текстовый файл? | idzs | Скриптовые языки администрирования Windows | 6 | 22-02-2011 03:49 | |
| [решено] Можно ли создать текстовый файл внутри самой программы автоайти? | R.M.L | AutoIt | 7 | 03-10-2009 00:34 | |
| Интерфейс - изменение стандартного предложения создать текстовый файл | Irekson | Microsoft Windows 2000/XP | 3 | 25-02-2008 10:26 | |
|
|
Время: 11:07. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
