Серый форум — HTA + VBS: Остановить выполнение этого сценария

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (alexii) — Sun, 12 Oct 2014 18:31:41 +0000

Насколько я понял это язык программирование идет в состав Visual Studio по крайней мере про него там я слышал.

Да.

И насколько я понимаю там намного больше возможностей чем у VBScript

Да.

тем более идет без компиляции.

Нет.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (alexii) — Sun, 12 Oct 2014 18:28:12 +0000

Скажите, а что по поводу скорости обработки у данного метода ?

Ничего не скажу. Но Вы можете сравнить.

Необходимо установка дополнительных библиотек

Нет. Функционал реализуется библиотекой «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».

Задавайте, это не страшно, все мы проходили через незнание. Форум для того и предназначен.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (wildwolf007) — Sun, 12 Oct 2014 18:16:05 +0000

Ок, спасибо.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (Flasher) — Sun, 12 Oct 2014 18:05:14 +0000

wildwolf007, достаточно FrameWork-a, так что на каком-нибудь старом XP может не заработать в отличии, скажем, от Recordset и действует только в поле одномерных массивов.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (wildwolf007) — Sun, 12 Oct 2014 17:46:10 +0000

Вообще-то, не VB, а VB.Net. Но данный класс доступен и как сервер Automation.

Необходимо установка дополнительных библиотек и только на Windows Server ? Прошу прощения если задаю глупые вопросы просто не слышал о таком еще.
Насколько я понял это язык программирование идет в состав Visual Studio по крайней мере про него там я слышал.

И насколько я понимаю там намного больше возможностей чем у VBScript тем более идет без компиляции.
VBScript большой плюс что можно открыть блокнот и спокойно писать без каких либо компиляций.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (wildwolf007) — Sun, 12 Oct 2014 17:44:39 +0000

Спасибо огромное за вот этот метод:


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

Давно искал возможность сотртировки.
Спасибо огромное!

Скажите, а что по поводу скорости обработки у данного метода ?

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (alexii) — Sun, 12 Oct 2014 17:40:10 +0000

wildwolf007 пишет:

Как-то так :

Да. Метод «.Add()» чем-то не устраивает?

wildwolf007 пишет:

И здесь указывается совершенно другой язык чем ежели VBS указан просто VB

Вообще-то, не VB, а VB.Net. Но данный класс доступен и как сервер Automation.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (wildwolf007) — Sun, 12 Oct 2014 17:39:18 +0000

И здесь указывается совершенно другой язык чем ежели VBS указан просто VB

ArrayList Class (System.Collections)

http://msdn.microsoft.com/en-us/library … .110).aspx

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (wildwolf007) — Sun, 12 Oct 2014 17:35:09 +0000

Просмотрел все 3 справки не могу понять как я могу добавлять в массив данные если заранее не обозначу его размерность?
Как-то так :


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

Или есть еще варианты ?

Наверное у меня столько вопросов т.к. еще не научился читать между строк. И до конца не умею разбираться со справочной документацией.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (alexii) — Sun, 12 Oct 2014 17:23:16 +0000

wildwolf007 пишет:

Какие еще варианты возможны замены redim если происходит замена размера массива ? И я не знаю какой размер будет у массива?

В одной из Ваших предыдущих тем я приводил пример замены массива.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (wildwolf007) — Sun, 12 Oct 2014 17:16:30 +0000

Какие еще варианты возможны замены redim если происходит замена размера массива ? И я не знаю какой размер будет у массива?

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (alexii) — Sun, 12 Oct 2014 15:10:48 +0000

Подобный код:

                                    if m = 01 then
                                        mtext = "Январь"
                                    End If
                                    
                                    if m = 02 then
                                        mtext = "Февраль"
                                    End If
…

будет нагляднее в таком виде:

mtext = Array("Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")(m - 1)

если «m» заведомо не выйдет за пределы диапазона [1..12].

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (alexii) — Sun, 12 Oct 2014 15:03:04 +0000

OFF: wildwolf007, продолжаю настоятельно советовать отказаться от использования массивов при нужде многократного «ReDim Preserve». Это дико медленная операция сама по себе, а в случае роста длины массива или её многократного использования превращается в кошмар.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (wildwolf007) — Sun, 12 Oct 2014 12:09:47 +0000

Перестроил работу алгоритма все получилось. Отказался от перезаписи массивов одного и того же содержания, после сортировки. Стал работать с индексами массива.

Re: HTA + VBS: Остановить выполнение этого сценария

null@example.com (wildwolf007) — Sun, 12 Oct 2014 07:34:50 +0000

Немного переделал по факту получается нужно просто пересохранить содержимое из одних массивов в другие массивы


                        '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