Серый форум — VBS Работа с массивами

Re: VBS Работа с массивами

null@example.com (Flasher) — Wed, 13 Mar 2013 12:25:01 +0000

inock
Оптимально работать с коллекциями.

Re: VBS Работа с массивами

null@example.com (inock) — Wed, 13 Mar 2013 10:57:47 +0000

alexii пишет:

Используйте Recordset.

Да, наверное это будет оптимально. Спасибо

Re: VBS Работа с массивами

null@example.com (alexii) — Wed, 13 Mar 2013 10:49:28 +0000

inock, перебором.

Если есть возможность использовать вместо обычного массива ассоциативный («Scripting.Dictionary») — используйте его. Используйте Recordset. Выбор зависит от того, что Вы делаете в дальнейшем с данными.

Re: VBS Работа с массивами

null@example.com (inock) — Wed, 13 Mar 2013 10:43:11 +0000

Dmitrii пишет:

Если массив невелик, то можно и не перебором.

А если массив приличный?

Там суть-то в чем... Считываются данные (для простоты скажем, номера телефонов из файла). Данные могут повторяться. Если такого номера еще не было - заносим в массив. если уже такой номер есть в массиве - ничего не делаем, считываем следующую строчку.

Вот сижу, соображаю, как это лучше реализовать...

Re: VBS Работа с массивами

null@example.com (Dmitrii) — Wed, 13 Mar 2013 10:37:54 +0000

inock пишет:

... в VBS есть средства поиска данных в массиве...

Нет.

inock пишет:

... или тупо перебором искать?..

Если массив невелик, то можно и не перебором. Так, например:

Dim zooAnimals(2), strTemp, x
zooAnimals(0) = "lion"
zooAnimals(1) = "turtle"
zooAnimals(2) = "ostrich"
strTemp = Join(zooAnimals, ";") & ";"
x = InStr(1, strTemp, "ostrich;", vbTextCompare)
If x > 0 Then
    If x = 1 Then
        WScript.Echo x - 1
    Else
        WScript.Echo UBound(Split(Left(strTemp, x - 2), ";")) + 1
    End If
Else
    WScript.Echo "Нет такого элемента"
End If

VBS Работа с массивами

null@example.com (inock) — Wed, 13 Mar 2013 09:43:06 +0000

Для поиска значения в массиве в VB микрософт предлагает такой код:

Public Sub findAnimal()
    Dim zooAnimals(2) As String
    zooAnimals(0) = "lion"
    zooAnimals(1) = "turtle"
    zooAnimals(2) = "ostrich"
    Dim turtleIndex As Integer
    turtleIndex = (Array.IndexOf(zooAnimals,"turtle"))
    MsgBox("The turtle is element " & turtleIndex)
End Sub

Однако, в VBS он не работает, WSH не понимает объект Array.
Вопрос: в VBS есть средства поиска данных в массиве или тупо перебором искать?

Спасибо.