AINS( ) (Función)

Inserta un elemento en una matriz de una dimensión, o una fila o columna en una matriz de dos dimensiones.

AINS(ArrayName, nElementNumber [, 2])

Valores devueltos

Numeric

Parámetros

• ArrayName
  Especifica el nombre de la matriz en que se inserta el elemento.

• nElementNumber
  Especifica el lugar de la matriz en que se inserta el nuevo elemento, la nueva fila o la nueva columna.

  Para insertar un elemento en una matriz de una dimensión, incluya ArrayName y el elemento nElementNumber donde se produzca la inserción. El nuevo elemento se inserta justo antes del elemento nElementNumber. Para insertar una fila en una matriz de dos dimensiones, incluya ArrayName y el número de la fila nElementNumber donde se produzca la inserción. La nueva fila se insertará justo antes de la fila nElementNumber.

  Si desea más información acerca de cómo puede hacer referencia a un elemento de una matriz por sus subíndices, vea DIMENSION.

• 2
  Inserta una columna en una matriz de dos dimensiones. La nueva columna se insertará justo antes de la columna especificada con nElementNumber.

Observaciones

Al insertar un elemento, una fila o una columna en una matriz, no cambia el tamaño de la matriz. Los elementos, las filas o las columnas finales se desplazan hacia el final de la matriz y el último elemento, la última fila o la última columna queda fuera de la matriz. El elemento, la fila o la columna recién insertada se inicializa con el valor falso (.F.).

AINS( ) devuelve 1 si el elemento, la fila o la columna se inserta correctamente.

Ejemplo

El ejemplo siguiente crea y llena una matriz con nombres de empresas y, a continuación, busca en la matriz el nombre de una empresa determinada. Si no encuentra el nombre de la compañía, lo inserta en la matriz.

CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE customer     && Open customer table
SELECT company FROM customer ;
   WHERE country = 'Germany' ;
   INTO ARRAY gaCompanies

gnCount = _TALLY
gcName = 'Seven Seas Imports'
CLEAR
DISPLAY MEMORY LIKE gaCompanies

IF ASCAN(gaCompanies, gcName) = 0  && Search for company

** Company not found-add it ** DIMENSION gaCompanies[gnCount+1,1] = AINS(gaCompanies, gnCount-1) gaCompanies[gnCount-1] = gcName ENDIF DISPLAY MEMORY LIKE gaCompanies

Vea también

ACOPY( ) | ADEL( ) | ADIR( ) | AELEMENT( ) | AFIELDS( ) | ALEN( ) | ASCAN( ) | ASORT( ) | ASUBSCRIPT( ) | DIMENSION