Discussion :

[Natynatou]

Bonjour,

Je cherche à faire une recherche par mots-clés sur une table entière (contenant de nombreux champs).

Pour faire une recherche par mots-clés sur un champ, j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CHERCHER([TABLE];[TABLE]Champ="@"+Variable+"@")

mais j'aimerais éviter de faire autant de ligne de commande que de champs.
Avez-vous une astuce pour faire cette recherche sur toute la table sans avoir à expliciter les champs ?

Merci d'avance de votre aide.
Et Joyeuses Fêtes !

Natynatou

[stanc]

Bonjour,

Une méthode comme ça devrait faire l'affaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
C_POINTEUR($1;$table)
C_TEXTE($2;$valeur)
$table:=$1
$valeur:=$2
 
C_BOOLEEN($ligne1)
C_ENTIER LONG($nbChamps;$numChamp;$numTable;$numLigne)
C_POINTEUR($champ)
 
$numTable:=Table($table)
$ligne1:=Vrai
Boucle ($numChamp;1;Lire numero dernier champ($numTable))
    Si (Est un numero de champ valide($numTable;$numChamp)
        $numLigne:=$numLigne+1
        $champ:=Champ($numTable;$numChamp)
        Si ($ligne1)
            $ligne1:=Faux
            CHERCHER($table->;$champ->="@"+$valeur+"@";*)
        Sinon 
            CHERCHER($table->; | ;$champ->="@"+$valeur+"@";*)
        Fin de si 
    Fin de si 
Fin de boucle 
Si (non($ligne1))
    CHERCHER($table->)
Fin de si