Ru-Board.club
← Вернуться в раздел «Программы»

» cmd файл для копирования файлов

Автор: Sancha
Дата сообщения: 23.08.2008 20:02
Помогите пожалуйста с этим cmdшником!
Он работает на операционке OS/2 Warp, но не работает на Windows XP!!!

Вот сам cmdшник

/* Файл Rexx */
'@ECHO OFF'
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs /* Загружаем все функции Rexx */

Call SysCls /* Очищаем экран */

Ds = Date(S) /* Опрашиваем текущую дату */
Tl = Time(L) /* Опрашиваем текущее время*/

Say Ds
Say Tl
Say ' Ожидаем приблизительно 1.5 часа для окончания текущего дня'

Call SysSleep 5400 /*Ожидание в секундах*/

Path_Temp = "E:\ArhivTax\DetalTax\TempTts"
'CD 'Path_Temp /*Делаем текущей директорией временный*/


/* ------------------------------------------------------------------------ */
/* Обработка тарификации АТС-335/337 */
/* ------------------------------------------------------------------------ */
Say
Say ' Обработка тарификации ЭАТС-335/337'
File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\"DelStr(Ds,1,4)"????.tts"
File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\"DelStr(Ds,1,4)"????.tts"

/* File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\011900??.tts" */
/* File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\011900??.tts" */

Say 'Копируем файлы c MU321 ucA копия1'
copy File_MU321_ucA '/B' Path_Temp'\FileMU1a.335 /B'
Say 'Копируем файлы c MU321 ucB копия1'
copy File_MU321_ucB '/B' Path_Temp'\FileMU1b.335 /B'

Say 'Копируем файлы c MU321 ucA копия2'
copy File_MU321_ucA '/B' Path_Temp'\FileMU2a.335 /B'
Say 'Копируем файлы c MU321 ucB копия2'
copy File_MU321_ucB '/B' Path_Temp'\FileMU2b.335 /B'

Say 'Выполняем проверку'
Call SysFileTree Path_Temp'\FileMU1?.335', S1, 'S'
Call SysFileTree Path_Temp'\FileMU2?.335', S2, 'S'
S1.1 = DelStr(S1.1,73,1)
S2.1 = DelStr(S2.1,73,1)
S1.1 = DelStr(S1.1,12,6)
S2.1 = DelStr(S2.1,12,6)

if compare(S1.1, S2.1)<>0 then do
Say 'Ошибка проверки файлов MU321'
Say Ds
Say Tl
Say
Say S1.1
Say S2.1
Pause
exit
end

Say 'Конвертируем файлы для ЭАТС-335/337'
'Conv335.exe FileMU1?.335 'Ds'.335'
Copy Ds'.335 /B E:\ArhivTax\2008_08.Tax\'Ds'.335 /B'
'Del ????MU1?.335'
'Del ????MU2?.335'

Say 'Начинаем обработку полученных файлов'
'CD D:\Detailed\335-D'
Copy Path_Temp'\'Ds'.335' 'D:\Detailed\335-D\'Ds'.335'
'mt20v7fa.exe 'Ds'.335'
'E:\ArhivTax\DetalTax\rar.exe a E:\'Ds' 'Ds'.335'


/* Call SysDropFuncs */
Exit


А при запуске в Windows XP пишет

Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.

C:\Documents and Settings\San4a>F:\Copy335.cmd

