Форум программистов, компьютерный форум, киберфорум
Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.92/111: Рейтинг темы: голосов - 111, средняя оценка - 4.92
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380

Exit /b :eof не переходит в конец файла

28.10.2011, 22:14. Показов 21252. Ответов 97
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Исходя из темы данные команды должны переходить в конец, файла и эти команды используют что б выйти из так называемого цикла /b необходимо что б не закрыть окно бат файла.
На практике получается так что данная команда не выполняется так как нужно и вместо перехода в конец батника срабатывает и начинаются никому не нужное выполнение циклов.
Кто вообще встречался с проблемами в этой команде ?

Ни одна ни вторая команда не помогает, а выйти нужно что б произошел запуск следующего батника.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.10.2011, 22:14
Ответы с готовыми решениями:

Конец файла EOF
Начал заново учить программирование на c++ по книге Кернигана, Ритчи. Дошел до главы с EOF и никак не могу разобраться уже несколько часов....

Команда send keys переходит в конец макроса
Здравствуйте, подскажите, пожалуйста как решить проблему.. есть макрос (их много, но выложу один), вникать в него не нужно.. суть одна...

Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла
Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла.

97
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
22.11.2011, 09:16  [ТС]
Студворк — интернет-сервис помощи студентам
Спасибо посмотрю какими приемами пользовались.

вот мой вариант вчера сидел делал старался как можно меньше сделать лишних прогонов и переходов по меткам только еще доделать многое нужно ну суть понятна я думаю
Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
echo off
 
 
setlocal enabledelayedexpansion
SET thePATH=%1
echo Проверка ящика номер %thePATH% 
 
 
 
 
goto 000
set fs100=0
if %%b==txt (
set txtname=%%c
if "!txtname:~0,4!"=="s100" set fs100=1
)
if !fs100!==0 (
::тут ваши стандартные действия для файлов
)
if !fs100!==1 (
::тут ваши действия для файлов s100????.txt
)
 
 
:000
 
rem Устанавливаем время срабатывания батника
::**************************************************************************************
set dd=%date%
set tt=%time%
for /f "tokens=1-3 delims=-./" %%i in ("%dd%") do (
set day=%%i
set month=%%j
set year=%%k
)
if "%day:~2,1%"==" " set day=%day:~3,2%
set t=%day%
if not "%day:~2,1%"=="" (
set day=%year%
set year=%t% )
if "%year:~2,1%"=="" set year=20%year%
set hour=%tt:~0,2%
if "%hour:~0,1%"=="0" (set /a hour=%hour:~1%) else (set /a hour=%hour%)
if %hour% lss 10 set hour=0%hour%
set minute=%tt:~3,2%
set sec=%tt:~6,2%
set out_time=%day%%month%%hour%%minute%
 
 
rem echo установили дату 
rem pause
 
::Устанавливаем пути доступа
::*************************************************************************************
rem SET thePATH=%1
 
rem устанавливаем максимальный размер отправляемых файлов
SET massa=20971520
 
 
rem Устанавливаем путь отправки временно !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
rem SET GOOD=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT
SET GOOD=E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT
 
rem Устанавливаем путь для ARJ32.exe PKZIP25.EXE Rar.exe архиваторов 
rem SET ARC=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\ARC
SET ARC=E:\SERVER\BAT\AUTO_TECOS\ARC
 
 
::**************************************************************************************
 
rem Устанавливаем путь для SBERSIGN
rem SET SBERSIGN=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\sign_s
SET SBERSIGN=E:\SERVER\BAT\AUTO_TECOS\sign_s
             
 
rem Устанавливаем путь для хранения базы ключей Sbersign
rem SET SBERDATA=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\sign_s
SET SBERDATA=E:\SERVER\BAT\AUTO_TECOS\sign_s
 
rem Устанавливаем путь для доступа к ящикам
rem set Put=\\Postal\ORG_MAIL\OTDEL
SET Put=E:\OTDEL
rem echo %Put%
rem pause
 
::Установка путей логов
::**************************************************************************************
 
rem  Устанавливаем путь лога для ящиков 
rem SET LOG_USER=\\Postal\ORG_MAIL\OTDEL\%thePATH%\LOG
SET LOG_USER=E:\OTDEL\%thePATH%\LOG
               
rem  Устанавливаем путь лога для оператора
rem SET LOG_OPER=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\LOG
SET LOG_OPER=E:\SERVER\BAT\AUTO_TECOS\LOG
 
rem  Устанавливаем путь лога для ящиков TEMP
SET LOG_USER_TEMP=E:\SERVER\BAT\AUTO_TECOS\LOG\LOG_OTD
 
rem /l= путь для лога Sbersign
rem SET SET_SIGN=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\sign_s\SIGN_LOG
SET SET_SIGN=E:\SERVER\BAT\AUTO_TECOS\sign_s\SIGN_LOG
 
 
 
::**************************************************************************************
 
 
 
if not exist "E:\OTDEL\%thePATH%" call :start 
 
 
 
rem echo начинаем просмотр ящиков
rem pause  
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8632,8633,8643,KRAY,Respubliki,DO_137,OPERU,Vsem_OSB) do (
dir /a-d /b "E:\OTDEL\%thePATH%\OUT\OSB\%%a" 1>nul 2>nul  && (
goto start)
)
for %%y in (0034.050) do (
if not exist "E:\OTDEL\%thePATH%\OUT\MOSCOW\%%y\" md "E:\OTDEL\%thePATH%\OUT\MOSCOW\%%y\"
dir /a-d /b "E:\OTDEL\900\OUT\MOSCOW\%%y" 1>nul 2>nul  && (
echo запуск MOSCOW
goto start)
 
)
echo Закончили обработку ОСБ Электронного ящика №%thePATH%
exit /b
 
 
:start
 
                                
 
