VBS: хитрости/особенности

Поздравляю ! У каждого Колумба своя Америка )

Функция, выполняет некоторые действия и возвращает ссылку на саму себя. Результат: несколько вызовов функции подряд превращаются в магию. Практической ценности мало, но красиво.

Function Say (Value)
	WScript.Echo Value
	Set Say = GetRef("Say")
End Function

Say("Hello, World!")("I am Magus")("My name is Merlin")

Возврат ссылки на себя не есть тоже самое что и вызов функции из нее же самой
Предыдущий код можно преобразовать в серию вызовов функции

Say("Hello, World!")
Say("I am Magus")
Say("My name is Merlin")

Подобный прием встречается в javascript. Так что Америку я не открыл, а всего лишь спонтанно портировал прием из одного языка в другой.

Перенёс тему в профильный раздел.

интересный пост, интересные фичи, интересная коллекция получается

польстили за мега , "примастерить" эти фичи в обфускаторе можно - регулярные выражения - сила , правда пока не вижу каким образом

GetRef, наверное, немного из другой оперы - HTA - таким образом, похоже, рекурсию можно организовать, не пробовал

Я тоже в упор рекурсии не вижу.

Рекурсии, и правда, никакой, да и практической ценности, действительно, мало

Rumata, думаю, не ошибаетесь, ибо вроде как нет там такого понятия, как «текущий объект».

Вкратце изложенное проще описать, уйдя от кажущейся рекурсии, так: вызов процедуры/функции можно производить при помощи GetRef("<Имя процедуры/функции>"):

Option Explicit

Call GetRef("Proc") (GetRef("FuncAdd")(2), GetRef("FuncAdd")(3))

WScript.Quit 0

Sub Proc(Value1, Value2)
    WScript.Echo "Proc:", Value1, Value2
End Sub

Function FuncAdd(Value)
    WScript.Echo "Func:", Value
    
    FuncAdd = Value + 1
End Function

2 alexii:

Ммм... А использование "Me" в процедурах разве не считается за некий аналог ?

Я проверил - в VBS тоже есть. А вот то что это не документировано - это плохо. Имею в виду scripts56.chm (версию и время скачивания файла не помню, но одна из последних). Ключевое слово Me упоминается в нескольких статьях этой документации, но нет отдельной статьи, описывающей это ключевое слово.

2 alexii: На сколько я знаю - в VBScript "Me" в глобальном виде это действительно ссылка на объект скрипта и в процедурах так же. Но в случае подключеных событий это ссылка на объект породивший событие.

К примеру:

Option Explicit

MsgBox "Глобальная ссылка на Me:" & TypeName(Me)

Test

Sub Test()
	MsgBox "Ссылка на Me внутри обычной процедуры:" & TypeName(Me)
End Sub

Dim sc

set sc = WScript.CreateObject("MSScriptControl.ScriptControl.1","sc_")
sc.Language = "vbscript"
sc.AddCode "Dim a as long"

Sub sc_error()
	MsgBox "Ссылка на Me внутри события:" & TypeName(me)
End Sub

Спасибо, ясно. И вроде бы, внутри определения класса «Me» ссылается на класс, так?

Я бы сказал, что Me ссылается на экземпляр объекта.

А мне нравятся средства VBS:

'1. получить количество дней в текущем месяце
DateSerial(Year(Date), Month(Date) + 1 , 1) - DateSerial(Year(Date), Month(Date), 1)

'2. получить день недели для последнего дня текущего месяца
Weekday(DateSerial(Year(Date), Month(Date) + 1, 0), 2) 'первый день недели - понедельник

А-а-а... У них на МСДНе неверная информация. Понял как надо интерпретировать возвращаемую информацию. Weekday возвращает порядковый номер дня недели для данной даты, если бы отсчет начинался с определенного дня в неделе. То есть, если отсчет начинается с воскресенья (1), то понедельник - второй день, если с понедельника (2), то понедельник - день первый, и т.д.

