Accueil > > > AAPPEND() AJOUTE LE CONTENU D'UN TABLEAU À UN AUTRE
AAPPEND() AJOUTE LE CONTENU D'UN TABLEAU À UN AUTRE
Information sur la source
Description
Ce code illustre la façon dont VFP gère les tableaux. Un tableau peut comporter 1 ou 2 dimensions maximum. VFP gère les tableaux par éléments séquentiels, aussi ce code est nécessaire pour ajouter des lignes à un tableau à 2 dimensions. aLen() permet de connaître le nombre de lignes [et de colonnes] d'un tableau Ce code illustre aussi la fonction type() qui permet de vérifier précisément les paramètres passés.
Source
- FUNCTION aAppend && Ajoute le contenu d'un tableau à un autre
- LPARAMETERS ;
- ta1,; && @ tableau résultat
- ta2 && @ tableau ajouté au tableau ta1
- LOCAL lnResult && nombre de lignes du tableau résultat
- m.lnResult = 0
-
- EXTERNAL ARRAY ta1, ta2 && pour le gestionnaire de projet
-
- * Si des tableaux ont bien été passés
- LOCAL llParms
- m.llParms = NOT (Type('m.ta1[1]') == 'U' OR Type('m.ta2[1]') == 'U')
- ASSERT m.llParms MESSAGE 'Les deux paramètres ta1 et ta2 doivent être des tableaux'
- IF m.llParms
-
- * Si le second tableau a des lignes
- LOCAL lnRow1, lnRow2
- m.lnRow1 = Iif(laEmpty(@m.ta1) , 0, Alen(m.ta1, 1)) && alen(m.ta1,1) Fonctionne pour 1 et 2 dimensions
- m.lnRow2 = Iif(laEmpty(@m.ta2) , 0, Alen(m.ta2, 1))
- m.lnResult = m.lnRow1 + m.lnRow2
- IF m.lnRow2 > 0
-
- * Ajuster le nombre de lignes et de colonnes du résultat
- LOCAL lnCol1, lnCol2
- m.lnCol1 = Alen(m.ta1, 2) && 0 si 1 dimension
- m.lnCol2 = Alen(m.ta2, 2)
- m.lnCol1 = Max(m.lnCol1, m.lnCol2)
- DIMENSION m.ta1[m.lnResult, m.lnCol1]
-
- * Pour chaque ligne du second tableau
- LOCAL lnRow, lnCol
- FOR m.lnRow = 1 TO m.lnRow2
-
- * Si un des tableaux est à une dim.
- IF m.lnCol1 * m.lnCol2 = 0
- m.ta1[m.lnRow1 + m.lnRow] = m.ta2[m.lnRow]
-
- * Sinon (les 2 tableaux sont à 2 dimensions)
- ELSE
- FOR m.lnCol = 1 TO Min(m.lnCol1, m.lnCol2)
- m.ta1[m.lnRow1 + m.lnRow, m.lnCol] = m.ta2[m.lnRow, m.lnCol]
- ENDFOR
- ENDIF
- ENDFOR
- ENDIF
- ENDIF
-
- RETURN m.lnResult
-
- *===================================================================
- FUNCTION laEmpty && Ce tableau est vide
- LPARAMETERS ta && @ Tableau à vérifier
- LOCAL llResult
- m.llResult = NULL
-
- EXTERNAL ARRAY ta
-
- LOCAL llParms
- m.llParms = NOT Type('m.ta[1]') == 'U'
- ASSERT m.llParms MESSAGE 'Le paramètre ta doit être un tableau'
- IF m.llParms
- m.llResult = Alen(m.ta) = 1 AND Vartype(ta[1]) = 'L' AND ta[1]=.F.
- ENDIF
-
- RETURN m.llResult
FUNCTION aAppend && Ajoute le contenu d'un tableau à un autre
LPARAMETERS ;
ta1,; && @ tableau résultat
ta2 && @ tableau ajouté au tableau ta1
LOCAL lnResult && nombre de lignes du tableau résultat
m.lnResult = 0
EXTERNAL ARRAY ta1, ta2 && pour le gestionnaire de projet
* Si des tableaux ont bien été passés
LOCAL llParms
m.llParms = NOT (Type('m.ta1[1]') == 'U' OR Type('m.ta2[1]') == 'U')
ASSERT m.llParms MESSAGE 'Les deux paramètres ta1 et ta2 doivent être des tableaux'
IF m.llParms
* Si le second tableau a des lignes
LOCAL lnRow1, lnRow2
m.lnRow1 = Iif(laEmpty(@m.ta1) , 0, Alen(m.ta1, 1)) && alen(m.ta1,1) Fonctionne pour 1 et 2 dimensions
m.lnRow2 = Iif(laEmpty(@m.ta2) , 0, Alen(m.ta2, 1))
m.lnResult = m.lnRow1 + m.lnRow2
IF m.lnRow2 > 0
* Ajuster le nombre de lignes et de colonnes du résultat
LOCAL lnCol1, lnCol2
m.lnCol1 = Alen(m.ta1, 2) && 0 si 1 dimension
m.lnCol2 = Alen(m.ta2, 2)
m.lnCol1 = Max(m.lnCol1, m.lnCol2)
DIMENSION m.ta1[m.lnResult, m.lnCol1]
* Pour chaque ligne du second tableau
LOCAL lnRow, lnCol
FOR m.lnRow = 1 TO m.lnRow2
* Si un des tableaux est à une dim.
IF m.lnCol1 * m.lnCol2 = 0
m.ta1[m.lnRow1 + m.lnRow] = m.ta2[m.lnRow]
* Sinon (les 2 tableaux sont à 2 dimensions)
ELSE
FOR m.lnCol = 1 TO Min(m.lnCol1, m.lnCol2)
m.ta1[m.lnRow1 + m.lnRow, m.lnCol] = m.ta2[m.lnRow, m.lnCol]
ENDFOR
ENDIF
ENDFOR
ENDIF
ENDIF
RETURN m.lnResult
*===================================================================
FUNCTION laEmpty && Ce tableau est vide
LPARAMETERS ta && @ Tableau à vérifier
LOCAL llResult
m.llResult = NULL
EXTERNAL ARRAY ta
LOCAL llParms
m.llParms = NOT Type('m.ta[1]') == 'U'
ASSERT m.llParms MESSAGE 'Le paramètre ta doit être un tableau'
IF m.llParms
m.llResult = Alen(m.ta) = 1 AND Vartype(ta[1]) = 'L' AND ta[1]=.F.
ENDIF
RETURN m.llResult
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
FONCTION GENERIQUE QUI RETOURNE UN TABLEAU [ par johnmary ]
Bonsoir à tous,J'ai créé une fonction dans un module intitulé iofonctions.prg.FUNCTION FolderListe()PARAMETERS DrivePathDIMENSION ThePaths(1024)Inc=1
prob avec un append from [ par gregorian ]
Bonjour, J'ai été voir cette fonction, et il me semble qu'elle répond tout a fait à mes attentes sauf un petit problème.Donc,
probleme sur append [ par ducker88 ]
Bonjour a tous, voici mon soucis, je voudrais copié les enregistrement d'une table A vers une table Bj'utilise donc la fonction append from;Pour
scatter memvar [ par titi66 ]
bonjour je bascule un application dév en fox pro 6 vers Fox pro 9je rencontre un pb avec scatter memvar : dans un form, j'ai un tableau public d&
dll et tableau de caractères [ par medisys ]
Bonjour, je dois déclarer dans mon application une fonction 'GetNom' de dll qui renvoie un tableau (taille 30) de caractères. Comment effectuer la d
passage d'un tableau en param [ par gregorian ]
Bonjour à tous, Voici mon souci. Dans un projet, je déclare des tableaux en PRIVATE.Ces tableaux doivent être rempli via une requete SQL (select <c
Déclaration tableau [ par ducker88 ]
Bonjour à tous,J'aimerai déclaré un tableau au sein d'une classe, pour ce faire j'utilise la fonction "Editer propriété méthodes" de foxpro. J'arrive
|
Derniers Blogs
[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7 par Audrey
L'émulateur Windows Phone 7, fourni avec la version Beta des outils développeurs n'inclut aucune image dans sa bibliothèque. Pas très pratique de tester son application lorsque l'on souhaite que l'utilisateur puisse choisir une image présente dans le télé...
Cliquez pour lire la suite de l'article par Audrey VIVE LES MOCKS ET LES POCOSVIVE LES MOCKS ET LES POCOS par vLabz
J'observe régulièrement autour de moi de la confusion à propos de ces deux termes et j'aimerais juste rappeler ce qu'ils signifient. Je ne suis bien sûr pas le mieux placé pour faire une leçon mais je vais faire de mon mieux pour mettre en valeur ce q...
Cliquez pour lire la suite de l'article par vLabz [WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5)[WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5) par JeremyJeanson
Vendredi dernier Microsoft a publié le quatrième épisode des bonnes pratiques pour coder ses activités custom dans WF4 : endpoint.tv - Workflow and Custom Activities - Best Practices (Part 4) . Tout comme pour les précédents épisodes, j'ai pris le temps d...
Cliquez pour lire la suite de l'article par JeremyJeanson DéVELOPPEMENT MOBILE : .NET COMPACT FRAMEWORK & LIMITATIONSDéVELOPPEMENT MOBILE : .NET COMPACT FRAMEWORK & LIMITATIONS par Pi-R
Introduction :
Le développement d'applications mobiles est quelque peu différent du développement d'applications sous Windows. En effet, le développement d'applications mobiles se base sur le .NET Compact Fra...
Cliquez pour lire la suite de l'article par Pi-R IPHONE VERSUS WP7 CODINGIPHONE VERSUS WP7 CODING par Nicolas
Je relais une présentation sur slideshare.net, qui compare le développement sur Iphone et Windows Phone 7, qui ma fait sourire. I phone versus windows phone 7 coding View more presentations from www.donburnett.com. J'aurais bien aimé une comparai...
Cliquez pour lire la suite de l'article par Nicolas
Logiciels
Xilisoft HD Vidéo Convertisseur 6 (6.0.3.0421)XILISOFT HD VIDéO CONVERTISSEUR 6 (6.0.3.0421)Xilisoft HD Vidéo Convertisseur est un outil professionnel de conversion HDTV, conçu pour transfo... Cliquez pour télécharger Xilisoft HD Vidéo Convertisseur 6 Xilisoft MP4 Convertisseur 6 (6.0.2.0415)XILISOFT MP4 CONVERTISSEUR 6 (6.0.2.0415)Xilisoft MP4 Convertisseur est un outil puissant pour la conversion de vidéo MP4, qui peut conver... Cliquez pour télécharger Xilisoft MP4 Convertisseur 6 Vade Retro Desktop (3.03)VADE RETRO DESKTOP (3.03)Le logiciel antispam Vade Retro pour Microsoft Outlook®, Outlook Express® et Windows Mail®(Vista)... Cliquez pour télécharger Vade Retro Desktop Malwarebytes Anti Malwares (1.46)MALWAREBYTES ANTI MALWARES (1.46)Malwarebytes' Anti-Malware est un anti-malware qui peut éliminer même les plus avancés des logic... Cliquez pour télécharger Malwarebytes Anti Malwares
|