Tol!k

|
Posted: Sun May 13, 2012 01:05 Post subject: |
|
|
Code: | @echo off &setlocal enableextensions &chcp 866 >nul
:: Параметры: "файл с датами.txt"
>"%temp%\Weekday.vbs" echo WScript.Echo WeekDayName(Weekday(WScript.Arguments(0)),True)
for /f "usebackq" %%d in ("%~1") do (
for /f %%a in ('cscript /nologo "%temp%\Weekday.vbs" %%d') do call :chcp %%d %%a
)
move /y "%temp%\Weekday.tmp" "%~1"
goto :eof
:chcp
chcp 1251 >nul
echo %1 %2>>"%temp%\Weekday.tmp"
chcp 866 >nul
goto :eof
|
|
|