Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

ACOPY()

Propósito

Copiar elementos entre vetores.

Sintaxe

ACOPY (<vet.1>, <vet.2>[, <exp.N1>[, <exp.N2>[, <exp.N3>]]])

Argumentos

<vet.1>

representa o nome do vetor-origem.

<vet.2>

representa o nome do vetor-destino.

<exp.N1>

representa a posição do início da cópia em <vet.1>. Se omitido, é assumido 0.

<exp.N2>

representa quantidade de elementos que serão copiados de <vet.1> para <vet.2>. Se omitido, serão copiados todos os elementos a partir de <exp.N1>.

<exp.N3>

representa a posição inicial em <vet.2> que receberá os elementos de <vet.1>.

Utilização

Copia elementos de um vetor para outro de mesmo tipo.

Se vetor-destino (<vet.2>) for menor que o vetor de origem (<vet.1>), só serão copiados os elementos que couberem em <vet.2>.

No caso de vetores-cadeia, se o tamanho do elemento do vetor-destino for menor que do vetor-origem, a cópia é truncada.

Exemplos

O exemplo a seguir mostra-nos a criação de dois vetores e copia todos os elementos do primeiro para o segundo.

* Declara vetores

DECLARE vet_ori[3] = space(20)

DECLARE vet_des[2] = space(10)

* Atribui valores a vet_ori

vet_ori[1] = "PRIMEIRO ELEMENTO"

vet_ori[2] = "SEGUNDO ELEMENTO"

vet_ori[3] = "TERCEIRO ELEMENTO"

* Copiar os 10 primeiros caracteres dos dois primeiros 

* elementos de

* vet_ori para vet_des

ACOPY (vet_ori, vet_des)

Consulte

DECLARE, ACHOICE(), ADEL(), AFILL(), AINS(), ALEN() e ASCAN().

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!