| | 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
 | 
 |