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 : 308
    Registrado : 23/01/2017

    Função Excluir Item de Array

    Mensagem  thiagomcosta em 7/2/2018, 15:36

    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"}
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Função Excluir Item de Array

    Mensagem  ahteixeira em 26/3/2018, 11:54

    Olá Thiago Costa,

    Obrigado pela partilha, o fórum agradece.

    Abraço

      Data/hora atual: 18/11/2018, 06:35