Блин, дошло !!!
Не сразу, но дошло....  фишка в me
Вообще прикольно !!!
alexii - МОЗГ !!!
Признаю - это лучше моего того варианта !!!
Это настоящая многопоточность WSHController !!!

OFF: Никогда бы не подумал, что это для кого то станет открытием. ) Наверное потому что слишком к этому привык. Повторюсь - ":D Поздравляю ! У каждого Колумба своя Америка )". Рад что у Вас получилось задуманное.

2 alexii будет ли окончательный вариант реализации многопоточности в Вашем исполнении ?
(с предварительной асинхронной проверкой хостов пингами, ограничением длины очереди потоков , логированием успешности отработки и т.д. и т.п.)

Всем доброго времени суток! Экспериментируя с execute(), я обнаружил возможность создавать функции, "вложенные" в функции - динамически объявлять процедуры и функции в области видимости переменных определенной процедуры или функции (метода, принадлежащего экземпляру класса). Правда, объявленная таким образом "локальная" функция не видит локальных переменных (переменных экземпляра класса), а обращается напрямую к глобальным переменным скрипта.

dim x
x = "global"
' вызов процедуры, объявляющей внутри себя процедуру
globalsub()
' после завершения процедуры объявленная в ней процедура более недоступна для вызова
' localsub() ' ошибка - несоответствие типа, в глобальном контексте процедура не появляется

sub globalsub()
    dim x
    x = "local" ' локально объявленная процедура не видит локально объявленную переменную
    execute _
        "sub localsub()" & vbcrlf & _
            "msgbox ""localsub message""" & vbcrlf & _
            "msgbox ""x = "" & x" & vbcrlf & _
        "end sub"
    localsub()
end sub

Подобным образом могут быть динамически объявлены классы в области видимости переменных определенной процедуры, функции, метода экземпляра класса, и в области видимости экземпляра класса.

' получение экземпляра класса, объявленного внутри функции
set objsourceless = newobj()
msgbox typename(objsourceless)
' после завершения функции объявленный в ней класс более недоступен для создания новых экземпляров
' set objtest = new clslocal ' ошибка - класс не определен, в глобальном контексте класс не появляется
' объявление класса внутри экземпляра класса, объявленного внутри функции
objsourceless.executestatement _
    "class clsadditional" & vbcrlf & _
        "public default sub run()" & vbcrlf & _
            "msgbox ""additional class message""" & vbcrlf & _
        "end sub" & vbcrlf & _
    "end class"
' получение экземпляра класса, объявленного внутри экземпляра класса, объявленного внутри функции
set objadditional = objsourceless.getinstance("clsadditional")
msgbox typename(objadditional)
objadditional()

function newobj()
    ' создание класса в области видимости функции
    execute _
        "class clslocal" & vbcrlf & _
            "public sub executestatement(statement)" & vbcrlf & _
                "executeglobal statement" & vbcrlf & _
            "end sub" & vbcrlf & _
            "public function getinstance(clsname)" & vbcrlf & _
                "set getinstance = eval(""new "" & clsname)" & vbcrlf & _
            "end function" & vbcrlf & _
        "end class"
    ' создание экземпляра класса
    set newobj = new clslocal
end function

А теперь о главном. Практической пользы в данной возможности я углядеть так и не сумел.

Продолжая тему VBScript: создание пользовательского объекта, можно использовать еще один вариант. Создание пользовательского объекта как экземпляра локально объявленного класса позволит не засорять глобальное пространство скрипта:

strmytypename = "customobject" ' тип объекта
arrmykeys = array("property1", "property2") ' массив с названиями свойств объека
arrmyvalues = array("value1", createobject("scripting.dictionary")) ' массив со значениями свойств
' создание объекта
set objmy = getmyobj(strmytypename, arrmykeys, arrmyvalues)
' проверка
msgbox typename(objmy)
msgbox objmy.property1
msgbox typename(objmy.property2)

