Share via

AINS( )-Funktion

  • Artikel

Fügt ein Element in ein eindimensionales Array bzw. eine Zeile oder eine Spalte in ein zweidimensionales Array ein.

AINS(ArrayName, nElementNumber [, 2])

Rückgabewerte

Numerisch

Parameter

  • ArrayName
    Gibt den Namen des Arrays an, in das die Elemente eingefügt werden sollen.

  • nElementNumber
    Gibt an, ob ein Element, eine Zeile oder eine Spalte in das Array eingefügt werden soll.

    Zum Einfügen eines Elements in ein eindimensionales Array fügen Sie ArrayName und das Element nElementNumber an der gewünschten Stelle ein. Das neue Element wird nun vor dem Element nElementNumber eingefügt. Zum Einfügen einer Zeile in ein zweidimensionales Array fügen Sie ArrayName und die Nummer der Zeile nElementNumber an der gewünschten Stelle ein. Die neue Zeile wird nun vor der Zeile nElementNumber eingefügt.

    Weitere Informationen über die Bezugnahme auf ein Arrayelement über dessen Indizes finden Sie unter DIMENSION-Befehl.

  • 2
    Fügt eine Spalte in ein zweidimensionales Array ein. Die neue Spalte wird unmittelbar vor der durch nElementNumber gekennzeichneten Spalte eingefügt.

Hinweise

Die Größe eines Arrays bleibt unverändert, wenn ein Element, eine Zeile oder eine Spalte in das Array eingefügt werden. Stattdessen werden die nachfolgenden Elemente, Zeilen oder Spalten in Richtung Arrayende verschoben, und das letzte Element bzw. die letzte Zeile oder Spalte werden aus dem Array gelöscht. Das eingefügte Element bzw. die eingefügte Zeile oder Spalte werden auf Falsch (.F.) gesetzt.

AINS( ) gibt den Wert 1 zurück, wenn das Element bzw. die Zeile oder Spalte erfolgreich eingefügt wurden.

Beispiel

Im folgenden Beispiel wird ein Array erstellt und mit Firmennamen gefüllt. Anschließend wird das Array nach einem bestimmten Firmennamen gescannt. Falls der Firmenname nicht gefunden werden kann, fügt die Funktion den fehlenden Namen in das Array ein.

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

Siehe auch

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