rem if %thePTH%==010 ( if not exist "%Put%\%thePATH%\OUT\Moscow\Transport_packet\" md "%Put%\%thePATH%\OUT\Moscow\Transport_packet\")
 
 
:: Создаем структуру для Электронного ящика № %thePATH%
::**************************************************************************************
if not exist "E:\OTDEL\%thePATH%\" md "E:\OTDEL\%thePATH%\"
if not exist "E:\OTDEL\%thePATH%\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\README.lnk" "E:\OTDEL\%thePATH%\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для IN
::**************************************************************************************
 
if not exist "E:\OTDEL\%thePATH%\IN\" md "E:\OTDEL\%thePATH%\IN\"
if not exist "E:\OTDEL\%thePATH%\IN\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\IN\README.lnk" "E:\OTDEL\%thePATH%\IN\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для OUTPUT
::**************************************************************************************
 
if not exist "E:\OTDEL\%thePATH%\OUTPUT\" md "E:\OTDEL\%thePATH%\OUTPUT\"
if not exist "E:\OTDEL\%thePATH%\OUTPUT\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\OUTPUT\README.lnk" "E:\OTDEL\%thePATH%\OUTPUT\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для ARJ_PACK
::**************************************************************************************
 
if not exist "E:\OTDEL\%thePATH%\ARJ_PACK\1_Папка_для_архивации\" md "E:\OTDEL\%thePATH%\Arj_pack\1_Папка_для_архивации\"
if not exist "E:\OTDEL\%thePATH%\ARJ_PACK\2_Готовый_архив\" md "E:\OTDEL\%thePATH%\Arj_pack\2_Готовый_архив\"
if not exist "E:\OTDEL\%thePATH%\ARJ_PACK\ARJ_PACK.bat" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\ARJ_PACK\ARJ_PACK.bat" "E:\OTDEL\%thePATH%\ARJ_PACK\"
if not exist "E:\OTDEL\%thePATH%\ARJ_PACK\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\ARJ_PACK\README.lnk" "E:\OTDEL\%thePATH%\ARJ_PACK\"
 
::**************************************************************************************
 
   
 
:: Создаем структуру для OUT
::**************************************************************************************
 
if not exist "E:\OTDEL\%thePATH%\OUT\" md "E:\OTDEL\%thePATH%\OUT\"
if not exist "E:\OTDEL\%thePATH%\OUT\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\OUT\README.lnk" "E:\OTDEL\%thePATH%\OUT\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для NOT_OUT
::**************************************************************************************
 
if not exist "E:\OTDEL\%thePATH%\NOT_OUT\" md "E:\OTDEL\%thePATH%\NOT_OUT\"
if not exist "E:\OTDEL\%thePATH%\NOT_OUT\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\NOT_OUT\README.lnk" "E:\OTDEL\%thePATH%\NOT_OUT\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для LOG
::**************************************************************************************
 
if not exist "E:\OTDEL\%thePATH%\LOG\" md "E:\OTDEL\%thePATH%\LOG\"
if not exist "E:\OTDEL\%thePATH%\LOG\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\LOG\README.lnk" "E:\OTDEL\%thePATH%\LOG\"
 
::****************************************
::*      Установка шапок для логов       *                              
::****************************************                            
 
if not exist "%LOG_OPER%\HISTORY_%year%.txt" (            
echo ************************************************************************************************************************************************* >>%LOG_OPER%\HISTORY_%year%.txt
echo *   №   *    Дата    *  Время   * Отправлен     *  Значение ошибки       * Имя файла    * Размер файла     * Путь нахождения файла              * >>%LOG_OPER%\HISTORY_%year%.txt
echo * ящика *  отправки  * отправки * Не отправлен  *                        *              *                  *                                    * >>%LOG_OPER%\HISTORY_%year%.txt
echo ************************************************************************************************************************************************* >>%LOG_OPER%\HISTORY_%year%.txt
)                                                               
 
 
if not exist "%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt" (
echo ************************************************************************************************************************************************* >>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
echo *   ╣   *    ─рЄр    *  ┬Ёхь*   * ╬ЄяЁртыхэ     *  ╟эрўхэшх ю°шсъш       * ╚ь* Їрщыр    * ╨рчьхЁ Їрщыр     * ╧єЄ№ эрїюцфхэш* Їрщыр              * >>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
echo * *∙шър *  юЄяЁртъш  * юЄяЁртъш * ═х юЄяЁртыхэ  *                        *              *                  *                                    * >>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
echo ************************************************************************************************************************************************* >>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
)                                                                                                              
 
if not exist "%LOG_USER%\HISTORY_%thePATH%_%year%.txt" (
echo ************************************************************************************************************************************************* >>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
echo *   ╣   *    ─рЄр    *  ┬Ёхь*   * ╬ЄяЁртыхэ     *  ╟эрўхэшх ю°шсъш       * ╚ь* Їрщыр    * ╨рчьхЁ Їрщыр     * ╧єЄ№ эрїюцфхэш* Їрщыр              * >>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
echo * *∙шър *  юЄяЁртъш  * юЄяЁртъш * ═х юЄяЁртыхэ  *                        *              *                  *                                    * >>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
echo ************************************************************************************************************************************************* >>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
)                                                                                                              
 
::**************************************************************************************
 
           
 
::начинаем проверку всех директорий ОСБ на наличие файлов
echo ::начинаем проверку всех директорий ОСБ на наличие файлов
 
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8632,8633,8643,KRAY,Respubliki,DO_137,OPERU,Vsem_OSB) do (
 if not exist "E:\OTDEL\%thePATH%\OUT\OSB\%%a\" md "E:\OTDEL\%thePATH%\OUT\OSB\%%a\"
 if not exist "%GOOD%\OSB\%%a\" md "%GOOD%\OSB\%%a\"
 set the_osb=%%a
 
 
 
 
 for /f "delims=" %%w in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\*.*" 2^>nul ') do ( 
  for %%m in ("%Put%\%thePATH%\OUT\OSB\%%a\%%w") do (
                                                      SET name_of_file=%%~fm
                                                      SET massa_file=%%~zm 
                                                      SET xxx=%%~xm
                                                      rem устанавливаем в переменную путь и имя файла
                                                      SET full_name_of_file=%%m
                                                     )
  rem echo масса файла =!massa_file!
  rem echo расширение файла =!xxx!
  rem echo имя файла %%w
  rename "%Put%\%thePATH%\OUT\OSB\%%a\%%w" "%%w" 
  if !errorlevel!==0 (
                      echo файл свободен %%w масса файла = !massa_file!
                      pause 
                      rem установили параметр выхода = 0
                      set Long_name=0
                      rem начали проверку на 8 символов
 
                      for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%w"  ^| findstr /i /r /c:"^........\....*$"') do (
                      rem Установили проверку на 8 символов и расширения больше 3 символов
                                         
                      echo начали проверку на 8 символов файл с именем = %%c  
                      echo Масса файла равна !massa_file! 111  расширение файла =!xxx!   ! заданная масса равна %massa%
                      pause
 
                      if %%~zm lss !massa! ( 
                                                                                        
                                            rem исключения файлов необходимо дописывать сюда в соответствии с конструкцией  if Long_name
 
                                            rem цикл перебора обычных файлов
                                            for %%b in (rtf,pdf,xls,txt,tif) do (
 
                                            echo 000 %%b 000
                                            pause
                                            if !Long_name! == 0 (
                                                                 echo Исключение равно = !Long_name! все ок расширение файла = !xxx! ! 
                                                                 pause
                                                                 rem проверка IF Long_name
                                                                 if !xxx! == .%%b ( 
                                                                                   echo PDF сработало исключение на проверку расширения для файла %%c 111111 !name_of_file! с расширением  !xxx!  !!!!
                                                                                   pause
                                                                                   %SBERSIGN%\sbersign.exe /p  /l=%SET_SIGN%\sign.lst "%Put%\%thePATH%\OUT\OSB\%%a\%%c"
                                                                                   if errorlevel 1 (
 
                                                                                                    if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" 
                                                                                                    echo Y|move /Y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" 
                                                                                                    call :mis_1 
 
                                                                                                     ) else (if not exist "%GOOD%\OSB\%%a" md "%GOOD%\OSB\%%a"
                                                                                                             echo Y|move /Y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%GOOD%\OSB\%%a\"
                                                                                                             call :mis_2
 
                                                                                                              ) 
                                                                                                    
                                                                                   set Long_name=1
                                                                                   echo Должны установить для переменной Long_name параметр =!Long_name!
                                                                                   pause  
                                                                                   rem описание IF = .%%b 
                                                                                   )
                                                                                      
                                                                 rem проверка IF Long_name .%%b
                                                                 )
                                                                                 rem скобка для окончания цикла с rtf,pdf,xls,txt,tif
                                                                                 )
 
                                            rem else на большой файл                                                                                                
                                            ) else (
                                                    if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
                                                    echo Y|move /Y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
                                                    call :mis_3
                                                     )
                                                                                                                                            rem начали проверку на 8 символов
                                                                                                                                            )
 
 
                      if !Long_name!==0 (
                                         rem цикл определения и переноса файла длиной больше или меньше 8 символов
                                         for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%w" 2^>nul') do (
                                                                                                                              echo сработал цикл больше или меньше 8 ми символов = %%c
                                                                                                                              pause 
                                                                                                                              rem цикл определения и переноса файла длиной больше или меньше 8 символов
                                                                                                                              ) 
 
                                          rem скобка закрытия проверки Long_name
                                          )
 
 
 
 
                       ) else ( echo файл занят %%w нужно дописать обработку события на занятый файл   
                       pause
                       rem проверка на rename
                       ) 
 
                                               rem закрыли FOR  w  
                                               )  
 
 rem закрыли первый FOR 0030 
 ) 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
goto 99999
rem 
rem pause
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8632,8633,8643,KRAY,Respubliki,DO_137,OPERU,Vsem_OSB) do (
 
 dir /a-d /b "E:\OTDEL\%thePATH%\OUT\OSB\%%a" 1>nul 2>nul  && (
 
 
for /f "delims=" %%w in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\*.*"') do (
 
pause
rename "%Put%\%thePATH%\OUT\OSB\%%a\%%w" %%w
if %errorlevel%==0 echo 2 № ошибки для файла %%w = %errorlevel%
pause
echo 1 № ошибки для файла %%w = %errorlevel%
pause
 
  set name=%%~nw
  echo Нашли файл имени  %%~nw
  pause
  echo Нашли файл имени  !name!
  pause
 
  
  
  for %%b in (rtf,pdf,xls,txt,tif) do (
   
   for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%~nw.%%b" 2^>nul ^| findstr /i /r /c:"^........\.%%b$"') do (
    
     SET cc=%%c
 
    echo нашли файл %%c !!!!
    pause
    for %%j in ("%Put%\%thePATH%\OUT\OSB\%%a\%%c") do SET jj=%%~zj
 
     if %%~zj lss %massa% (
 
     %SBERSIGN%\sbersign.exe /p  /l=%SET_SIGN%\sign.lst "%Put%\%thePATH%\OUT\OSB\%%a\%%c"                                                                   
     SET cc=%%c
 
     if errorlevel 1 ( 
     if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" 
     echo Y|move /Y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" 
     call :mis_1 ) else ( 
     if not exist "%GOOD%\OSB\%%a" md "%GOOD%\OSB\%%a"
 
     if exist "%GOOD%\OSB\%%a\%%c" ( for %%j in ("%GOOD%\OSB\%%a\%%c") do set kk=%%~zj
     call :mis_7
     
     ) 
     echo Y|move /Y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%GOOD%\OSB\%%a\"
     call :mis_2 )
     ) else ( if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
        echo Y|move /Y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
        call :mis_3 )
     
 
    )
    
   ) 
  
rem if not exist "%Put%\%thePATH%\OUT\OSB\%%a\%%w" goto end_for
 
  echo Переходим дальше на ARj
   pause
 
 
 
 
  
  rem Задаем формат архива ARJ для поиска
  for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%~nw.arj" 2^>nul ^| findstr /i /r /c:"^........\.arj$" ') do (
   rem rmdir /s /q "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\"
 
   if not exist "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\" md "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\"
   attrib +H "%Put%\%thePATH%\OUT\OSB\%%a\TEMP"
   echo установили скрытую папку
   rem pause
   set ARJ="%Put%\%thePATH%\OUT\OSB\%%a\%%c"
   
   for %%j in ("%Put%\%thePATH%\OUT\OSB\%%a\%%c") do  set jj=%%~zj
     SET cc=%%c
     echo установили файл сейчас пойдет распаковка
    rem pause
     if %%~zj lss %massa% (
     %ARC%\arj32.exe e -y !ARJ! %Put%\%thePATH%\OUT\OSB\%%a\TEMP
     rem echo распаковали
    rem pause
     call :temp_extr
     ) else (
           
        if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
        echo Y|move /y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" 
        call :mis_3 ) 
    
   )
 