function getmyobj(strtypename, arrkeys, arrvalues)
    dim i
    execute "class " & strtypename & ": public " & join(arrkeys, ", ") & ": end class: set getmyobj = new " & strtypename
    for i = 0 to ubound(arrkeys)
        if isobject(arrvalues(i)) then
            execute "set getmyobj." & arrkeys(i) & " = arrvalues(i)"
        else
            execute "getmyobj." & arrkeys(i) & " = arrvalues(i)"
        end if
    next
end function

Давно (уже года 2-3, наверно) хотел спросить по поводу этой фичи, предложенной Rumata.
Есть возможность применять при нескольких параметрах?

Xameleon
Оно! Спасибо! Плюс это решает проблему обрыва и необходимости повтора последнего вызова в цепочке.
И, полагаю, имеет смысл в ряде случаев применять CPS вместо цикла в цикле. Нашёл по теме на русском.

P.S.: Это ж надо было столько прождать, чтобы узнать, что всё уткнётся в Call. Столько бы места и времени сэкономил...

Rumata, да, хватало таких задач.

Покажу на простом примере:

' Есть некая дата в неподходящем формате (файла, например)
FDate = "5/5/5 5:5:5"

Dy = Day(FDate)  : Mh = Month(FDate)  : Yr = Year(FDate)
Hr = Hour(FDate) : Mn = Minute(FDate) : Sc = Second(FDate)

' Запишем в переменную дату 1-го преобразования
NDate = ReDate(FDate)

' Вызовем функцию 2-го преобразования
Call AddNull(Dy)(Mh)(Hr)(Mn)(Sc)

' Покажем разницу
MsgBox  "До преобразований:" & vbTab & FDate &_
vbCr & "1-е преобразование:" & vbTab & NDate &_
vbCr & "2-е преобразование:" & vbTab & ReDate(FDate)

Function AddNull(DateT)
  DateT = Right("0" & DateT, 2)
  Set AddNull = GetRef("AddNull")
End Function

Function ReDate(FDate)
  ReDate = Dy & "." & Mh & "." & Yr & " " & Hr & ":" & Mn & ":" & Sc
End Function

Xameleon
Ну, так очевидно, что в подобном случае Right("0" & DateT, 2) пришлось бы писать 5 раз вместо одного.

В рамках последнего обсуждения множественного вызова функции с двумя переменными ранее вертелась мысль избавления от сущностей, когда значением (или его частью) переменной может выступать имя самой переменной. Делается это простым присвоением через Execute:

Execute Var & "=""Var"""

Что это даёт? Ну, во-первых, в ряде случаев избавление от необходимости задействовать коллекцию или опять же вызывать процедуру/функцию для динамического присвоения (пример c GetRef см. ниже в одном и кодов).
Т.е. вместо того, чтобы придумывать переменные с присвоением им значений можно в цикле имплантировать значения в имена и там же обработать:

Вот простой пример экономии. Привычное представление

' Запись в 139 символов:
C  = " класс"
C1 = "1" & C
C2 = "2" & C
C3 = "3" & C
C4 = "4" & C
C5 = "5" & C
C6 = "6" & C
C7 = "7" & C
C8 = "8" & C
C9 = "9" & C

переводим в

' Запись в 59 символов (полный аналог предыдущего):
For i = 1 To 9: Execute "C" & i & " = i & "" класс""" :Next

' Теперь у нас на руках все переменные C1-9 c данными. Т.е. их можно
' сравнивать, обрабатывать, вставлять в текст, перетасовывать и т.п.
' Пример:
MsgBox "Маша пошла в " & C5 & "." & vbCr & _
"Миша из " & C9 & "а решил сложную задачу по алгебре."

Или, предположим, мы располагаем списком значений, входящих в группу некого свойства объекта.
Примеры:

