Насколько я понял это язык программирование идет в состав Visual Studio по крайней мере про него там я слышал.
Да.
И насколько я понимаю там намного больше возможностей чем у VBScript
Да.
тем более идет без компиляции.
Нет.
]]>Скажите, а что по поводу скорости обработки у данного метода ?
Ничего не скажу. Но Вы можете сравнить.
Необходимо установка дополнительных библиотек
Нет. Функционал реализуется библиотекой «mscorlib.dll» из комплекта Microsoft .Net Framework.
и только на Windows Server ?
В данном случае слово «сервер» относится к термину «Automation». Сервер Automation реализуется библиотекой .dll или .ocx. Клиент Automation — приложение, скрипт, обращающееся к серверу Automation, посредством создания экземпляра класса.
Например, библиотека Microsoft Scripting Runtime («scrrun.dll») реализует такие сервера Automation, как «Scripting.FileSystemObject», «Scripting.Dictionary» и «Scripting.Encoder».
Прошу прощения если задаю глупые вопросы просто не слышал о таком еще.
Думаю, слышали, но в ином контексте — как об «ActiveX».
Задавайте, это не страшно, все мы проходили через незнание. Форум для того и предназначен.
]]>Вообще-то, не VB, а VB.Net. Но данный класс доступен и как сервер Automation.
Необходимо установка дополнительных библиотек и только на Windows Server ? Прошу прощения если задаю глупые вопросы просто не слышал о таком еще.
Насколько я понял это язык программирование идет в состав Visual Studio по крайней мере про него там я слышал.
И насколько я понимаю там намного больше возможностей чем у VBScript тем более идет без компиляции.
VBScript большой плюс что можно открыть блокнот и спокойно писать без каких либо компиляций.
Set DataList = CreateObject _
("System.Collections.ArrayList")
DataList.Add "2"
DataList.Add "4"
DataList.Add "6"
DataList.Add "1"
DataList.Add "3"
DataList.Add "5"
DataList.Sort()
'DataList.Reverse()
For Each strItem in DataList
Wscript.Echo strItem
Next
Давно искал возможность сотртировки.
Спасибо огромное!
Скажите, а что по поводу скорости обработки у данного метода ?
]]>Как-то так :
Да. Метод «.Add()» чем-то не устраивает?
И здесь указывается совершенно другой язык чем ежели VBS указан просто VB
Вообще-то, не VB, а VB.Net. Но данный класс доступен и как сервер Automation.
]]>ArrayList Class (System.Collections)
]]>
Set DataList = CreateObject _
("System.Collections.ArrayList")
DataList.Add "B"
DataList.Add "C"
DataList.Add "E"
DataList.Add "D"
DataList.Add "A"
DataList.Sort()
For Each strItem in DataList
Wscript.Echo strItem
Next
Или есть еще варианты ?
Наверное у меня столько вопросов т.к. еще не научился читать между строк. И до конца не умею разбираться со справочной документацией.
]]>Какие еще варианты возможны замены redim если происходит замена размера массива ? И я не знаю какой размер будет у массива?
В одной из Ваших предыдущих тем я приводил пример замены массива.
]]>if m = 01 then mtext = "Январь" End If if m = 02 then mtext = "Февраль" End If …
будет нагляднее в таком виде:
mtext = Array("Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")(m - 1)
если «m» заведомо не выйдет за пределы диапазона [1..12].
]]>
'MsgBox MenuTypeFile1Mask(i).Value &"=" &FileMask1
If LCase(MenuTypeFile1Mask(i).Value) = LCase(FileMask1) Then
For w = 0 To Ubound(FileMassivMaskPath1) Step 1
'MsgBox MenuTypeFile1Mask(i).Value
'MsgBox FileMassivMaskPath1(w)
If n = "" Then
n = -1
'MsgBox "Назначили N = -1"
EnD if
n = n + 1
reDim preserve FileMassivMaskPath(n)
reDim preserve FileMassivMaskName(n)
reDim preserve FileMassivMaskDate(n)
reDim preserve FileMassivMaskContent(n)
reDim preserve FileMassivMaskType(n)
FileMassivMaskPath(n) = FileMassivMaskPath1(w)
FileMassivMaskName(n) = FileMassivMaskName1(w)
FileMassivMaskDate(n) = FileMassivMaskDate1(w)
FileMassivMaskContent(n) = FileMassivMaskContent1(w)
FileMassivMaskType(n) = FileMassivMaskType1(w)
'месяц
m = DatePart("m", FileMassivMaskDate(n))
PovtorDate = 0
'Исключение повторов в выводимом списке
For c = 0 to Ubound(FileMassivMaskDate) - 1 Step 1
If DatePart("m", FileMassivMaskDate(c)) = m Then
PovtorDate = 1
End If
Next
If PovtorDate = 0 Then
if m = 01 then
mtext = "Январь"
End If
if m = 02 then
mtext = "Февраль"
End If
if m = 03 then
mtext = "Март"
End If
if m = 04 then
mtext = "Апрель"
End If
if m = 05 then
mtext = "Май"
End If
if m = 06 then
mtext = "Июнь"
End If
if m = 07 then
mtext = "Июль"
End If
if m = 08 then
mtext = "Август"
End If
if m = 09 then
mtext = "Сентябрь"
End If
if m = 10 then
mtext = "Октябрь"
End If
if m = 11 then
mtext = "Ноябрь"
End If
if m = 12 then
mtext = "Декабрь"
End If
If p = "" Then
p = -1
'MsgBox "Назначили P = -1"
EnD if
p = p + 1
reDim preserve MounthChooseText(p)
MounthChooseText(p) = mtext
reDim preserve MounthChooseValue(p)
MounthChooseValue(p) = m
End If
Next
End If