rem if not exist "%Put%\%thePATH%\OUT\OSB\%%a\%%w" goto end_for
 
   
  echo Переходим дальше на zip
  rem pause
 
 
  
  rem Задаем формат архива ZIP для поиска
  for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%~nw.zip" 2^>nul ^| findstr /i /r /c:"^........\.zip$" ') do (
   echo сейчас должно написать !
 pause
   rmdir /s /q "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\"
echo написало
 pause
   if not exist "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\" md "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\"
   set ARJ="%Put%\%thePATH%\OUT\OSB\%%a\%%c"
   rem echo Нашли !ARJ!
   rem pause
   for %%j in ("%Put%\%thePATH%\OUT\OSB\%%a\%%c") do (
     SET cc=%%c
     set jj=%%~zj
     if %%~zj lss %massa% (
      %ARC%\pkzip25.exe -over=all -extract !ARJ! %Put%\%thePATH%\OUT\OSB\%%a\TEMP
      call :temp_extr 
       ) else (
           
        if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
        echo Y|move /y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
        call :mis_3  )
    )
   )
   
rem if not exist "%Put%\%thePATH%\OUT\OSB\%%a\%%w" goto end_for
 
 
  echo Переходим дальше на RAR
   pause
 
  
  rem Задаем формат архива RAR для поиска
  for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%~nw.rar" 2^>nul ^| findstr /i /r /c:"^........\.rar$" ') do (
   rmdir /s /q "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\"
   if not exist "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\" md "%Put%\%thePATH%\OUT\OSB\%%a\TEMP\"
   set ARJ="%Put%\%thePATH%\OUT\OSB\%%a\%%c"
   rem echo Нашли !ARJ!
   rem pause
   for %%j in ("%Put%\%thePATH%\OUT\OSB\%%a\%%c") do (
     SET cc=%%c
     set jj=%%~zj
     if %%~zj lss %massa% (
     %ARC%\Rar.exe e -y %ARJ% %Put%\%thePATH%\OUT\OSB\%%a\TEMP
     call :temp_extr
      ) else (
 
        if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
        echo Y|move /y "%Put%\%thePATH%\OUT\OSB\%%a\%%c" "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
        call :mis_3  ) 
    )
   )
 
 
rem if not exist "%Put%\%thePATH%\OUT\OSB\%%a\%%w" goto end_for
   
  echo Переходим дальше на DOC
  pause
 
  
  rem Задаем формат архива DOC для поиска
  for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%~nw.doc" 2^>nul') do (
   SET cc=%%c
   set jj=%%~zc
   set DOC="%Put%\%thePATH%\OUT\OSB\%%a\%%c"
   rem echo Нашли !DOC! %%a
   rem pause
   if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" 
   echo Y|move /y !DOC! "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
   call :mis_4  )
   )
 
rem if not exist "%Put%\%thePATH%\OUT\OSB\%%a\%%w" goto end_for
 
  echo Переходим дальше на DOCX
   pause
 
  if %%w==%%~nw.docx (
  rem Задаем формат архива DOCX для поиска
  for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%~nw.docx" 2^>nul') do (
   SET cc=%%c
   set jj=%%~zc
   set DOCX="%Put%\%thePATH%\OUT\OSB\%%a\%%c"
   rem echo Нашли !DOCX!
   rem pause
   if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" 
   echo Y|move /y !DOCX! "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
   call :mis_5 )    
 
 
rem if not exist "%Put%\%thePATH%\OUT\OSB\%%a\%%w" goto end_for   
 
  echo Переходим дальше на XLSX
   pause
  
  rem Задаем формат архива XLSX для поиска
  for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%~nw.xlsx" 2^>nul') do (
   SET cc=%%c
   set jj=%%~zc
   set XLSX="%Put%\%thePATH%\OUT\OSB\%%a\%%c"
   rem echo Нашли !XLSX!
   rem pause
   if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\" 
   echo Y|move /y !XLSX! "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
   call :mis_10 )   
   
rem if not exist "%Put%\%thePATH%\OUT\OSB\%%a\%%w" goto end_for
 
 echo проверка на наличие мусора
   pause
  for /f "delims=" %%c in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%%a\%%w" 2^>nul') do (  //
   for %%j in ("%Put%\%thePATH%\OUT\OSB\%%a\%%c") do set jj=%%~zj
   set cc=%%c
   set ALL="%Put%\%thePATH%\OUT\OSB\%%a\%%c"
   echo Нашли !ALL!доработать!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   pause
   if not exist %Put%\%thePATH%\NOT_OUT\%out_time%\%%a\ md %Put%\%thePATH%\NOT_OUT\%out_time%\%%a\
   echo Y|move /y "%Put%\%thePATH%\OUT\OSB\%%a\%%c"  "%Put%\%thePATH%\NOT_OUT\%out_time%\%%a\"
   echo 1
pause
   call :mis_6
echo вернулись
pause
 )
 
  echo первая скобка 
pause
 
 
 
 
 
  
 )
echo Вторая скобка
pause
 )
 )
 
 
 
rem echo Выполнили программу просмотра всех каталогов ящика №%thePATH%
rem pause
:99999
 
 
 
 
goto end
  
:mis_1
:m1
if "%massa_file:~14,1%"=="" (
set massa_file=%massa_file% 
goto m1
)
echo сейчас будет записан лог ошибки ЭЦП
rem pause
 
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Не отправлен  * Ошибка ЭЦП             * %name_of_file% * %massa_file%  * \%thePATH%\NOT_OUT\%out_time%\%the_osb%        * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause
exit /b 
 
:mis_2
:m2
if "%massa_file:~14,1%"=="" (
set massa_file=%massa_file% 
goto m2
)
 
echo сейчас будет записан лог правильной эцп и перенос файла
rem pause
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% *    Отправлен  * Ошибок нет             * %name_of_file% * %massa_file%  * Отправлен в ОСБ № %the_osb%             * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause 
exit /b
 
 
 
:mis_3
:m3
if "%massa_file:~14,1%"=="" (
set massa_file=%massa_file% 
goto m3
)
 
 
echo сейчас будет записан лог файла превышающего размер
rem pause
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Не отправлен  * Размер больше %massa% * %name_of_file% * %massa_file%  * \%thePATH%\NOT_OUT\%out_time%\%the_osb%         * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause
exit /b
 
:mis_4
:m4
if "%jj:~14,1%"=="" (
set jj=%jj% 
goto m4
)
 
 
echo сейчас будет записан лог файла DOC
rem pause
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Не отправлен  * Внутри *.DOC           * %cc% * %jj%  * \%thePATH%\NOT_OUT\%out_time%\%the_osb%         * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause
exit /b
 
 
:mis_5
 
:m5
if "%jj:~14,1%"=="" (
set jj=%jj% 
goto m5
)
 
 
echo сейчас будет записан лог файла DOCX
rem pause
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Не отправлен  * Внутри *.DOCX          * %cc% * %jj%  * \%thePATH%\NOT_OUT\%out_time%\%the_osb%         * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause
exit /b
 
 
 
:mis_6
:m6
if "%jj:~14,1%"=="" (
set jj=%jj% 
goto m6
)
 
echo сейчас будет записан лог файла не верно заданной маски
rem pause
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Не отправлен  * Имя файла неверно      * %cc% * %jj%  * \%thePATH%\NOT_OUT\%out_time%\%the_osb%         * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
 
pause
exit /b
 
:mis_7
 
 
:m7
set rr=%kk% стал %jj%
:m71
if "%rr:~21,1%"=="" (
set rr=%rr% 
goto m71
)
 
:m72
if "%kk:~14,1%"=="" (
set kk=%kk% 
goto m72
)
 
 
echo сейчас будет записан лог файла перезаписанного
rem pause                                                                                                                 
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Перезаписан   * Файл перезаписан       * %cc% * %kk%  * Был размера %rr% * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause
exit /b
 
