Commande OB LIRE NOMS PROPRIÉTÉS

Version imprimable

15/08/2019, 20h47
ciliaris

Commande OB LIRE NOMS PROPRIÉTÉS

Bonjour,

La commande "Lire mesures base" retourne un objet(langage).

OB LIRE NOMS PROPRIÉTÉS(Lire mesures base;$tabNoms;$tabTypes)
L'unique élément de $tabNoms contient ici "DB"

OB LIRE NOMS PROPRIÉTÉS(Lire mesures base.DB;$tabNoms;$tabTypes)
Les éléments ici plus nombreux de $tabNoms contiennent notamment "tables"

OB LIRE NOMS PROPRIÉTÉS(Lire mesures base.DB.tables;$tabNoms;$tabTypes)
Etc…

J'ai cherché dans la doc 4D ce qui permet de désigner un objet comme argument, à l'aide du nom d'une propriété contenu dans le tableau $tabNoms.

Je cherche dans le langage de quoi assembler des expression textuelles permettant de désigner un objet.

Dans ce cas comment assembler Lire mesures base+"."+$tabNoms{$i} dans une boucle.

Cela parait-il possible à quelqu'un ?

Merci d'avance s'il y a une piste.

Bonjour

OB Get est là pour ça (OB lire en FR)

Exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
array text($tabNoms;0)
OB GET PROPERTY NAMES(Get database measures.DB;$tabNoms;$tabTypes)
 
ARRAY OBJECT($tabObjets;0)
 
For ($i;1;Size of array($tabNoms))
	if(OB Get type(Get database measures.DB;$tabNoms{$i})=Is object)
		APPEND TO ARRAY($tabObjets;OB Get(Get database measures.DB;$tabNoms{$i}))
	end if
End for 
 
ARRAY OBJECT($tabSousObjets;0)
 
For ($i;1;Size of array($tabObjets))
	array text($tabNoms;0)
	OB GET PROPERTY NAMES($tabObjets{$i};$tabNoms;$tabTypes)
	For($j;1;Size of array($tabNoms))
		If (OB Get type($tabObjets{$i};$tabNoms{$j})=Is object)
			APPEND TO ARRAY($tabSousObjets;OB Get($tabObjets{$i};$tabNoms{$j}))
		End if 
	end for
end for
 
//Etc..

16/08/2019, 14h29
ciliaris

Merci bien jmbiraghi, c'est exactement ce que je cherchais. Je vais pouvoir avancer. Très bon week end à vous.
17/08/2019, 16h53
stanc

Bonjour,

Il y a la notation à crochets aussi.
$ob:=Lire mesures base
$ob.DB.tables["maTable"]

C'est quelque-chose de ce genre qui me trottait dans la tête.
C'est dire combien la réponse trouvée ici m'a été utile.
Bon week end.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
// Exemple : $voTest:=OBmontage (Lire mesures base;"DB";"tables";"Villes")
// Exemple : $voTest:=OBmontage (Lire mesures base.DB.tables;"Villes")
  // ----------------------------------------------------
Méthode OBmontage :
C_OBJET($0;$1)
C_TEXTE(${2})
$0:=$1
Boucle ($i_A;2;Nombre de paramètres)
$0:=OB Lire($0;${$i_A})
Fin de boucle 
  // ----------------------------------------------------