MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Função Excluir Item de Array

    Compartilhe
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 23/01/2017

    Função Excluir Item de Array

    Mensagem  thiagomcosta em Qua 07 Fev 2018, 9:06 pm

    Procurei e não achei uma função para excluir um elemento de uma array (como sempre, se existir, por favor me indiquem).

    Colocando aqui a função que fiz para resolver o meu problema, pode ser adaptada a cada caso.

    A função retorna uma cópia do vetor excluindo os itens iguais ao elemento fornecido.
    Os paramentros são a array original e o elemento a ser procurado e excluido.

    Código:
    Function RetiraElementoArray(pArray, pElemento)
    Dim vElemento
    Dim vArrayFinal()

    vArray = pArray
    vElemento = pElemento
    k = 0

    For i = 0 To UBound(vArray)
        If vArray(i) <> pElemento Then
            ReDim Preserve vArrayFinal(k)
            vArrayFinal(k) = vArray(i)
            k = k + 1
        End If
    Next

    RetiraElementoArray = vArrayFinal

    End Function


    Teste:
    Código:
    Sub testefunc()
    Dim vA(), vB()
    vA = Array("A", "B", "C", "D", "A", "E")
    vB = RetiraElementoArray(vA, "A")
    For i = 0 To UBound(vB)
        MsgBox vB(i)
    Next
    End Sub

    Retorna a matriz {"B","C","D","E"}

      Data/hora atual: Seg 26 Fev 2018, 4:52 am