:mis_8
:m8
if "%jj:~14,1%"=="" (
set jj=%jj% 
goto m8
)
 
echo сейчас будет записан лог файла не верно заданного формата
rem pause
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Не отправлен  * Внутри архива *.DOC    * %cc% * %jj%  * \%thePATH%\NOT_OUT\%out_time%\%the_osb%         * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause                                                                         
exit /b
 
:mis_9
:m9
if "%jj:~14,1%"=="" (
set jj=%jj% 
goto m9
)
 
echo сейчас будет записан лог файла не верно заданного формата
rem pause
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Не отправлен  * Внутри архива *.DOCX   * %cc% * %jj%  * \%thePATH%\NOT_OUT\%out_time%\%the_osb%         * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause                                                                         
exit /b
 
 
:mis_10
:m10
if "%jj:~14,1%"=="" (
set jj=%jj% 
goto m10
)
 
echo сейчас будет записан лог файла XLSX
rem pause
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * Не отправлен  * Внутри архива *.XLSX   * %cc% * %jj%  * \%thePATH%\NOT_OUT\%out_time%\%the_osb%         * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
rem pause                                                                         
exit /b
 
 
 
:temp_extr
 
echo Распаковка найденных архивов
echo Перешли на распаковку
rem pause
for /f "delims=" %%d in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.arj" 2^>nul') do (
 %ARC%\arj32.exe e -y "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\%%d" %Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP
 del "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\%%d"
 )
for /f "delims=" %%d in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.zip" 2^>nul') do (
 %ARC%\pkzip25.exe -over=all -extract "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\%%d" %Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP
 del "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\%%d"
 )
for /f "delims=" %%d in ('dir /a-d /b "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.rar" 2^>nul') do (
 %ARC%\Rar.exe e -y "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\%%d" %Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP
 del "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\%%d"
 )
 
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.arj" goto :temp_extr
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.zip" goto :temp_extr
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.rar" goto :temp_extr
 
 
 
rem echo Если находим DOC или DOCX производим выход и переносим архив в каталог для неотправки
rem pause
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.doc" (
 if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" 
 echo Y|move /y %ARJ% "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%"
 rmdir /s /q %Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\
 call :mis_8
 exit /b
)
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.docx" (
 if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" 
 echo Y|move /y %ARJ% "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%"
 rmdir /s /q %Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\
 call :mis_9
 exit /b
)
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.xlsx" (
 if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" 
 echo Y|move /y %ARJ% "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%"
 rmdir /s /q %Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\
 call :mis_10
 exit /b
)                       
 
                       
 
rem echo Копируем все базы ключей
rem echo проверяем архивы на наличие ЭЦП
rem pause
copy  /y %SBERDATA_FROM%\sign.d04 %SBERDATA%\sign.dat >nul                  
echo ****************************************  >>%SET_SIGN%\sign.lst
echo * %ARJ% * >>%SET_SIGN%\sign.lst
echo ****************************************  >>%SET_SIGN%\sign.lst
 
cd /d "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP"
%SBERSIGN%\sbersign.exe /p /l=%SET_SIGN%\sign.lst *.*
if errorlevel 1 (
if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" 
echo Y|move /y %ARJ% "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\"
call :mis_1) else (
if not exist "%GOOD%\OSB\%the_osb%\" md "%GOOD%\OSB\%the_osb%\"
echo Y|move /y %ARJ% "%GOOD%\OSB\%the_osb%\"
call :mis_2)
cd /d "%Put%\%thePATH%\OUT\OSB\%the_osb%"
rmdir /s /q "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\"
exit /b
 
 
:end
 
 
if not exist %LOG_OPER%\HISTORY_TEMP_%year%.txt  goto end11
echo добавляем информацию в историю и меняем кодировку 
chcp 866 >nul
for /f "tokens=*" %%x in (%LOG_OPER%\HISTORY_TEMP_%year%.txt) do call :convert %%x
if exist %LOG_OPER%\HISTORY_TEMP_%year%.txt del %LOG_OPER%\HISTORY_TEMP_%year%.txt  
goto end11
 
:convert
chcp 866 >nul
echo %*>>%LOG_OPER%\HISTORY_%year%.txt
chcp 1251 >nul
echo %*>>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
echo %*>>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
chcp 866 >nul
exit /b
 
 
:end11
echo Закончили обработку ОСБ Электронного ящика №%thePATH%
 
rem cls
rem goto start
rem pause
exit /b
Правда я еще старый код там тоже оставил дописываю все почучуть. Если есть замечания с Вашей точки зрения с удовольствием выслушаю.
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
22.11.2011, 21:20  [ТС]
Прописал все вроде правда есть небольшие косячки все начинается от сюда
Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
cls
 
@echo off
setlocal enabledelayedexpansion
echo Запуск сбора почты 
rem pause
echo %TIME%
:start
rem cls
rem for %%a in (010,011,012,013,020,021,022,023,031,033,035,036,040,050,060,070,071,072,073,074,075,080,081,084,085,088,090,100,101,110,111,112,113,114,115,116,117,120,121,130,131,132,137,140,141,142,143,144,145,146,150,160,163,164,170,171,175,180,183,192,193,194,200,210,220,230,250,251,260,261,262,263,300,320,340,350,351,352,353,354,355,356,357,358,359,360,361,362,700,701,710,720,730,740,750,760,770,790,800,810,820,830,840,841,850,860,870) do (
 
for %%t in (900) do (
call SEND_OSB.bat %%t    
rem call SEND_MOSCOW.bat %%t
rem call SEND_OTDEL.bat %%t
 
)
 
 
 
FOR %%a in (DO_137,KRAY,OPERU,Respubliki,Vsem_OSB,0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8643,8632,8633) DO (
dir /a-d /b "E:\OTDEL\%thePATH%\OUT\OSB\%%a" 1>nul 2>nul  && (
GOTO start)
)
goto end
 
 
:start
 
::******************************************************************************************************************************
rem Раскладка в OPERU
rem
move E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\OPERU\*.* e:\server\colector.pro_TEMP\OPERU
::******************************************************************************************************************************
 
rem Раскладка в ДО 137
rem
move E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\DO_137\*.* e:\server\colector.pro_TEMP\0137
::******************************************************************************************************************************
 
rem Раскладка по всем отделениям
rem
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8643,8632,8633) do (
if not exit "e:\server\colector.pro_TEMP\%%a\" md "e:\server\colector.pro_TEMP\%%a\"
pause
if %%a == 8633 (
move E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Vsem_OSB\*.* e:\server\colector.pro_TEMP\%%a
exit/b
)
copy E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Vsem_OSB\*.* e:\server\colector.pro_TEMP\%%a\*.*
)
::******************************************************************************************************************************
 
rem Раскладка по краю
rem
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908) do (
if not exit "e:\server\colector.pro_TEMP\%%a\" md "e:\server\colector.pro_TEMP\%%a\"
pause
if %%a == 7908 (
move E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\KRAY\*.* e:\server\colector.pro_TEMP\%%a
exit/b
)
copy E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\KRAY\*.* e:\server\colector.pro_TEMP\%%a\*.*
)
::******************************************************************************************************************************
 
rem Раскладка по республикам
rem
for %%a in (8579,8585,8590,8631,8632,8643,8633) do (
if not exit "e:\server\colector.pro_TEMP\%%a\" md "e:\server\colector.pro_TEMP\%%a\"
pause
if %%a == 8633 (
move E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Respubliki\*.* e:\server\colector.pro_TEMP\%%a
exit/b
)
copy E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Respubliki\*.* e:\server\colector.pro_TEMP\%%a\*.*
)
::******************************************************************************************************************************
 
rem Раскладка всех отделений по дирректориям
rem
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8643,8632,8633) do (
if not exit "e:\server\colector.pro_TEMP\%%a\" md "e:\server\colector.pro_TEMP\%%a\"
pause
if %%a == 8633 (
move E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\%%a\*.* e:\server\colector.pro_TEMP\%%a
exit/b
)
copy E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Vsem_OSB\*.* e:\server\colector.pro_TEMP\%%a\*.*
)
::******************************************************************************************************************************
 
:end
 
echo Сбор почты окончен 
echo %TIME%
rem pause
echo Слудующий запуск через 15 секунд
call sleep.exe 15
cls
goto start
rem pause

После этого запускается следующий модуль
Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
echo off 
 
setlocal enabledelayedexpansion
::SET thePATH=%1
SET thePATH=900
echo Проверка ящика номер %thePATH% 
 
 
rem Устанавливаем время срабатывания батника
::**************************************************************************************
set dd=%date%
set tt=%time%
FOR /f "tokens=1-3 delims=-./" %%i in ("%dd%") DO (
set day=%%i
set month=%%j
set year=%%k
)
IF "%day:~2,1%"==" " set day=%day:~3,2%
set t=%day%
IF NOT "%day:~2,1%"=="" (
set day=%year%
set year=%t% )
IF "%year:~2,1%"=="" set year=20%year%
set hour=%tt:~0,2%
IF "%hour:~0,1%"=="0" (set /a hour=%hour:~1%) ELSE (set /a hour=%hour%)
IF %hour% lss 10 set hour=0%hour%
set minute=%tt:~3,2%
set sec=%tt:~6,2%
set out_time=%day%%month%%hour%%minute%
 
 
rem echo установили дату 
rem pause
 