Set FSO = CreateObject("Scripting.FileSystemObject")
With CreateObject("WScript.Shell")
  For i = 0 To .SpecialFolders.Count - 1
  	Path = .SpecialFolders(i)
  	Execute Replace(FSO.GetFileName(Path), " ", "") & " = Path" 
  Next
End With
WScript.Echo "делаем дела с папкой " & Fonts
WScript.Echo "делаем дела с папкой " & SendTo

Set Shell = CreateObject("Shell.Application")
GetVar("DirectoryServiceAvailable")("DoubleClickTime")("ProcessorLevel")_
  ("ProcessorSpeed")("ProcessorArchitecture")("PhysicalMemoryInstalled")

MsgBox "Частота процессора: " & vbTab & ProcessorSpeed & " MHz" & vbCr &_
     "Физическая память: " & vbTab & PhysicalMemoryInstalled & " байт(а)"

Function GetVar(Var)
  Execute Var & "= Shell.GetSystemInformation(Var)"
  Set GetVar = GetRef("GetVar")
End Function

Set Track = CreateObject("WMPlayer.OCX")._
NewMedia("C:\Windows\winsxs\X80C99~1.163\SLEEPA~1.MP3")

For i = 0 To Track.AttributeCount - 1
	Attr = Track.GetAttributeName(i)
	Execute "i" & Replace(Attr, "WM/", "") & "= Track.GetItemInfo(Attr)"
Next

MsgBox  "Номер: "  & vbTab & iTrackNumber & vbCr & _
		"Имя: "    & vbTab & iTitle       & vbCr & _
		"Альбом: " & vbTab & iAlbumTitle  & vbCr & _
		"Автор: "  & vbTab & iAuthor      & vbCr & _
		"Жанр: "   & vbTab & iGenre       & vbCr & _
		"Год: "    & vbTab & iYear, 4160, " MP3-теги"

File = "C:\Windows\winsxs\X828C9~1.163\RU-wp5.jpg"

Set Img = WScript.CreateObject("WIA.ImageFile")
Img.LoadFile File

With Img.Properties
  For i = 1 To .Count
    FN = .Item(i).Name : If Not .Item(i).IsVector _
    And Not IsNumeric(FN) Then Execute FN & " = .Item(i).Value"
  Next
End With

Sr = InStrRev(File, "\") : FN = Mid(File, Sr + 1) : T = vbTab
Set Folder = CreateObject("Shell.Application").NameSpace(Left(File, Sr))
For Each P In Split("Name Directory DocTitle Owner Attributes " &_
                    "Copyright Dimensions Type Create Write Access")
  Execute "i" & P & " = Folder.ParseName(FN).ExtendedProperty(P)"
Next

MsgBox "Имя файла:"      & T & iName       & vbCr & _
       "Тип файла:"      & T & iType       & vbCr & _
       "Название:"       & T & iDocTitle   & vbCr & _
       "Разрешение:"     & T & XResolution & " x " & YResolution & " dpi" & vbCr & _
       "Размер кадра:"   & T & iDimensions & " пкс" & vbCr & _
       "Ширина кадра:"   & T & ExifPixXDim & " пкс" & vbCr & _
       "Высота кадра:"   & T & ExifPixYDim & " пкс" & vbCr & _
       "Дата съёмки:"    & T & DateTime    & vbCr & _
       "Дата создания:"  & T & iAccess     & vbCr & _
       "Дата изменения:" & T & iCreate     & vbCr & _
       "Автор съёмки:"   & T & Artist      & vbCr & _
       "Владелец:"       & T & iOwner      & vbCr & _
       "Автор. права:"   & T & Copyright

Приверженцу мелкомягкого эстетизма подобный подход в оптимизации может показаться радикальным и режущим глаз, но, полагаю, не я первый, кто горел желанием проделывать на VBS вещь, которая нативно вплетена в JS.
Буду рад, если кто оценит.