C:\Documents and Settings\San4a>/* Файл Rexx */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>'@ECHO OFF'
"'@ECHO" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysL
oadFuncs'
"RxFuncAdd" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Call SysLoadFuncs /* Загружаем все функции Rexx
*/
"SysLoadFuncs" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Call SysCls /* Очищаем экран */
"SysCls" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Ds = Date(S) /* Опрашиваем текущую дату */
"Ds" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Tl = Time(L) /* Опрашиваем текущее время*/
"Tl" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Say Ds
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Say Tl
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Say ' Ожидаем приблизительно 1.5 час
а для окончания текущего дня'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Call SysSleep 5400 /*Ожидание в секундах*/
"SysSleep" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Path_Temp = "E:\ArhivTax\DetalTax\TempTts"
"Path_Temp" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>'CD 'Path_Temp /*Делаем т
екущей директорией временный*/
"'CD" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>/* ---------------------------------------------
--------------------------- */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>/* Обработка тарификации ЭАТС
-335/337 */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>/* ---------------------------------------------
--------------------------- */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Say
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Say ' Обработка тарификации ЭАТС-33
5/337'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\"Del
Str(Ds,1,4)"????.tts"
"File_MU321_ucA" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\"Del
Str(Ds,1,4)"????.tts"
"File_MU321_ucB" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>/* File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\0
11900??.tts" */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>/* File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\0
11900??.tts" */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucA копия1'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>copy File_MU321_ucA '/B' Path_Temp'\FileMU1a.335
/B'
Не удается найти указанный файл.

C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucB копия1'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>copy File_MU321_ucB '/B' Path_Temp'\FileMU1b.335
/B'
Не удается найти указанный файл.

C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucA копия2'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>copy File_MU321_ucA '/B' Path_Temp'\FileMU2a.335
/B'
Не удается найти указанный файл.

C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucB копия2'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>copy File_MU321_ucB '/B' Path_Temp'\FileMU2b.335
/B'
Не удается найти указанный файл.

C:\Documents and Settings\San4a>Say 'Выполняем проверку'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Call SysFileTree Path_Temp'\FileMU1?.335', S1, '
S'
"SysFileTree" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>Call SysFileTree Path_Temp'\FileMU2?.335', S2, '
S'
"SysFileTree" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>S1.1 = DelStr(S1.1,73,1)
"S1.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>S2.1 = DelStr(S2.1,73,1)
"S2.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>S1.1 = DelStr(S1.1,12,6)
"S1.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\Documents and Settings\San4a>S2.1 = DelStr(S2.1,12,6)
"S2.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
Непредвиденное появление: S2.1).
C:\Documents and Settings\San4a>if compare(S1.1, S2.1)<>0 then do


ПОМОГИТЕ ПОЖАЛУЙСТА!!!
ЗАРАНЕЕ СПАСИБО!!!
Автор: YuraH
Дата сообщения: 23.08.2008 20:36
Читаем правила и пользуемся фильтром.

Командная строка, батники, сценарии (bat, cmd)
Автор: MetroidZ
Дата сообщения: 23.08.2008 23:13

Цитата:
Он работает на операционке OS/2 Warp, но не работает на Windows XP!!!


тебя действительно удивляет то что это не работает в XP? В интерпретаторе bat файлов в XP нет тех команд.

А у тебя есть например программа Conv335.exe используемая в скрипте под XP?
Перевод на XP будет сложным...
Автор: Sancha
Дата сообщения: 24.08.2008 13:14
А можно такое же сделать, но только под ХР?????
Автор: MetroidZ
Дата сообщения: 25.08.2008 08:20
я бы копал в сторону эмуляции OS/2 WARP в XP и т.п.
Иначе придется переделывать и скрипт и Conv335.exe
Автор: 01MDM
Дата сообщения: 25.08.2008 08:41
Sancha

Цитата:
А можно такое же сделать, но только под ХР?????


Тебе нужен REXX http://ru.wikipedia.org/wiki/REXX

Не вникал в скрипт, но наверное можно сделать аналогичный средствами только Win XP. Для этого есть соответствующие темы на форуме.

Автор: Sancha
Дата сообщения: 25.08.2008 14:13
Ясненько, спасибо за советы!!!
Автор: VergilDevil
Дата сообщения: 01.01.2009 08:14
День добрый. Люди, подскажите чайнику простую истину. Мне бы написать такую штучку (выражусь словами):

Я пишу путь к файлу, нажимаю на ввод, этот файл копируется в заранее указанную директорию. Конец.

Спасибо =)
Автор: AskYOU
Дата сообщения: 24.07.2009 09:33
bat-файл с командой copy.

Страницы: 1

Предыдущая тема: CoreTemp


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.