::Устанавливаем пути доступа
::*************************************************************************************
rem SET thePATH=%1
 
rem устанавливаем максимальный размер отправляемых файлов
SET massa=20971520
 
 
rem Устанавливаем путь отправки временно !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
rem SET GOOD=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT
SET GOOD=E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT
 
rem Устанавливаем путь для ARJ32.exe PKZIP25.EXE Rar.exe архиваторов 
rem SET ARC=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\ARC
SET ARC=E:\SERVER\BAT\AUTO_TECOS\ARC
 
 
::**************************************************************************************
 
rem Устанавливаем путь для SBERSIGN
rem SET SBERSIGN=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\sign_s
SET SBERSIGN=E:\SERVER\BAT\AUTO_TECOS\sign_s
             
 
rem Устанавливаем путь для хранения базы ключей Sbersign
rem SET SBERDATA=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\sign_s
SET SBERDATA=E:\SERVER\BAT\AUTO_TECOS\sign_s
 
rem Устанавливаем путь для доступа к ящикам
rem set PUT=\\Postal\ORG_MAIL\OTDEL
SET PUT=E:\OTDEL
rem echo %Put%
rem pause
 
::Установка путей логов
::**************************************************************************************
 
rem  Устанавливаем путь лога для ящиков 
rem SET LOG_USER=\\Postal\ORG_MAIL\OTDEL\%thePATH%\LOG
SET LOG_USER=E:\OTDEL\%thePATH%\LOG
 
rem  Устанавливаем путь лога для оператора
rem SET LOG_OPER=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\LOG
SET LOG_OPER=E:\SERVER\BAT\AUTO_TECOS\LOG
 
rem  Устанавливаем путь лога для ящиков TEMP
SET LOG_USER_TEMP=E:\SERVER\BAT\AUTO_TECOS\LOG\LOG_OTD
 
rem /l= путь для лога Sbersign
rem SET SET_SIGN=\\Postal\ORG_MAIL\SERVER\BAT\AUTO_TECOS\sign_s\SIGN_LOG
SET SET_SIGN=E:\SERVER\BAT\AUTO_TECOS\sign_s\SIGN_LOG
 
 
 
::**************************************************************************************
 
 
 
IF NOT exist "E:\OTDEL\%thePATH%" CALL :start
IF NOT exist "E:\OTDEL\%thePATH%\OUT\OSB\0030" CALL :start  
 
 
rem echo начинаем просмотр ящиков
rem pause
FOR %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8632,8633,8643,KRAY,Respubliki,DO_137,OPERU,Vsem_OSB) DO (
dir /a-d /b "E:\OTDEL\%thePATH%\OUT\OSB\%%a" 1>nul 2>nul  && (
GOTO start)
)
 
echo Закончили обработку ОСБ Электронного ящика №%thePATH%
EXIT /b
 
 
:start
 
 
                                
 
rem IF %thePTH%==010 ( IF NOT exist "E:\OTDEL\%thePATH%\OUT\Moscow\Transport_packet\" md "E:\OTDEL\%thePATH%\OUT\Moscow\Transport_packet\")
 
 
:: Создаем структуру для Электронного ящика № %thePATH%
::**************************************************************************************
IF NOT exist "E:\OTDEL\%thePATH%\" md "E:\OTDEL\%thePATH%"
IF NOT exist "E:\OTDEL\%thePATH%\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\README.lnk" "E:\OTDEL\%thePATH%\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для IN
::**************************************************************************************
 
IF NOT exist "E:\OTDEL\%thePATH%\IN\" md "E:\OTDEL\%thePATH%\IN\"
IF NOT exist "E:\OTDEL\%thePATH%\IN\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\IN\README.lnk" "E:\OTDEL\%thePATH%\IN\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для OUTPUT
::**************************************************************************************
 
IF NOT exist "E:\OTDEL\%thePATH%\OUTPUT\" md "E:\OTDEL\%thePATH%\OUTPUT\"
IF NOT exist "E:\OTDEL\%thePATH%\OUTPUT\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\OUTPUT\README.lnk" "E:\OTDEL\%thePATH%\OUTPUT\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для ARJ_PACK
::**************************************************************************************
 
IF NOT exist "E:\OTDEL\%thePATH%\ARJ_PACK\1_Папка_для_архивации\" md "E:\OTDEL\%thePATH%\Arj_pack\1_Папка_для_архивации\"
IF NOT exist "E:\OTDEL\%thePATH%\ARJ_PACK\2_Готовый_архив\" md "E:\OTDEL\%thePATH%\Arj_pack\2_Готовый_архив\"
IF NOT exist "E:\OTDEL\%thePATH%\ARJ_PACK\ARJ_PACK.bat" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\ARJ_PACK\ARJ_PACK.bat" "E:\OTDEL\%thePATH%\ARJ_PACK\"
IF NOT exist "E:\OTDEL\%thePATH%\ARJ_PACK\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\ARJ_PACK\README.lnk" "E:\OTDEL\%thePATH%\ARJ_PACK\"
 
::**************************************************************************************
 
   
 
:: Создаем структуру для OUT
::**************************************************************************************
 
IF NOT exist "E:\OTDEL\%thePATH%\OUT\" md "E:\OTDEL\%thePATH%\OUT\"
IF NOT exist "E:\OTDEL\%thePATH%\OUT\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\OUT\README.lnk" "E:\OTDEL\%thePATH%\OUT\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для NOT_OUT
::**************************************************************************************
 
IF NOT exist "E:\OTDEL\%thePATH%\NOT_OUT\" md "E:\OTDEL\%thePATH%\NOT_OUT\"
IF NOT exist "E:\OTDEL\%thePATH%\NOT_OUT\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\NOT_OUT\README.lnk" "E:\OTDEL\%thePATH%\NOT_OUT\"
 
::**************************************************************************************
 
 
 
:: Создаем структуру для LOG
::**************************************************************************************
 
IF NOT exist "E:\OTDEL\%thePATH%\LOG\" md "E:\OTDEL\%thePATH%\LOG\"
IF NOT exist "E:\OTDEL\%thePATH%\LOG\README.lnk" copy "E:\SERVER\BAT\AUTO_TECOS\BAT\LINK\LOG\README.lnk" "E:\OTDEL\%thePATH%\LOG\"
 
::****************************************
::*      Установка шапок для логов       *                              
::****************************************                            
 
IF NOT exist "%LOG_OPER%\HISTORY_%year%.txt" (            
echo *********************************************************************************************************************************************** >>%LOG_OPER%\HISTORY_%year%.txt
echo *   №   *    Дата    *  Время   * Отправлен    *  Значение ошибки       * Имя файла    * Размер файла    * Путь нахождения файла              * >>%LOG_OPER%\HISTORY_%year%.txt
echo * ящика *  отправки  * отправки * Не отправлен *                        *              *                 *                                    * >>%LOG_OPER%\HISTORY_%year%.txt
echo *********************************************************************************************************************************************** >>%LOG_OPER%\HISTORY_%year%.txt
)                                                               
 
if not exist "%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt" (
echo *********************************************************************************************************************************************** >>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
echo *   ╣   *    ─рЄр    *  ┬Ёхь*   * ╬ЄяЁртыхэ    *  ╟эрўхэшх ю°шсъш       * ╚ь* Їрщыр    * ╨рчьхЁ Їрщыр    * ╧єЄ№ эрїюцфхэш* Їрщыр              * >>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
echo * *∙шър *  юЄяЁртъш  * юЄяЁртъш * ═х юЄяЁртыхэ *                        *              *                 *                                    * >>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
echo *********************************************************************************************************************************************** >>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
)                                                                                                              
 
if not exist "%LOG_USER%\HISTORY_%thePATH%_%year%.txt" (
echo *********************************************************************************************************************************************** >>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
echo *   ╣   *    ─рЄр    *  ┬Ёхь*   * ╬ЄяЁртыхэ    *  ╟эрўхэшх ю°шсъш       * ╚ь* Їрщыр    * ╨рчьхЁ Їрщыр    * ╧єЄ№ эрїюцфхэш* Їрщыр              * >>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
echo * *∙шър *  юЄяЁртъш  * юЄяЁртъш * ═х юЄяЁртыхэ *                        *              *                 *                                    * >>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
echo *********************************************************************************************************************************************** >>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
)                                                                                                              
 
 
::**************************************************************************************
 
           
 
::начинаем проверку всех директорий ОСБ на наличие файлов
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8632,8633,8643,KRAY,Respubliki,DO_137,OPERU,Vsem_OSB) DO (
if not exist "%put%\%thePATH%\OUT\OSB\%%a\" md "%put%\%thePATH%\OUT\OSB\%%a\"
set the_osb=%%a
for %%b in ("%put%\%thePATH%\OUT\OSB\%%a\*.*") do (
set file_ext=%%~xb
set file_name=%%~nb
set file_size=%%~zb
set file_path=%%~dpb
set file_fullname=%%b
rmdir /s /q "%file_path%TEMP"
::запоминаем параметры файла и переходим в основную функцию обработки
call :main
)
)
GOTO END
 
