Função aDel para eliminar elementos de um Array – Maratona AdvPL e TL++ 026

Nesse vídeo demonstraremos em como apagar elementos de um array utilizando a função aDel juntamente com aSize.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"
 
/*/{Protheus.doc} User Function zExe026
Exemplo de função para deletar um elemento do array
@type Function
@author Atilio
@since 26/11/2022
@see https://tdn.totvs.com/pages/releaseview.action?pageId=23889096
@obs Função aDel
    Parâmetros
        + Array que terá o elemento deletado
        + Posição numérica que será deletada do array
 
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
 
User Function zExe026()
    Local aArea     := FWGetArea()
    Local aNomes    := {}
 
    //Adicionando os nomes
    aAdd(aNomes, "Daniel")
    aAdd(aNomes, "João")
    aAdd(aNomes, "Maria")
     
    //Deleta o elemento da posição 2, vai ficar como: ["Daniel", "Maria", Nil]
    aDel(aNomes, 2)
 
    //Redimensiona o Array, diminuindo uma posição que estava como Nil
    aSize(aNomes, Len(aNomes) - 1)
 
    //Exibe agora o que está na posição 2
    FWAlertInfo("Posição 2 é " + aNomes[2], "Exemplo de aDel")
 
    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

5 Responses

  1. Hiago disse:

    Boa tarde, como eu faço caso seja uma Matriz?

  2. Hiago disse:

    Exemplo cValores[10][10] e quero deletar a coluna 8

    • Bom dia Hiago, tudo joia?

      Supondo então que nessa matriz, na linha 10, você quer apagar a coluna 8, ficaria:

      nTamanho := Len(aValores[10]) //Pega a quantidade de colunas da linha 10
      aDel(aValores[10][8]) //Exclui a coluna 8 da linha 10
      aSize(aValores[10], nTamanho-1) //Redimensiona a linha 10, diminuindo uma coluna de tamanho

      Tenha uma ótima e abençoada sexta feira.

      Um grande abraço.

  3. Lucas de Oliveira disse:

    Olá bom dia,
    Como faria para eliminar uma linha inteira de um array dimensional? Exemplo: tenho um array com 5 linhas e está com 6 colunas. Ai eu preciso excluir uma linha por inteiro e redimensionar. Como que eu faria? Tentei seguir o exemplo do comentário anterior, mas não deu certo.

    • Bom dia Lucas, tudo joia?

      Montamos aqui um exemplo, demonstrando o cenário em que, temos um array com 5 linhas e cada linha 6 colunas, ai queremos excluir uma linha inteira.

      Segue o trecho:

      //Criamos o Array
      aSeuArray := {}
      aAdd(aSeuArray, {"João",   "aaa", "bbb", "ccc", "ddd", "eee"}) //linha 1 com 6 colunas
      aAdd(aSeuArray, {"Maria",  "aaa", "bbb", "ccc", "ddd", "eee"}) //linha 2 com 6 colunas
      aAdd(aSeuArray, {"José",   "aaa", "bbb", "ccc", "ddd", "eee"}) //linha 3 com 6 colunas
      aAdd(aSeuArray, {"Joana",  "aaa", "bbb", "ccc", "ddd", "eee"}) //linha 4 com 6 colunas
      aAdd(aSeuArray, {"Daniel", "aaa", "bbb", "ccc", "ddd", "eee"}) //linha 5 com 6 colunas
      
      //Vamos definir qual linha vamos apagar
      nLinha := 3 //José
      
      //Vamos apagar a linha do array
      aDel(aSeuArray, nLinha)
      
      //Vamos redimensionar o array após a exclusão
      aSize(aSeuArray, Len(aSeuArray) - 1)
      
      //Vamos mostrar como ficou o Array
      ShowLog(VarInfo("aSeuArray", aSeuArray, , .F.))
      

      Tenha uma ótima e abençoada sexta feira.

      Um forte abraço.

Deixe uma resposta

Terminal de Informação