Отправляет email-рассылки с помощью сервиса Sendsay

[TC] Язык VBS

Здравствуйте Дискуссионный Лист!
Дата письма: вторник. 17 июня 2014 года! (5:50)

Просьба:
Оброщаюсь к тем, кто разберается в языке VBS.
напишите такой файлик, чтоб при его нажатия озвучивалось день недели и дата.
например вот так:
вторник. 17 июня 2014 года!
Спасибо!

Ответить   Tue, 17 Jun 2014 05:54:21 +0300 (#3055157)

 

Ответы:

напишите такой файлик, чтоб при его нажатия озвучивалось день недели и дата.
например вот так:
вторник. 17 июня 2014 года!

Здравствуйте!
Вставте в текстовый документ блокнота и переминуйте в расширение VBS
следущую строку:
msgbox WeekdayName(weekday(date),false, vbSunday)&" "&day(date)&"
"&monthname(month(date))&" "&year(date)& " года"
Только заметьте, что месяц не склоняется.
Если писать как вам хочется, то скрипт значительно увеличиться в размере, а
может я чего не знаю.
Удачи.

Ответить   Tue, 17 Jun 2014 19:42:31 +1100 (#3055317)

 

Здравствуйте Дискуссионный Лист!
Приветствую Вас! Александр, Адрес: alexandrsokol***@y*****.ru
Цитата из вашего письма от вторник. 17 июня 2014 года! (11:42):

Ответ:
Всё сделал как вы написали,
но при нажатия на файлик,
выдаёт вот такую ошибку:

Windows Script Host
Сценарий: E:\Alex\Язык VBS.VBS
Строка: 1
Символ: 67
Ошибка: Незавершенная строковая константа
Код: 800A0409
Источник: Ошибка компиляции Microsoft VBScript
ОК
Спасибо!

Ответить   Tue, 17 Jun 2014 11:56:06 +0300 (#3055516)

 

Приветствую Вас! Александр, Адрес: alexandrsokol***@y*****.ru
Цитата из вашего письма от вторник. 17 июня 2014 года! (11:42):

Ответ:
Всё заработало, Моя вина, не внимательно скопировал строчку.
Спасибо!

Ответить   Tue, 17 Jun 2014 12:50:11 +0300 (#3055518)

 

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

Еще раз здравствуйте.
Если хотите, как просили, то вот так:
mw=array("января","февраля","марта","апреля","мая","июня","июля","августа","сентября","ноября","декабря")
msgbox WeekdayName(weekday(date),false, vbSunday)&" "&day(date)&"
"&mw(month(date)-1)&" "&year(date)& " года"
Только учтите: почтовик ломает строки из-за их длины, лучше качайте готовый
файл.
https://yadi.sk/d/CPrnqUj6Tia76
Удачи.

Ответить   Tue, 17 Jun 2014 21:37:15 +1100 (#3055472)

 

Приветствую всех.

mw=array("января","февраля","марта","апреля","мая","июня","июля","августа","сентября","ноября","декабря")

Ну чего вы издеваетесь над человеком...:-)
FormatDateTime (Now,vbLongDate)

Успехов. Анатолий.

Ответить   "i_chay" Wed, 18 Jun 2014 08:10:57 +0300 (#3056113)

 

Ну чего вы издеваетесь над человеком...:-)
FormatDateTime (Now,vbLongDate)

Здравствуйте!
Хотелось без привязки к настройкам системы.
Разные варианты вличной переписке перепробовали: у меня звучит так, у других
иначе.
Никите спасибо за вывод на синтезаторы, Анатолию спасибо за их определение.
С уважением.

Ответить   Fri, 20 Jun 2014 19:23:45 +1100 (#3058163)