::основная функция обработки main
:main
 
::если файл заблокирован пропускаем его
ren "%file_fullname%" *
if errorlevel 1 (
call :otbr_buzy "Файл открыт"
exit /b
) 
::если в имени файла не 8 символов отбрасываем
if "%file_name:~7,1%"=="" (
call :otbr "Имя файла неверно"
exit /b
)
if not "%file_name:~8,1%"=="" (
call :otbr "Имя файла неверно"
exit /b
)
 
::"если файл больше заданного размера отбрасываем
if %file_size% gtr %massa% (
call :otbr "Размер больше %massa%"
exit /b
)
 
::если файл формата rtf,pdf,xls,txt,tif проверяем подпись
echo %file_ext%|findstr /i /r /c:"^\.rtf$" /c:"^\.pdf$" /c:"^\.xls$" /c:"^\.txt$" /c:"^\.tif$" >nul && (
call "%SBERSIGN%\sbersign.exe" /p /l=%SET_SIGN%\sign.lst "%file_fullname%"
if errorlevel 1 (
call :otbr "Ошибка ЭЦП"
exit /b
) else (
call :good
exit /b
)
)
 
::если архив ARJ
if /i %file_ext%==.arj (
if exist "%file_path%TEMP" rmdir /s /q "%file_path%TEMP\"
 
md "%file_path%TEMP"
 
attrib +H "%file_path%TEMP"
 
::распаковываем
"%ARC%\arj32.exe" e -y "%file_fullname%" "%file_path%TEMP"
call :temp_extr
exit /b
)
 
::если архив ZIP
if /i %file_ext%==.zip (
if exist "%file_path%TEMP\" rmdir /s /q "%file_path%TEMP\"
md "%file_path%TEMP"
attrib +H "%file_path%TEMP"
::"распаковываем
"%ARC%\pkzip25.exe" -over=all -extract "%file_fullname%" "%file_path%TEMP"
call :temp_extr
exit /b
)
 
::если архив RAR
if /i %file_ext%==.zip (
if exist "%file_path%TEMP\" rmdir /s /q "%file_path%TEMP\"
md "%file_path%TEMP"
attrib +H "%file_path%TEMP"
::"распаковываем
"%ARC%\Rar.exe" e -y "%file_fullname%" "%file_path%TEMP"
call :temp_extr
exit /b
)
 
::если документ doc отбрасываем
if /i %file_ext%==.doc (
call :otbr "файл DOC"
exit /b
)
 
::если документ docx отбрасываем
if /i %file_ext%==.docx (
call :otbr "файл DOCX"
exit /b
)
 
::если архив xlsx отбрасываем
if /i %file_ext%==.xlsx (
call :otbr "файл XLSX"
exit /b
)
 
::если какой то другой файл отбрасываем
call :otbr "Имя файла неверно"
exit /b 
::конец основной функции обработки main
 
 
:temp_extr
::Распаковка найденных архивов
for /f "delims=" %%d in ('dir /a-d /b "%file_path%TEMP\*.arj" 2^>nul') do (
"%ARC%\arj32.exe" e -y "%file_path%TEMP\%%d" "%file_path%TEMP"
del "%file_path%TEMP\%%d"
)
for /f "delims=" %%d in ('dir /a-d /b "%file_path%TEMP\*.zip" 2^>nul') do (
"%ARC%\pkzip25.exe" -over=all -extract "%file_path%TEMP\%%d" "%file_path%TEMP"
del "%file_path%TEMP\%%d"
)
for /f "delims=" %%d in ('dir /a-d /b "%file_path%TEMP\*.rar" 2^>nul') do (
"%ARC%\Rar.exe" e -y "%file_path%TEMP\%%d" "%file_path%TEMP"
del "%file_path%TEMP\%%d"
)
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.arj" goto :temp_extr
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.zip" goto :temp_extr
if exist "%Put%\%thePATH%\OUT\OSB\%the_osb%\TEMP\*.rar" goto :temp_extr
 
::Если находим DOC или DOCX производим выход и переносим архив в каталог для неотправки
if exist "%file_path%TEMP\*.doc" (
call :otbr "Содержит DOC"
exit /b
)
if exist "%file_path%TEMP\*.docx" (
call :otbr "Содержит DOCX"
exit /b
)
if exist "%file_path%TEMP\*.xlsx" (
call :otbr "Содержит XLSX"
exit /b
)
 
::echo Копируем все базы ключей
::echo проверяем архивы на наличие ЭЦП
copy  /y %SBERDATA_FROM%\sign.d04 %SBERDATA%\sign.dat >nul
echo ****************************************  >>%SET_SIGN%\sign.lst
echo * %ARJ% * >>%SET_SIGN%\sign.lst
echo ****************************************  >>%SET_SIGN%\sign.lst
 
cd /d "%file_path%TEMP"
%SBERSIGN%\sbersign.exe /p /l=%SET_SIGN%\sign.lst *.*
if errorlevel 1 (call :otbr "Ошибка ЭЦП") else (call :good)
cd /d "%Put%\%thePATH%\OUT\OSB\%the_osb%"
attrib -H "%file_path%TEMP"
pause
rmdir /s /q "%file_path%TEMP"
pause
exit /b
::конец распаковки и выход
 
:otbr_buzy
::лог занятого файла
call :log "Не отправлен" "%~1" "%file_fullname%"
exit /b
:: конец занятого файла
 
::перемещение не подошедшего файла
:otbr
call :log "Не отправлен" "%~1" "\%thePATH%\NOT_OUT\%out_time%\%the_osb%"
if not exist "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" md "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\" 
echo Y|move /Y "%file_fullname%" "%Put%\%thePATH%\NOT_OUT\%out_time%\%the_osb%\"
if errorlevel 1 (call :log "Отмена" "Ошибка записи" "Код ошибки %errorlevel%")
exit /b
::конец перемещения
 
::перемещение хорошего файла
:good
if not exist "%GOOD%\OSB\%the_osb%" md "%GOOD%\OSB\%the_osb%"
if exist "%GOOD%\OSB\%the_osb%\%file_name%%file_ext%" (
for %%j in ("%GOOD%\OSB\%the_osb%\%file_name%%file_ext%") do set old_size=%%~zj
call :log "Перезаписан" "Файл перезаписан" "Был размера %old_size% стал %file_size%"
) else (
call :log "Отправлен" "Ошибок нет" "Отправлен в ОСБ № %the_osb%"
)
echo Y|move /Y "%file_fullname%" "%GOOD%\OSB\%the_osb%\"
if errorlevel 1 (call :log "Отмена" "Ошибка записи" "Код ошибки %errorlevel%")
exit /b
::конец перемещения
 
::пишем лог
:log
::12,22,34
set par1=%~1
:log_1
if "%par1:~11,1%"=="" (
set par1=%par1% 
goto log_1
)
set par2=%~2
:log_2
if "%par2:~21,1%"=="" (
set par2=%par2% 
goto log_2
)
set par3=%~3
:log_3
if "%par3:~33,1%"=="" (
set par3=%par3% 
goto log_3
)
set par4=%file_size%
:log_4
if "%par4:~14,1%"=="" (
set par4=%par4% 
goto log_4
)
::"
set dd=%date%
set tt=%time%
FOR /f "tokens=1-3 delims=-./" %%i in ("%dd%") DO (
set day=%%i
set month=%%j
set year=%%k
)
IF "%day:~2,1%"==" " set day=%day:~3,2%
set t=%day%
IF NOT "%day:~2,1%"=="" (
set day=%year%
set year=%t% )
IF "%year:~2,1%"=="" set year=20%year%
set hour=%tt:~0,2%
IF "%hour:~0,1%"=="0" (set /a hour=%hour:~1%) ELSE (set /a hour=%hour%)
IF %hour% lss 10 set hour=0%hour%
set minute=%tt:~3,2%
set sec=%tt:~6,2%
 
echo * %thePATH%   * %day%.%month%.%year% * %hour%.%minute%.%sec% * %par1% * %par2% * %file_name%%file_ext% * %par4% * %par3% * >>%LOG_OPER%\HISTORY_TEMP_%year%.txt
exit /b
::заканчиваем писать лог
 
