Tipulatoid
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору igor_andreev Цитата: Код: Код: ECHO wscript.echo date-1>tmp.vbs FOR /F %%A IN ('cscript tmp.vbs //Nologo') DO SET "YESTERDAY=%%A" ECHO %YESTERDAY%&DEL tmp.vbs | | А можно здесь вместо порядкового номера месяца выводить название? Добавлено: Цитата: Код: Код: wscript.echo WeekDayName(weekday(date)) | скажет название дня недели | Скажет, это точно, только пишет (если из батника запускать) в DOS кодировке Можно ли в cp 1251 перевести? chcp 1251 не помогает Добавлено: В принципе для себя 2-ую проблему решил вот таким скриптом, сделанном по мотивам скрипта предложенного мне Troitsky: Код: Set fso = CreateObject("Scripting.FileSystemObject") Set fstream1 = fso.OpenTextFile("encode.del", 1) Set fstream2 = fso.OpenTextFile("decode.del", 2) While Not fstream1.AtEndOfStream strLine = fstream1.ReadLine strLine = Trim(strLine) strLine = Replace(strLine, "ЇR-_¤_<м-ЁЄ", "Понедельник") strLine = Replace(strLine, "ўвRа-ЁЄ", "Вторник") strLine = Replace(strLine, "ба_¤ ", "Среда") strLine = Replace(strLine, "з_вў_а_", "Четверг") strLine = Replace(strLine, "Їпв-Ёж ", "Пятница") strLine = Replace(strLine, "бгЎЎRв ", "Суббота") strLine = Replace(strLine, "ўRбЄа_б_-м_", "Воскресенье") fstream2.Write strLine & vbCrLf Wend fstream2.Close fstream1.Close Set fstream1 = Nothing Set fstream2 = Nothing Set fso = Nothing | Вариант этот хорош еще тем, что позволяет изменять окончания слов, склоняя их по падежам. Например, если автоматически создается текст письма, то можно заменить Код: strLine = Replace(strLine, "Їпв-Ёж ", "Пятница") | на Код: strLine = Replace(strLine, "Їпв-Ёж ", "Пятницу") | и тогда текст письма будет выглядеть грамотно, например: Код: Я буду в Пятницу, в 13-30 |
| Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 22:55 02-02-2007 | Исправлено: Tipulatoid, 00:57 03-02-2007 |
|