1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Убить елемент массива

Тема в разделе "Visual Basic", создана пользователем -, 1 сен 2008.

  1. Гость

    Репутация:
    0
    Работаю на VBA Excel и не нахожу в синтаксисе макросов в команде Erase тегов или команды FullTrim относительно массива.....как убить елемент массива с значением "".Подскажите плиз.
     
  2. Vlanib

    Vlanib Гость

    Репутация:
    0
    На сколько мне известно в VBA, впрочем как и в VB, нет собственных классов для работы с массивами,
    кроме Collection. Поэтому придется всё ручками.
    Вот, как один из вариантов, пример подобной сортировки с применением второго динамического массива:

    [codebox]
    Sub MyArr()
    Dim sOriginalArr(10) As String 'Массив для примера
    Dim sSortArr() 'Объявляем динамический массив
    Dim i As Integer, j As Integer
    For i = 0 To 9 'Заполняем массив для примера
    sOriginalArr(i) = Str(i)
    Next
    sOriginalArr(3) = "" 'Вот два пустых значения
    sOriginalArr(7) = ""
    For i = 0 To UBound(sOriginalArr)
    If Not sOriginalArr(i) = "" Then 'А вот сравнение в цикле с ""
    j = j + 1
    ReDim Preserve sSortArr(j) 'И инициализация динамич. массива
    sSortArr(j - 1) = sOriginalArr(i) 'уже сортированными значениями.
    End If
    Next
    End Sub
    [/codebox]
     
Загрузка...

Поделиться этой страницей