:END
IF NOT exist %LOG_OPER%\HISTORY_TEMP_%year%.txt  GOTO end11
echo добавляем информацию в историю и меняем кодировку 
chcp 866 >nul
FOR /f "tokens=*" %%x in (%LOG_OPER%\HISTORY_TEMP_%year%.txt) DO CALL :convert %%x
IF exist %LOG_OPER%\HISTORY_TEMP_%year%.txt del %LOG_OPER%\HISTORY_TEMP_%year%.txt  
GOTO end11
 
:convert
chcp 866 >nul
echo %*>>%LOG_OPER%\HISTORY_%year%.txt
chcp 1251 >nul
echo %*>>%LOG_USER_TEMP%\HISTORY_%thePATH%_%year%.txt
echo %*>>%LOG_USER%\HISTORY_%thePATH%_%year%.txt
chcp 866 >nul
EXIT /b
 
:end11
echo Закончили обработку ОСБ Электронного ящика №%thePATH%
EXIT /b
на 366 строке когда попадаем сюда почему то команда удаления не работает так же не работает пауза он просто проскакивает данное место без остановки и оставляет папку темп заполненную файлами.
0
835 / 349 / 12
Регистрация: 04.10.2009
Сообщений: 589
22.11.2011, 22:17
Ну когда используется команда cd /d "%file_path%TEMP" то папка темп блокируется
Вы же вроде все и исправили написав потом сброс блокировки cd /d "%Put%\%thePATH%\OUT\OSB\%the_osb%"

нужно еще исправить 293 строка
if /i %file_ext%==.rar (

возможно в архиве DOC DOCX XLSX, там я выход сделал а вот удалить папку темп не добавил.
Нужно после 305 311 317 добавить
rmdir /s /q "%file_path%TEMP"

Добавлено через 15 минут
Но наверно все таки лучше использовать команду
cd ..
чтобы гарантированно работал переход из папки TEMP
1
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
23.11.2011, 08:44  [ТС]
Спасибо учту. да еще первый файл нуна поправить еще один фор добавить ну там я уже сам ! Там просто выгрузка из одного каталога в другой
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
23.11.2011, 22:13  [ТС]
Все протестил все работает как часики везде подправил все ок !!!

Вот после выполнения первого батничка у нас получается файлики теперь их нужно разложить я думал сделать так :

[BASH]
Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
echo off
 
setlocal enabledelayedexpansion
 
rem cls
FOR %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8643,8632,8633,DO_137,KRAY,OPERU,Respubliki,Vsem_OSB) DO (
dir /a-d /b "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\%%a" 1>nul 2>nul  && (GOTO start)
 
)
goto end
:start
 
echo пришли
rem pause
                                        
rem Раскладка в ОПЕРУ
rem
 
for /f "delims=" %%w in ('dir /a-d /b "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\OPERU\*.*" 2^>nul ') do ( 
if not exist "e:\server\colector.pro_TEMP\OUT_110" md "e:\server\colector.pro_TEMP\OUT_110" 
move "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\OPERU\%%w" "e:\server\colector.pro_TEMP\OUT_110"
)
echo Разложили OPERU
rem pause
rem Раскладка в ДО_137
rem
 
for /f "delims=" %%w in ('dir /a-d /b "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\DO_137\*.*" 2^>nul ') do ( 
if not exist "e:\server\colector.pro_TEMP\DO_137" md "e:\server\colector.pro_TEMP\0137" 
move "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\DO_137\%%w" "e:\server\colector.pro_TEMP\0137"
)
 
echo Разложили DO_137
rem pause
 
rem Раскладка из подготовленных директорий по всем отделениям
rem
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908,8579,8585,8590,8631,8643,8632,8633) do (
 
if not exist "e:\server\colector.pro_TEMP\%%a" md "e:\server\colector.pro_TEMP\%%a"
 
for /f "delims=" %%w in ('dir /a-d /b "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\%%a\*.*" 2^>nul ') do ( 
 
move "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\%%a\%%w" "e:\server\colector.pro_TEMP\%%a"
)
)
 
echo Разложили по отделениям
rem pause
                      
rem Раскладка по краю
rem
for %%a in (0030,1583,1587,1811,1812,1856,1857,1858,1859,1860,1861,1872,5230,5231,5232,5238,5239,5241,7799,7908) do (
if not exist "e:\server\colector.pro_TEMP\%%a\" md "e:\server\colector.pro_TEMP\%%a\"
for /f "delims=" %%w in ('dir /a-d /b "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\KRAY\*.*" 2^>nul ') do ( 
 
 
copy "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\KRAY\%%w" "e:\server\colector.pro_TEMP\%%a"
 
if %%a == 7908 (
for /f "delims=" %%w in ('dir /a-d /b "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\KRAY\*.*" 2^>nul ') do ( 
del "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\KRAY\%%w" 
)
)
 
)
)
echo Разложили по краю
rem pause
 
rem Раскладка по республикам
rem
for %%t in (8579,8585,8590,8631,8632,8643,8633) do (
 
if not exist "e:\server\colector.pro_TEMP\%%a\" md "e:\server\colector.pro_TEMP\%%a\"
 
rem pause
for /f "delims=" %%r in ('dir /a-d /b "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Respubliki\*.*" 2^>nul ') do ( 
 
copy "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Respubliki\%%w" "e:\server\colector.pro_TEMP\%%a"
 
if %%t == 8633 (                       
for /f "delims=" %%r in ('dir /a-d /b "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Respubliki\*.*" 2^>nul ') do ( 
del "E:\SERVER\BAT\AUTO_TECOS\COLECTOR.PRO\OUT\OSB\Respubliki\%%w" 
)
 
)
 
)
)
 
echo Разложили по республикам
rem pause
 
rem pause
:end
Но предположил что в то время как автомат этот начнет раскладывать файлы например отключат свет и компутер потухнет или оператор закроет приложение или еще что и получается раскладка не будет выполнена до конца, а когда опять включат то данный алгоритм просто начнет все сначала если учесть если что-то осталось в директориях или еще как вариант достаточно логичный для данного ресурса отведен размер не более 5 ГБ и получается что вероятность того что во время раскладки он переполнится есть и в следствии чего раскладка просто остановится и выдаст ошибку в лучшем случае или просто закроется. Как лучше поступить? чето пока не представляю какой тут алгоритм можно применить ???? Как минимизировать вероятность ошибки во время раскладки ?
0
835 / 349 / 12
Регистрация: 04.10.2009
Сообщений: 589
23.11.2011, 22:20
так ведь файлы сразу по одному перемещаются даже если алгоритм прервать логика не нарушится.

Добавлено через 30 секунд
разве что с логами надо доработать
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
23.11.2011, 22:33  [ТС]
ну Ведь есть каталоги типа Respubliki, KRAY, Vsem_OSB получается из этих каталогов нужно производить копирование по всем другим папкам именно по папкам:


KRAY
0030,1583,1587,1811,1812,1856,1857,1858, 1859,1860,1861,1872,5230,5231,5232,5238, 5239,5241,7799,7908
например это раскладка для края


Respubliki
8579,8585,8590,8631,8632,8643,8633
это раскладка по республикам

Vsem_OSB
0030,1583,1587,1811,1812,1856,1857,1858, 1859,1860,1861,1872,5230,5231,5232,5238, 5239,5241,7799,7908,8579,8585,8590,8631, 8643,8632,8633
это раскладка по всем

и например файлик по 20 мб
20 мб * 27 папочек = 540 мб увеличится и пока будет копирование этих 540 мб может же что-либо
произойти и батник перестанет работать потом его снова включили и он если не доложил начнет снова все раскладывать повторно.

ну и еще плюс жесткий может переполнится тоже как вариант.



Беру крайние меры

Добавлено через 1 минуту
просто пользователей будет порядка 1500 и фиг его знает что они могут учедить рассматриваю все возможные варианты что б потом еще и по шапке не получить ...
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
23.11.2011, 22:52  [ТС]
Все разобрался в принципе нужно только наверное установить проверку для жесткого диска например если у диска осталось 100 мб остановить раскладку. Диск сетевой и получается подключен как E:\ Наверное это все.

И для команды копировать установить вместе с перезаписью если файл равен по размеру .

и после раскладки просто сделать команду move и переложить уже на сервер для отправки.

Добавлено через 6 минут
Все разобрался в принципе нужно только наверное установить проверку для жесткого диска например если у диска осталось 100 мб остановить раскладку. Диск сетевой и получается подключен как E:\ Наверное это все.

И для команды копировать установить вместе с перезаписью если файл равен по размеру .

и после раскладки просто сделать команду move и переложить уже на сервер для отправки.
0
835 / 349 / 12
Регистрация: 04.10.2009
Сообщений: 589
24.11.2011, 06:44
Ну у вас же имя не меняется значит будет во второй раз копироваться с перезаписью.
Только конечно надо писать copy /y а то если файл с таким же именем существует программа встанет и будет спрашивать перезаписывать или нет.
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
24.11.2011, 09:34  [ТС]
Остается вопрос как установить проверку на переполняемость диска
0
 Аватар для Tornament
71 / 71 / 2
Регистрация: 28.10.2010
Сообщений: 329
25.11.2011, 09:31
Я не знаю как, но думаю что лучше будет использовать какую нибудь утилиту..
0
835 / 349 / 12
Регистрация: 04.10.2009
Сообщений: 589
25.11.2011, 15:41
Цитата Сообщение от wildwolf007 Посмотреть сообщение
Исходя из темы данные команды должны переходить в конец, файла и эти команды используют что б выйти из так называемого цикла /b необходимо что б не закрыть окно бат файла.
На практике получается так что данная команда не выполняется так как нужно и вместо перехода в конец батника срабатывает и начинаются никому не нужное выполнение циклов.
Кто вообще встречался с проблемами в этой команде ?

Ни одна ни вторая команда не помогает, а выйти нужно что б произошел запуск следующего батника.
не понял ни слова

Добавлено через 3 минуты
Цитата Сообщение от wildwolf007 Посмотреть сообщение
Остается вопрос как установить проверку на переполняемость диска
вы опять это спрашиваете.
обсуждали же.
нужно использовать удаленный запуск
как настроить вот даже тут писал Удаленно включить программу
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
25.11.2011, 20:59  [ТС]
Цитата Сообщение от atributz Посмотреть сообщение
Сообщение от wildwolf007
Исходя из темы данные команды должны переходить в конец, файла и эти команды используют что б выйти из так называемого цикла /b необходимо что б не закрыть окно бат файла.
На практике получается так что данная команда не выполняется так как нужно и вместо перехода в конец батника срабатывает и начинаются никому не нужное выполнение циклов.
Кто вообще встречался с проблемами в этой команде ?
Ни одна ни вторая команда не помогает, а выйти нужно что б произошел запуск следующего батника.
не понял ни слова
Все решил все ок спасибо.

Добавлено через 3 минуты
Сообщение от wildwolf007
Остается вопрос как установить проверку на переполняемость диска
вы опять это спрашиваете.
обсуждали же.
нужно использовать удаленный запуск
как настроить вот даже тут писал Удаленно включить программу

Сторонние программы низя... Я видел где-то что-то что есть команды, или алгоритм обработки, но пока чето не могу найти. Вот и спросил.
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
06.12.2011, 23:29  [ТС]
Вот тестирую уже почти 2 недели все идет нормально.

Но вот только сегодня нашелся пользователь который устроил диверсию правда для себя.

Взял запаковал архив в *.RAR и переименовал его в*. ARJ и соответственное алгоритм его отмел с ошибкой ЭЦП пользователь все подписал все вроде хорошо, но фиг его не работает не отправляет на сервер.

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

но тут решил просто примерно так:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
::если архив ARJ
if /i %file_ext%==.arj (
if exist "%file_path%TEMP" rmdir /s /q "%file_path%TEMP\"
md "%file_path%TEMP"
attrib +H "%file_path%TEMP"
::распаковываем
"%ARC%\arj32.exe" e -y "%file_fullname%" "%file_path%TEMP"
if %errorlevel% == 0 goto arj_verify
rem echo Ага это не архив ARJ
call :otbr "Это не архив ARJ"
exit /b
:arj_verify
call :temp_extr
exit /b
)
Спасибо за такой продуманный алгоритм редактировать и дополнять очень легко.

Вот единственное сейчас начинаю более углубленно разбирать каждый кусок и получается вопрос

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
::если файл формата rtf,pdf,xls,txt,tif проверяем подпись
echo %file_ext%|findstr /i /r /c:"^\.rtf$" /c:"^\.pdf$" /c:"^\.xls$" /c:"^\.txt$" /c:"^\.tif$" >nul && (
call "%SBERSIGN%\sbersign.exe" /p /l=%SET_SIGN%\sign.lst "%file_fullname%"
if errorlevel 1 (
call :otbr "Ошибка ЭЦП"
exit /b
) else (
call :good
exit /b
)
)
для задания новой маски здесь необходимо дописать /c:"^\.060$"
????? и Что означает /c:

И как добавить маску исключения так называемую типа если считываем файл типа 12345678.090 то выполняем следующие действия????????

это получается должно быть примерно так ???

/c:"^12345678.090$"
0
835 / 349 / 12
Регистрация: 04.10.2009
Сообщений: 589
08.12.2011, 12:36
в условии идет проверка только по расширению.
а для полного имени нужно что то вроде
echo %file_name%%file_ext%|findstr /i /r /c:"^12345678\.090" >nul && (...)
или просто
if "%file_name%%file_ext%"=="12345678.0 90" (...)

Добавлено через 1 минуту
/c: это просто ключ показывающий что после него будет задана строка для поиска
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
08.12.2011, 21:46  [ТС]
кстати получается все можно было б переписать и без findstr
а применяя конструкцию if ".%file_ext%"==".PDF" (...)

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

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
::если архив ARJ
if /i %file_ext%==.arj (
if exist "%file_path%TEMP" rmdir /s /q "%file_path%TEMP\"
md "%file_path%TEMP"
attrib +H "%file_path%TEMP"
::распаковываем
"%ARC%\arj32.exe" e -y "%file_fullname%" "%file_path%TEMP"
echo  № ошибки равен %errorlevel%
pause 
if %errorlevel% == 0 goto arj_verify
rem echo Ага это не архив ARJ
call :otbr "Это не архив ARJ"
exit /b
:arj_verify
call :temp_extr
exit /b
)
почему то находит архивы arj или переделанный rar в arj все равно выводит echo errorlevel = 1 и соответственное получается что тут вызов goto arj_verify при равном 0 не срабатывает.

Хотя ARJ.exe показывает точно ошибку что не может разархивировать 12345678.arj (переделанный rar в arj) чуть позже выложу скрин
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
08.12.2011, 22:51  [ТС]
Вот скрин работы когда обнаружен rar архив переименованный в arj
Миниатюры
Exit /b :eof не переходит в конец файла  
0
35 / 27 / 0
Регистрация: 11.10.2011
Сообщений: 380
08.12.2011, 23:01  [ТС]
Вот странно почему %errorlevel% еще до срабатывания архиватора выводит 1 ????

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
::если архив ARJ
if /i %file_ext%==.arj (
if exist "%file_path%TEMP" rmdir /s /q "%file_path%TEMP\"
md "%file_path%TEMP"
attrib +H "%file_path%TEMP"
::распаковываем
echo on
echo mistake=%errorlevel% выводимая ошибкаперед архивом
pause
"%ARC%\arj32.exe" e -y "%file_fullname%" "%file_path%TEMP"
 
echo mistake=%errorlevel% выводимая ошибка после архива
pause
 
if %errorlevel% == 0 goto arj_verify
 
rem echo Ага это не архив ARJ
call :otbr "Это не архив ARJ"
rmdir /s /q "%file_path%TEMP"
exit /b
:arj_verify
call :temp_extr
exit /b
)
Миниатюры
Exit /b :eof не переходит в конец файла  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
08.12.2011, 23:01

Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла
3)Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла.

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

При чтении из файла последние данные считываются дважды !? eof() ?
Есть следующий код: std::ifstream fin("ParentList", std::ios::binary); QString str; while(!fin.eof()) { ...

При построчном чтении файла eof наступает раньше срока
Здравствуйте, товарищи! Столкнулся с такой проблемой: при построчном потоковом чтении файла (при помощи getline) бит eof...

std::cin, eof не всегда принимается как признак конца файла
std::string text; char ch = 0; while(!std::cin.get(ch).eof()){ text.append(1, ch); } Ввожу в консоль в Windows: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
98
Ответ Создать тему
Новые блоги и статьи
Доктрина интенционального знания - Доктрина для портала "Срез".
Hrethgir 25.07.2026
Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых
anaschu 25.07.2026
Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.
сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил
anaschu 25.07.2026
две стороны одной монеты
Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад).
Hrethgir 24.07.2026
В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .
Вот представьте что вам дали бессмертие.
kumehtar 24.07.2026
Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .
сукцессия 41
anaschu 24.07.2026
Численная верификация бифуркации в агентной модели лесной сукцессии: от одного параметра к ансамблю Автор: пользователь @Shumilov_AS | Раздел: Прикладная математика / Численные методы Кратко. . .
сукцессия 40. Ансамблевая кластерная параметризаци, часть 1.
anaschu 24.07.2026
Пр# Сопровождение научной статьи ИИ-ассистентом: подготовка публикации и калибровка агентно-ориентированной модели сукцессии микоризных систем **Полевые заметки о двухнедельной совместной работе**. . .
Теория всего 12. ВГК на планете в стратегической игре "терра"
anaschu 21.07.2026
### Главные семантические изменения и дешифровка новой физики 1. **`REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`)**: Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru